R/doOneGen.R

In YinanZheng/PGS: Penalized GEE with Grid Search

## Internal function: doOne code generater

doOneGen <- function(model.text, colind.text){
  L = length(eval(parse(text = colind.text)))
  script = paste0("doOne <- function(i, datarun, Mdat){datarun$Mone <- Mdat[,i];model <- ", model.text,";if('try-error' %in% class(model)) b <- rep(NA, ",L,") else { res=summary(model)$coefficients; b <- as.numeric(res[2,",colind.text,"])};invisible(b)}")
  return(script)
}