Nothing
robust.spline<-function(designmat,y,r,kmweight=NULL){
X=designmat$X
knots=designmat$knots
Boundary.knots=designmat$Boundary.knots
degree=designmat$degree
fit<-pen.m(y, X,r,kmweight)
return(list(estimates=fit$estimates,y_hat=fit$y_hat,knots=knots,Boundary.knots=Boundary.knots,degree=degree,X=X))
}
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.