Plot the response group of GC-MS
plotgroup(data, threshold = 2)
imported data matrix of GC-MS
the threshold of the response (log based 10) to separate the group
list linear regression model for the data matrix
if (FALSE) {
data <- getmd(rawdata)
plotgroup(data)
}