Displaying 1 result from an estimated 1 matches for "myplt".
Did you mean:
myplot
2004 Aug 19
3
List dimention labels to plots of components
...t;
Treatment<-rep("A",16)
Treatment[treatment==0]<-"B"
dat<-data.frame(Sex,Dose,Treatment,fix,Response)
# Redundant Transfer and Execution of Dimension ID?
mymod<-function(x){
model<-lm(Response~Sex,data=x)
list(model,Dose=x$Dose[1],Treatment=x$Treatment[1])}
myplt<-function(x){
plot(x[[1]],main=paste(x$Dose,"/",x$Treatment,sep=""))}
# Generate list of Model Estimates
dat.lm<-by(dat,list(Dose=dat$Dose,Treatment=dat$Treatment),mymod)
# Execute plots with labels
pdf(file="junk.pdf",height=7.5,width=10)
par(mfrow=c(2,2))...