Nothing
partransformvector <-
function(p){
numbs <- (length(p)+1)/3
l<-vector()
mu<- vector()
t<-vector()
for (i in 1:numbs){
l<-c(l, p[i+numbs]/(1-p[i]))
mu<- c(mu,p[i] * p[i+numbs]/(1-p[i]))
if (i<numbs){
t<-c(t,p[i+2*numbs])
}
}
t<-c(0,t)
rbind(l,mu,t)
}
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.