Run_simulation/junk3.R

In jiji6454/Rpac_compReg: Compositional Data Regression

p_list <- list()
p_list$y = drop(y_new)
Znew[, 1] <- as.numeric(Znew[, 1])
p_list$X = Znew
p_list$k = as.numeric(k_se)


param_list <- as.list(object$Funcomp.CGL.fit[[k_se]]$call)
param_list <- param_list[!param_list %in% c("FuncompCGL", "Zc", "Intercept", "W")]
param_list$outer_maxiter <- 0
param_list$X <- as.data.frame(Znew)
param_list$T.name <- colnames(Znew)[2]
param_list$ID.name <- colnames(Znew)[1]
param_list$k <- as.numeric(k_se)
param_list$y <- drop(y_new)
param_list[c("y", "X")]