inst/knight/preprocess.r

x <- read.csv("13059_2016_1068_MOESM3_ESM.csv", stringsAsFactors=F)

coefs <- x[,c("CpGmarker","CoefficientTraining")]
colnames(coefs) <- c("pred.var","coef")

write.csv(coefs, file="coefs.csv", row.names=F)
perishky/meffonym documentation built on Nov. 8, 2024, 8:36 p.m.