Nothing
CutoffW <-
function(res,delta,cu=1.8554,zmax=10,gridsize=2000){
# computes cutoff on residual scale
xs <- seq(from=cu,to=zmax,length=gridsize)
fs <- apply(as.matrix(xs),1,RappW,res=res,delta=delta)
alpha <- min(min(fs[2,]),1)
xu <- max(xs[fs[1,] < alpha])
xl <- Izero(xu)
list(alpha=alpha,tl=xl,tu=xu)}
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.