# NOT RUN {
# Five groups of people answer two yes/no/undecided questions
# Note: this is just an example, and does not intend to claim that this
# is the correct analysis for such a data set
x <- as.matrix( rbind( c(22,25,18,22), c(12,23,21,27),
c(31,12,28,22), c(29,14,35,11), c(7,31,12,21)))
xresampled <- myresamplefn(x)
bmr <- cabootcrs(x,"myresample",nboots=199)
# }
Run the code above in your browser using DataLab