Displaying 1 result from an estimated 1 matches for "select_mean".
2011 Aug 30
1
R crash
...yvar <- c(5,12,8,9)
ind.xvar <- 4
filename <- paste("regression", names(datobj)[ind.xvar],
paste(names(datobj)[seq.yvar],collapse="_"),
paste(selvarstr,collapse="_"), 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]...