# نصب و بارگذاری کتابخانه pracma
install.packages("pracma")
library(pracma)

# حل یک معادله غیرخطی
f <- function(x) x^3 - 6*x^2 + 11*x - 6
ریشه <- fzero(f, c(1, 3))  # جستجوی ریشه بین 1 و 3

print(ریشه$root)