R/extract_y.R

Defines functions extract_y

extract_y <-
function(fit){
 mu <- coef(fit) 
 ni <- nrow(fit$model)
 sfit <- summary(fit)
 vari <- (sfit$sigma)^2
 return(list(mu=mu, ni=ni, vari=vari))}
schaarschmidt/mixADA documentation built on May 29, 2019, 3:25 p.m.