# load the target table information
data(target.table)
# create a subset of the table
target.table.sub <- list()
target.table.sub$compound <- target.table$compound[1:2]
target.table.sub$ms <- target.table$ms[1:2]
# write the subset into a csv file
putTargetTable(target.table = target.table.sub,
target.table.file.name = "TargetTableSub.csv")
Run the code above in your browser using DataLab