Nothing
"MCbound.tsprt" <-
function(parms,conf.level=.99){
bparms<-tSPRT.to.Bvalue(parms)
#print(bparms)
out<-MCbound.Bvalue(bparms["Nmax"],bparms["alpha"],bparms["e0"],bparms["e1"],conf.level)
### output tsprt parameterization instead of Bvalue parameterization
out$type<-"tsprt"
out$parms<-parms
out
}
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.