# NOT RUN {
# }
# NOT RUN {
data(RandomVA5)
sample.output <- InterVA5(RandomVA5, HIV = "h", Malaria = "v", write=FALSE)
topSymptoms <- getTopSymptoms(object = sample.output,
data = RandomVA5,
IDs = sample.output$ID[1],
pretty = TRUE,
includeAll = FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab