Commit c1315d92 authored by Marco Chierici's avatar Marco Chierici
Browse files

Bug fixing

parent 308844b5
......@@ -67,11 +67,11 @@ registerDoParallel(cl)
# task-dependent: generate splits tr/ts
tgt <- targets[[task]] # column name of the target variable
if(task=="ER") {
mrg.sub <- mrg[mrg[, tgt] %in% c("Negative", "Positive"), ]
mrg.sub <- mrg[mrg[[tgt]] %in% c("Negative", "Positive"), ]
} else if(task=="subtypes") {
mrg.sub <- mrg[mrg[, tgt] %in% c("Basal-like", "HER2-enriched", "LuminalA", "LuminalB"), ]
mrg.sub <- mrg[mrg[[tgt]] %in% c("Basal-like", "HER2-enriched", "LuminalA", "LuminalB"), ]
}
y <- factor(mrg.sub[, tgt])
y <- factor(mrg.sub[[tgt]])
foreach(split.id=seq(0, 9), .verbose=FALSE) %dopar% {
outdir <- file.path(OUTROOT, tumor, "INF", ifelse(task=="ER", "breast_ER", task), split.id)
......
Supports Markdown
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