R/generate_JointModelEq.R

Defines functions generate_JointModelEq

Documented in generate_JointModelEq

generate_JointModelEq <-
function(varMNAR,data){
  JointModelEq<-data.frame(matrix(rep(0,2*length(varMNAR)*dim(data)[2]),nrow=dim(data)[2]),
                          row.names=names(data))
  JointModelEq_colnames<-NULL
  for (i in 1:length(varMNAR)){
    JointModelEq_colnames<-c(JointModelEq_colnames,
                             c(paste(varMNAR[i],"_var_sel",sep=""),
                               paste(varMNAR[i],"_var_out",sep="")))}
  names(JointModelEq)<-JointModelEq_colnames
  return(JointModelEq)
}

Try the miceMNAR package in your browser

Any scripts or data that you put into this service are public.

miceMNAR documentation built on May 2, 2019, 8:31 a.m.