有没有办法在R-studio中找到这个方程中P的解/近似值

# 定义方程
equation <- function(p) {
  # 方程定义
  # 例如：return(p^2 - 4)
}

# 使用uniroot函数求解方程
solution <- uniroot(equation, interval = c(0, 10))
print(solution)

# 定义方程
equation <- function(p) {
  # 方程定义
  # 例如：return(p^2 - 4)
}

# 定义迭代函数
newton_method <- function(equation, initial_value, tolerance) {
  p <- initial_value
  while (abs(equation(p)) > tolerance) {
    p <- p - equation(p) / derivative(p)
  }
  return(p)
}

# 使用牛顿法求解方程
solution <- newton_method(equation, initial_value = 2, tolerance = 0.001)
print(solution)

# 定义目标函数
objective <- function(p) {
  # 目标函数定义
  # 例如：return(p^2 - 4)
}

# 使用optim函数进行梯度下降法优化
solution <- optim(par = 2, fn = objective, method = "L-BFGS-B")
print(solution$par)