Nothing
transformPhi <- function(theta.ha, constraints) {
s <- dim(constraints)[1]
phi.ha.tran <- rep(NA,s)
for(i in 1:s) {
if(constraints[i,1] == 1)
phi.ha.tran[i] <- theta.ha[constraints[i,2]] else
phi.ha.tran[i] <-
theta.ha[constraints[i,3]] - theta.ha[constraints[i,2]]
}
return(phi.ha.tran)
}
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.