data(x100)
# Block and assign:
out <- block(x100, groups = "g", n.tr = 2, id.vars = "id", block.vars = c("b1", "b2"))
assg <- assignment(out, seed = 123)
# create three .tex files of blocks
if (FALSE) outTeX(out)
# create three .tex files of assigned blocks
# (note: overwrites blocked .tex files)
if (FALSE) outTeX(assg)
# create three .tex files with custom file names and captions
if (FALSE) outTeX(assg, file.names = c("f1", "f2", "f3"), captions = c("C 1.", "C 2.", "C 3."))
Run the code above in your browser using DataLab