Displaying 1 result from an estimated 1 matches for "diff_len".
Did you mean:
buff_len
2011 Aug 30
1
R crash
..."), sep="_")
filename <- gsub(".median", "", filename)
select_mean <-
summaryBy(as.formula(paste(".~",names(select)[ind.xvar])), data=select,
FUN=mean)
devSVG(file=paste(filename, ".svg", sep=""))
par(mfrow=c(2,2))
diff_len <- length(select)-length(select_mean)
for (i in seq_along(seq.yvar)){
k <- seq.yvar[i]
plot(select[[k]]~select[[ind.xvar]], type="p", pch=1,
xlab=names(select)[ind.xvar], ylab=names(select)[k], las=1)
points(select_mean[[ind.xvar-diff_len]], select_mean[[k-diff_len]],...