if (FALSE) {
##load car data
data(car)
## Compute a sample of the posterior distribution
## for the disjunctive model with two features
## compute the starting point using plfm
carbayes2<-bayesplfm(maprule="disj",freq1=car$freq1,freqtot=car$freqtot,F=2,
maxNiter=500,Nburnin=0,Nstep=100,Nchains=2,
start.bayes="best")
## print the object generated by bayesplfm
carbayes2
}
Run the code above in your browser using DataLab