famids <- sample(famid, length(unique(famid)), replace = TRUE)
new.files <- expand.multic(famids, "input/mloci.out", "input/share.out")
mult.obj <- multic( -- your formula, data, famid, etc. here --
mloci.out = new.files$new.mloci.out,
share.out = new.files$new.share.out)Run the code above in your browser using DataLab