Nothing
setMethod("randeff",
signature(object = "bild"),
function (object)
{
coef <- object@coefficients
bi.est<- object@bi.estimate
nas <- is.na(coef[, 1])
cnames <- names(coef[, 1][!nas])
names(coef)<-cnames
X<-object@model.matrix
# for one random effect
if ( !all(is.na(match(cnames, "omega"))))
{ n.cases<- length(bi.est)
id<-c(1:n.cases)
tabela2<-as.data.frame(matrix(as.double(bi.est),nrow=n.cases,ncol=1))
dimnames(tabela2) <- list(c(1:n.cases), "(Intercept)")
return(tabela2)
}
else
warning("\nOnly to Random effects model")
})
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.