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