# R program to calculate root of an equation
  
# Function with equation
fun <- function(x) {2 * x ^ 2 - 4 * x -10}
  
# Calling uniroot() function
uniroot(fun, lower = 0, upper = 4)

$root
[1] 3.449485

$f.root
[1] -4.310493e-05

$iter
[1] 5

$init.it
[1] NA

$estim.prec
[1] 6.103516e-05

# R program to calculate root of an equation
  
# Function with equation
fun <- function(x) {2 * x ^ 2 - 4 * x -10}
  
# Calling uniroot() function
uniroot(fun, c(0, 4))root
uniroot(fun, lower = -4, upper = 0)root

[1] 3.449485
[1] -1.44949