# 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
comcat <- COMCAT.interVA5(sample.output$VA5)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab