# condition on swim times to see how run times vary
bplot.xy( minitri$swim, minitri$run, N=5)
# bivariate normal corr= .8
set.seed( 123)
x<-rnorm( 2000)
y<- .8*x + sqrt( 1- .8**2)*rnorm( 200)
#
bplot.xy(x,y)
#
bplot.xy( x,y, breaks=seq( -3, 3,,25) ,
xlim =c(-4,4), ylim =c(-4,4), col="grey80", lwd=2)
points( x,y,col=3, cex=.5)
Run the code above in your browser using DataLab