# Create data
data <- data.frame(x = rnorm(200))
data$y <- data$x^2 + rnorm(200, 0, 0.5)
model <<- lm(y ~ poly(x, 2), data = data)
link_data <- estimate_relation(model, length = 100)
describe_nonlinear(link_data, x = "x")
Run the code above in your browser using DataLab