## Not run:
# 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)
# ## End(Not run)
Run the code above in your browser using DataLab