data("nma.schwingshackl2014")
# Return the first six trials of the dataset
head(nma.schwingshackl2014)
# The names of the interventions in the order they appear in the dataset
interv_names <- c("aerobic", "resistance", "combined training")
# Create the heatmap
heatmap_missing_dataset(data = nma.schwingshackl2014,
trial_names = nma.schwingshackl2014$study,
drug_names = interv_names)
Run the code above in your browser using DataLab