Displaying 1 result from an estimated 1 matches for "pplotnmradd".
2007 Jan 31
0
Interactive plots with R
...(VECP) <- rownames(DATAPPM)
names (VECS) <- rownames(DATAS)
SEL <- names(VECP[VECP>MIN & VECP<MAX])
VECP <- VECP[SEL]
VECS <- VECS[SEL]
plot (VECP,VECS,type="l",xlim=c(MAX,MIN),xlab="PPM",ylab="intensity",
ylim=c(YMIN,YMAX))
panel})
}
pplotNMRadd<- function (panel) {
with (panel, {
sample <- as.numeric (sample.text)
VECP <- DATAPPM[,sample]
VECS <- DATAS[,sample]
names (VECP) <- rownames(DATAPPM)
names (VECS) <- rownames(DATAS)
SEL <- names(VECP[VECP>MIN & VECP<MAX])
VECP <- VECP[SEL]
VECS <- V...