Continious Variables

dataAdasCog11 <- subset(dataAll$ADQSADAS, PARAMCD == "ACTOT")
dataCIBIC <- subset(dataAll$ADQSCIBC, PARAMCD == "CIBICVAL")

dataEfficacy <- plyr::rbind.fill(dataAdasCog11, dataCIBIC)

dataEfficacy$TRTP <- with(dataEfficacy, reorder(TRTP, TRTPN))
dataEfficacy$AVISIT <- with(dataEfficacy, reorder(AVISIT, AVISITN))

stats <- getStatsData(
    data = dataEfficacy, 
    var = c("AVAL", "CHG"), 
    type = c("n", "mean (se)", "median (range)")
)

getSummaryStatisticsTable(
    data = dataEfficacy,
    rowVar = "PARAM",
    colVar = c("TRTP", "AVISIT"),
    var = c("AVAL", "CHG"), 
    stats = stats,
    labelVars = labelVars,
    title = paste("Table: efficacy endpoints", 
        toTitleCase("actual value and changes from baseline per time point"             
    ))
    # file = file.path("tables_CSR", "Table_efficacy.docx")
)

Table: efficacy endpoints Actual Value and Changes from Baseline per Time Point

Parameter

Placebo

Xanomeline Low Dose

Xanomeline High Dose

Variable

Statistic

Baseline
(N=2)

Week 8
(N=2)

Week 16
(N=2)

Week 24
(N=2)

Baseline
(N=2)

Week 8
(N=2)

Week 16
(N=2)

Week 24
(N=2)

Baseline
(N=3)

Week 8
(N=3)

Week 16
(N=3)

Week 24
(N=3)

Adas-Cog(11) Subscore

Analysis Value

n

2

2

2

2

2

2

2

2

3

3

3

3

Mean (SE)

14.0 (6.00)

16.5 (3.50)

17.5 (2.50)

17.5 (2.50)

32.0 (23.00)

37.0 (25.00)

38.5 (23.50)

37.0 (25.00)

15.7 (6.36)

16.7 (6.36)

15.3 (5.21)

17.7 (5.36)

Median (range)

14.0 (8,20)

16.5 (13,20)

17.5 (15,20)

17.5 (15,20)

32.0 (9,55)

37.0 (12,62)

38.5 (15,62)

37.0 (12,62)

15.0 (5,27)

16.0 (6,28)

16.0 (6,24)

22.0 (7,24)

Change from Baseline

n

-

2

2

2

-

2

2

2

-

3

3

3

Mean (SE)

-

2.5 (2.50)

3.5 (3.50)

3.5 (3.50)

-

5.0 (2.00)

6.5 (0.50)

5.0 (2.00)

-

1.0 (0.00)

-0.3 (1.33)

2.0 (2.89)

Median (range)

-

2.5 (0,5)

3.5 (0,7)

3.5 (0,7)

-

5.0 (3,7)

6.5 (6,7)

5.0 (3,7)

-

1.0 (1,1)

1.0 (-3,1)

2.0 (-3,7)

CIBIC Score

Analysis Value

n

-

1

1

1

-

2

2

2

-

2

3

3

Mean (SE)

-

6.0 ( NA)

5.0 ( NA)

5.0 ( NA)

-

5.0 (0.00)

4.5 (0.50)

4.5 (0.50)

-

4.5 (0.50)

4.0 (0.00)

4.3 (0.33)

Median (range)

-

6.0 (6,6)

5.0 (5,5)

5.0 (5,5)

-

5.0 (5,5)

4.5 (4,5)

4.5 (4,5)

-

4.5 (4,5)

4.0 (4,4)

4.0 (4,5)