# NOT RUN {
# Reporting
presentation.model = PresentationModel() +
Project(username = "[Mediana's User]",
title = "Case study 1",
description = "Clinical trial in patients with pulmonary arterial hypertension") +
Section(by = "outcome.parameter") +
Table(by = "sample.size") +
CustomLabel(param = "sample.size",
label= paste0("N = ",c(50, 55, 60, 65, 70))) +
CustomLabel(param = "outcome.parameter",
label=c("Standard 1", "Standard 2"))
# }
Run the code above in your browser using DataLab