R/mice.impute.copulaSS.R

In GJRM: Generalised Joint Regression Modelling

Defines functions mice.impute.copulaSS

Documented in mice.impute.copulaSS

mice.impute.copulaSS <- function(y, ry, x, mice.formula, margins, copula, ...) {

x <- as.data.frame(x) 

x[, "ry"] <- ry
x[, "y"]  <- y

out <- gjrm(mice.formula, data = x, model = "BSS", margins = margins, copula = copula)
return(imputeSS(out, 1)[[1]])

}



  

Try the GJRM package in your browser