Displaying 1 result from an estimated 1 matches for "pplotnmr".
Did you mean:
plotner
2007 Jan 31
0
Interactive plots with R
...spectra are redrawed after axis scaling.
Or maybe I need to study samples and documentation for tcltk package?
My script:
DATAPPM=seq(0,11,0.004)
DATAPPM=data.frame(DATAPPM,DATAPPM,DATAPPM)
DATAS=data.frame
(S1=sample(1:3260,2751),S2=sample(1:3260,2751),S3=sample(1:3260,2751))
library (rpanel)
pplotNMR <- function (panel) {
with (panel,{
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 <- VECS[SEL]
plot (VECP,VECS,type="l&...