pubh (version 1.1.3)

Thall: RCT on the treatment of epilepsy.

Description

Randomised control trial of an antiepilectic drug (prograbide), in which the number of seizures of 59 patients at baseline and other four follow-up visits were recorded.

Usage

Thall

Format

A tibble with 59 rows and 8 variables:

id

Subject ID.

treat

Treatment, factor with levels "Control" and "Prograbide".

base

Number of seizures at baseline.

age

Age in years at baseline.

y1

Number of seizures at year one follow-up.

y2

Number of seizures at year two follow-up.

y3

Number of seizures at year three follow-up.

y4

Number of seizures at year four follow-up.

Examples

# NOT RUN {
data(Thall)

c1 <- cbind(Thall[, c(1:5)], count = Thall$y1)[, c(1:4, 6)]
c2 <- cbind(Thall[, c(1:4, 6)], count = Thall$y2)[, c(1:4, 6)]
c3 <- cbind(Thall[, c(1:4, 7)], count = Thall$y3)[, c(1:4, 6)]
c4 <- cbind(Thall[, c(1:4, 8)], count = Thall$y3)[, c(1:4, 6)]
epilepsy <- rbind(c1, c2, c3, c4)

require(lme4)
model_glmer <- glmer(count ~ treat + base + I(age - mean(age, na.rm = TRUE)) +
                 (1|id), data = epilepsy, family = poisson)
glm_coef(model_glmer, labels = c("Treatment (Prograbide/Control)",
                               "Baseline count", "Age (years)"))
# }