Nothing
#' @export
#'
slopebypoint <-
function(data)
{
t<-seq(0,length(data)-1,1)
s<-stats::lm(data~t)$coef[2]
names(s)<-NULL
s<-s
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.