#Apparently, the algo.atwins can crash on some LINUX systems
#thus for now the example section is commented
#Load the data used in the Held et al. (2006) paper
data("hepatitisA")
#Fix seed - this is used for the MCMC samplers in twins
set.seed(123)
#Call algorithm and save result
otwins <- algo.twins(hepatitisA)
#This shows the entire output
plot(otwins,which=c(1,2),ask=FALSE)
Run the code above in your browser using DataLab