Nothing
PePNRM <-
function(quads,mueERG=mueERG)
{
thetas <- mapply(function(eachG,ql)
{
PPzae <- ql$nodes * eachG$LjmalA
thet <- colSums(PPzae) / eachG$Pji_schlange
thet
},eachG=mueERG$mue_hat_g,ql=quads,SIMPLIFY=FALSE)
return(thetas=thetas)
}
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.