![]() |
# Fig. 3.1.: 4 artificial data sets to explain data distribution
library(StatDA) pdf("fig-3-1.pdf",width=8,height=4) par(mfrow=c(2,2),mar=c(4,2,1,2)) x1=c(2,11,15,18,19.3,20,21,22.5,24,28,37) plot(x1,rep(0.1,length(x1)),xlab="Data values",ylab="",cex.lab=1.2,yaxt="n", frame.plot=F,xlim=c(0,40),ylim=c(0,1),pch=3) x2=c(3,5,6.5,7.8,9,10.1,12,27,28.1,29.4,30.8,32,33.1,35) plot(x2,rep(0.1,length(x2)),xlab="Data values",ylab="",cex.lab=1.2,yaxt="n", frame.plot=F,xlim=c(0,40),ylim=c(0,1),pch=3) x3=c(1,22,29,33,35,36.5,37.5,38.0,38.4,38.8,39) plot(x3,rep(0.1,length(x3)),xlab="Data values",ylab="",cex.lab=1.2,yaxt="n", frame.plot=F,xlim=c(0,40),ylim=c(0,1),pch=3) x4=c(2,2.5,3.1,3.9,4.9,6.2,8,12,17,25,39) plot(x4,rep(0.1,length(x4)),xlab="Data values",ylab="",cex.lab=1.2,yaxt="n", frame.plot=F,xlim=c(0,40),ylim=c(0,1),pch=3) dev.off() |