Nothing
accrual.T.inform <-
function(n,TT,P,m,tm,np) {
qB=qbeta(c(0.025,0.5,0.975), np-m, n*P+m)
rB=rbeta(10000,np-m, n*P+m)
qTOT=(TT*P+tm)*qB/(1-qB)+tm
rTOT=(TT*P+tm)*rB/(1-rB)+tm
return(list(qTOT,rTOT))
}
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.