if (FALSE) {
# Read all columns in and convert sequence fields to upper case
db <- readChangeoDb("changeo.tsv")
# Subset columns and convert sequence fields to upper case
db <- readChangeoDb("changeo.tsv", select=c("SEQUENCE_ID", "SEQUENCE_IMGT"))
# Drop columns and do not alter sequence field case
db <- readChangeoDb("changeo.tsv", drop=c("D_CALL", "DUPCOUNT"),
seq_upper=FALSE)
}
Run the code above in your browser using DataLab