Nothing
`fthetacum` <-
function(angles, degrees=TRUE, ...){
ps <- c()
for(i in seq_along(angles)){
upangle <- ifelse(degrees, angles[i], angles[i]*pi/180)
ps[i] <- integrate(ftheta,lower=0,upper=upangle, degrees=degrees, ...)[[1]]
}
ps
}
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.