# example of table iv [PMID:15238601]
lapply(c("SCHTAVGR", "SCHTGLGR", "EDLIAYLK"), ssrc)
Rc <- list()
Rc[['W']] <- 11.0;
Rc[['F']] <- 10.5;
Rc[['L']] <- 9.6;
Rc[['I']] <- 8.4;
Rc[['M']] <- 5.8;
Rc[['V']] <- 5.0;
Rc[['Y']] <- 4.0;
Rc[['A']] <- 0.8;
Rc[['T']] <- 0.4;
Rc[['P']] <- 0.2;
Rc[['E']] <- 0.0;
Rc[['D']] <- -0.5;
Rc[['C']] <- -0.8;
Rc[['S']] <- -0.8;
Rc[['Q']] <- -0.9;
Rc[['G']] <- -0.9;
Rc[['N']] <- -1.2;
Rc[['R']] <- -1.3;
Rc[['H']] <- -1.3;
Rc[['K']] <- -1.9;
RcNt <- lapply(Rc, function(x){sum(unlist(Rc))/20 - x})
ssrc <- unlist(lapply(peptideStd, function(x){ssrc(x$peptideSequence)}))
rt <- unlist(lapply(peptideStd, function(x){x$rt}))
plot(ssrc, rt)
abline(ssrc.lm <- lm(rt ~ ssrc), col='red');
legend("topleft", paste("spearman", round(cor(ssrc, rt, method='spearman'),2)))
Run the code above in your browser using DataLab