Nothing
plot.reco <- function(x, ...){
#if(length(x)>1){stop("more than one reco model achieved. please provide just one")}
x <- x[[1]]
plot(R ~ Temp, data=x$model, ...)
nd <- seq(min(x$model$Temp), max(x$model$Temp), length.out=100)
lines(predict(x, newdata=data.frame(Temp=nd)) ~ nd)
}
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.