# NOT RUN {
# }
# NOT RUN {
data(RandomVA5)
# only fit first 20 observations for a quick illustration
RandomVA5 <- RandomVA5[1:20, ]
sample.output <- InterVA5(RandomVA5, HIV = "h", Malaria = "v", write=TRUE,
directory = tempdir(), filename = "VA5_result", output = "extended", append = FALSE)
## Get CSMF without plots
csmf <- CSMF.interVA5(sample.output$VA5)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab