inst/data-raw/process/Core_Serology/process.R

ser <- fread("Serology.tsv", na = "")
for (col in names(ser)[-1]) ser[[col]] <- as.integer(factor(ser[[col]], levels = c("N", "P"))) - 1
write.table(ser, "Serology_ref.tsv", sep = "\t", quote = F, row.names = F)
avucoh/nPOD documentation built on April 1, 2020, 5:24 p.m.