## Not run:
# MFClusBoot(lesion ~ group + cluster(litter), piglung)
#
# # Bootstrapping clusters. . . . .
# #
# # 10000 bootstrap samples of clusters
# # Comparing vac to con
# #
# # 95% confidence interval
# #
# # observed median lower upper
# # Equal Tailed 0.3533835 0.3630573 0.07382550 0.6567271
# # Highest Density 0.3533835 0.3630573 0.07262462 0.6551724
# #
# # Excluded Clusters
# # [1] M, Q, R, B, O, V, I, C
#
# MFClusBoot(lesion ~ group + cluster(litter), piglung, boot.unit = T, b = 12, B = 12)
#
# #### 144 resamples to save time
# #
# # Bootstrapping clusters. . . . . . . . . . . . . . . .
# # Bootstrapping units. . . . . . . . . . . . . . . . .
# #
# # 10000 bootstrap samples of clusters and units in treatment in cluster
# # Comparing vac to con
# #
# # 95% confidence interval
# #
# # observed median lower upper
# # Equal Tailed 0.3533835 0.3714286 -0.0138888889 0.7162213
# # Highest Density 0.3533835 0.3714286 -0.0001472081 0.7297387
# #
# # Excluded Clusters
# # [1] M, Q, R, B, O, V, I, C
# ## End(Not run)
Run the code above in your browser using DataLab