### R code from vignette source 'plvol.rnw'

###################################################
### code chunk number 1: load
###################################################
library( MethComp )
data( plvol )


###################################################
### code chunk number 2: scatter
###################################################
pw <- to.wide(plvol)
par( mar=c(3,3,1,1), mgp=c(3,1,0)/1.6 )
with(pw, plot( Hurley ~ Nadler, pch=16, xlim=range(plvol$y), ylim=range(plvol$y) ) )
abline( 0,1 )


###################################################
### code chunk number 3: BA-plot
###################################################
par( mar=c(3,3,1,3), mgp=c(3,1,0)/1.6 )
BA.plot( plvol, diflim=c(-20,5), h.grid=seq(-20,10,5) )
abline( h=0 )


###################################################
### code chunk number 4: log-BA
###################################################
BA.plot( plvol, mult=TRUE, diflim=c(0.8,1.05),
         digits=2, h.grid=seq(80,110,5)/100 )
abline( h=1, lwd=2 )


###################################################
### code chunk number 5: plvol.rnw:119-121
###################################################
DA.reg( plvol )
DA.reg( plvol, Transform="log" )