##                  Pos & Neg
## Positive & 2 &  7.32 &  7.50\\
## &          4 &  7.60 &  6.76\\
## &          6 &  7.80 &  7.48\\
##  Negative & 2 &  5.28 &  7.52\\
## &           4 &  7.44 &  7.28\\
## &           6 &  8.24 &  6.48\\
##  None & 2 &  7.96 &  6.80\\
## &       4 &  7.40 &  7.72\\
## &       6 &  8.08 &  7.48\\\bottomrule

Intent <- array(c(7.32,7.60,7.80,5.28,7.44,8.24,7.96,7.40,8.08,
7.50,6.76,7.48,7.52,7.28,6.48,6.80,7.72,7.48),c(3,3,2))
dimnames(Intent) <- list(Arguments=c(2,4,6),
                         Background=c("Positive","Negative","None"),
                         Frame=c("Positive","Negative"))
Intention <- c(Intent)
Arguments <- rep(c(2,4,6),6)
Background <- rep(rep(c("Positive","Negative","None"),c(3,3,3)),2)
Frame <- rep(c("Positive","Negative"),c(9,9))

# coplot(Intention ~ Arguments | Background*Frame,typ="l")


postscript(file="fig0.eps",width=8,height=8,
horiz=F,onefile=F,pointsize=18,paper="special")

plot(c(2,4,6),Intention[1:3],xlim=c(2,18),ylim=c(5,8.5),pch=19,col="maroon",
               xlab="Number of arguments",ylab="Behavioral intention",xaxt="n")
y.lm <- fitted(lm(Intention[1:3] ~ c(2,4,6)))
segments(2, y.lm[1], 6, y.lm[3],col="maroon")
points(c(8,10,12),Intention[4:6],col="maroon",pch=19)
y.lm <- fitted(lm(Intention[4:6] ~ c(8,10,12)))
segments(8, y.lm[1], 12, y.lm[3],col="maroon")
points(c(14,16,18),Intention[7:9],col="maroon",pch=19)
y.lm <- fitted(lm(Intention[7:9] ~ c(14,16,18)))
segments(14, y.lm[1], 18, y.lm[3],col="maroon")

points(c(2,4,6),Intention[10:12],col="blue")
y.lm <- fitted(lm(Intention[10:12] ~ c(2,4,6)))
segments(2, y.lm[1], 6, y.lm[3],col="blue",lty=2)
points(c(8,10,12),Intention[13:15],col="blue")
y.lm <- fitted(lm(Intention[13:15] ~ c(8,10,12)))
segments(8, y.lm[1], 12, y.lm[3],col="blue",lty=2)
points(c(14,16,18),Intention[16:18],col="blue")
y.lm <- fitted(lm(Intention[16:18] ~ c(14,16,18)))
segments(14, y.lm[1], 18, y.lm[3],col="blue",lty=2)

mtext(side=1,line=1,at=c(1,2,3,3.5,4,5,6,6.5,7,8,9)*2,text=c(2,4,6,"|",2,4,6,"|",2,4,6))
abline(v=7)
abline(v=13)
text(c(4,10,16),5.15,labels=c("Positive\nbackground","Negative\nbackground","No\nbackground"))
legend(14,6.42,legend=c("Gain","Loss"),title="Frame:",
       col=c("maroon","blue"),pch=c(19,1))

dev.off()