CI.E1$lower
barplot(with(e1e2,tapply(rating,IND=list(Expt,newitem),mean)),
        axes=F,axisnames=F,
        ylim=c(1,4),
        col=c("black","gray"),
        beside=TRUE,xpd=F,
        xlab="",
        ylab="",
        cex.lab=2,
        main="Mean ratings for targets versus controls",
        cex.main=1.5)

arrows(1:9,CI.E1$lower,1:9,CI.E1$upper,angle=90)

q()
?seq
sequence
sequence
sequence
?arrows
?arrows
summary(e1e2balanced)
summary(e1e2.balanced)
unique(e1e2.balanced$Subject)
length(unique(e1e2.balanced$Subject))
length(unique(e1e2$Subject))
head(e1e2)
unique(e1e2$Subject)
q()
head(e1e2)
?xyplot
q()
