## Not run:
# data(zachary)
# summary(zachary~degseq)
# summary(zachary~blkdegseq(c(0,16,34),1)+blkdegseq(c(0,16,34),2))
# summary(zachary~blkedges(c(16,34),1:3))
# summary(zachary~blktriangle(c(16,34),1:2))
# summary(zachary~blkkstar(1:3,c(16,34),1:2))
# summary(zachary~blktriangle2(c(16,34),1:2))
# summary(zachary~blkkstar2(1:3,c(16,34),1:2))
# summary(zachary~blkkstar3(1:3,c(16,34),2))
# ## End(Not run)
Run the code above in your browser using DataLab