Nothing
setMethod("getClpindepX", signature(model="spec"),
function(model, multimodel, theta, returnX, rawtheta, dind)
{
if(returnX)
theta <- getThetaCl(rawtheta, multimodel)[[dind]]
x <- specModel(theta@specpar, model)
if(returnX)
x <- as.vector(x)
x
})
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.