linez_lsfit <- function(p) {
print_debug_info(p)
if (!is_set(p$lsfit_series)) return(p)
# lsfit(p$data[,1], p$data[,2])$coef[1] + lsfit(p$data[,1], p$data[,2])$coef[2] * p$data[, 1]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.