# NOT RUN {
data(RandomVA5)
# only fit first 20 observations for a quick illustration
RandomVA5 <- RandomVA5[1:20, ]
## to get easy-to-read version of causes of death make sure the column
## orders match interVA5 standard input this can be monitored by checking
## the warnings of column names
sample.output1 <- InterVA5(RandomVA5, HIV = "h", Malaria = "l",
write = FALSE, directory = tempdir(), filename = "VA5_result",
output = "extended", append = FALSE)
summary(sample.output1)
summary(sample.output1, top = 10)
summary(sample.output1, id = "sample3")
# }
Run the code above in your browser using DataLab