Displaying 1 result from an estimated 1 matches for "dosumplot".
Did you mean:
dosomeplot
2012 May 25
1
Multiple rms summary plots in a single device
...e
it may be having some influence. Thank you!
Mike
tData <- data.frame(groups=as.factor(1:8), low=as.factor(1:4)
,high=as.factor(seq(100, 400, 100)), rand=runif(400))
tData <- data.table(tData)
setkeyv(tData, 'groups')
dd <- datadist(tData)
options(datadist = 'dd')
doSumPlot <- function(segment){
seg <<- tData[groups == segment,]
plot(summary(rand ~
+ low
+ high
,data = seg
), main=paste('Group:', segment))
}
for(i in 1:length(levels(tData$groups))){
cat('Group: ', i, '\n')
if(i == 1 ){
dev.new()
par(mfrow=c(2,2))...