data(digit3.dat)
k<-dim(digit3.dat)[1]
n<-dim(digit3.dat)[3]
digit3.dat[,2,]<- -digit3.dat[,2,]+50
par(pty="s")
plot(digit3.dat[,,1],xlim=c(0,50),ylim=c(0,50),type="n",xlab="",ylab="")
for (i in 1:n){
lines(digit3.dat[,,i])
}
Run the code above in your browser using DataLab