powered by
paired(x, y)
x<-rnorm(15) y<-rnorm(15) p1<-paired(x,y) show(p1) data(iceskating) p2<-with(iceskating,paired(Extension,Flexion)) show(p2)
Run the code above in your browser using DataLab