casteljau <- function(x,degree = NULL){ return(bezier::bezier(t = 1:length(x)/length(x),p = x, deg=degree)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.