# \donttest{
set.seed(10)
# Simple example
canvas_function(colors = colorPalette("tuscany1"))
# Advanced example
formula <- list(
x = quote(x_i^2 - sin(y_i^2)),
y = quote(y_i^3 - cos(x_i^2))
)
canvas_function(colors = "firebrick", formula = formula)
# }
Run the code above in your browser using DataLab