2.5 Create MSnSet

# Create MSnSet
m <- create_msnset(crosstab = crosstab, samples = samples)
m

## MSnSet (storageMode: lockedEnvironment)
## assayData: 26047 features, 18 samples 
##   element names: exprs 
## protocolData: none
## phenoData
##   sampleNames: S1_1 S1_2 ... S2_9 (18 total)
##   varLabels: ReporterName PlexID ... MeasurementName (5 total)
##   varMetadata: labelDescription
## featureData: none
## experimentData: use 'experimentData(object)'
## Annotation:  
## - - - Processing information - - -
##  MSnbase version: 2.22.0

# Save phospho MSnSet
save(m, file = "data/phospho_msnset.RData", compress = TRUE)