Commit f719750d authored by Gael  MILLOT's avatar Gael MILLOT
Browse files

v5.0.0 release updated

parent 50f64da5
......@@ -94,7 +94,7 @@ analysis.kind <- "longit"
cross.valid.ratio <- 0.8
random.seed <- FALSE
'
# eval(parse(text = debug2)) ; cat(paste0("\n\n================\n\nERROR: ACTIVE DEBUG VALUES\n\n================\n\n")) ; stop()
eval(parse(text = debug2)) ; cat(paste0("\n\n================\n\nERROR: ACTIVE DEBUG VALUES\n\n================\n\n")) ; stop()
# data.frame(PARAM = tempo.arg.names, ARG = args) # for debug mode
......@@ -283,9 +283,9 @@ d4 <- d4[25:length(d4)]
names(d4) <- paste0("SEB_", h[25:length(h)]) # SEB add
df.nano <- cbind(df.nano, d4)
# the next line is a request from by LARS ROGGE
genes_to_remove <- c('HLA_DRB1','HLA_DQA1','HLA_DQB1','HLA_DRA','HLA_DRB3',
genes_to_remove <- as.vector(outer(c("LPS_", "SEB_"), c('HLA_DRB1','HLA_DQA1','HLA_DQB1','HLA_DRA','HLA_DRB3',
'KIR_Activating_Subgroup_1','KIR_Activating_Subgroup_2',
'KIR_Inhibiting_Subgroup_1','KIR_Inhibiting_Subgroup_2')
'KIR_Inhibiting_Subgroup_1','KIR_Inhibiting_Subgroup_2'), paste, sep=""))
df.nano <- df.nano[, ! (colnames(df.nano) %in% genes_to_remove)]
################ Data modification
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment