# NOT RUN {
data(scores);
if(!dir.exists("data")){
dir.create("data");
}
if(!dir.exists("results")){
dir.create("results");
}
save(S,file="data/scores.rda");
flat.dir <- "data/";
flat.norm.dir <- "results/";
flat.file <- "scores";
norm.types <- c("MaxNorm","Qnorm");
for(norm.type in norm.types){
Do.flat.scores.normalization(norm.type=norm.type, flat.file=flat.file,
flat.dir=flat.dir, flat.norm.dir=flat.norm.dir);
}
# }
Run the code above in your browser using DataLab