if (FALSE) data( hba1c )
if (FALSE) str( hba1c )
if (FALSE) hba1c <- transform( subset( hba1c, type=="Ven" ),
meth = dev,
repl = d.ana )
if (FALSE) hb.res <- MCmcmc( hba1c, n.iter=50 )
if (FALSE) data( hba.MC )
if (FALSE) str( hba.MC )
if (FALSE) par( ask=TRUE )
if (FALSE) plot( hba.MC )
if (FALSE) plot( hba.MC, pl.obs=TRUE )
Run the code above in your browser using DataLab