powered by
data(qcet2.dat)
Data from Paul O'Higgins (Hull-York Medical School) and David Johnson (Leeds)
data(qcet2.dat) k<-dim(qcet2.dat)[1] n<-dim(qcet2.dat)[3] par(pty="s") plot(qcet2.dat[,,1],xlim=c(0,250),ylim=c(0,250),type="n",xlab="",ylab="") for (i in 1:n){ points(qcet2.dat[,,i],pch=c(1:k)) }
Run the code above in your browser using DataLab