Displaying 1 result from an estimated 1 matches for "confmisc1".
Did you mean:
confmisc
2011 Oct 13
1
Legend symbols (line, points) in one column.
...;-1:5
y<-1*x+rnorm(10)
data1<-data.frame(x,y,type=rep("data",length(x)))
model1<-lm(y~x,data=data1)
data2<-data.frame(x=seq(0,6,.1))
data2$y<-predict(model1,newdata=data2)
data2$type<-rep("model",nrow(data2))
dataT<-rbind(data1,data2)
dataT
require(lattice)
confMisc1<- simpleTheme(pch = c(19,1),lwd=c(2,1),cex=1.5,
lty=1,col=c("black"))
xyplot(y~x,group=type,
type=c("p","l"),
key=list(space="right",text=list(c("Data","Model")),
points=list(pch=c(as.integer(NA)...