Nothing
# A function that evaluates integral of an I-splines (first, second or third integral)
integrateIspline <- function(x, knots1, m, int) {
if (int==1) {
integratedIspline <- ispline1(x, knots1, m)
return(integratedIspline)
}
if (int==2) {
integratedIspline <- ispline2(x, knots1, m)
return(integratedIspline)
}
integratedIspline <- ispline3(x, knots1, m)
return(integratedIspline)
}
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.