Displaying 1 result from an estimated 1 matches for "meanprotw10activists".
2002 Apr 13
2
trouble getting output from graphs, again
...code:
dat <- read.table("a816bstat7vis.csv",header=T);
attach(dat)
x11(height=6, width=6,pointsize=12)
plot (pop,meanProtWnoActivists,pch=22, main="Mean Protest Level During
Experiment",xlab="population",ylab="mean protest",ylim=c(0,100));
points(pop,meanProtW10Activists,pch=23,col="blue")
points(pop,meanProtW20Activists,pch=24,col="red")
legend(locator(1),c("w/0 activists","w/10 activists","w/20
activists"),pch=c(22,23,24),col=c("black","blue","red"))
dev.copy(device=postscript,fil...