# NOT RUN {
data(act_29pt)
data(clinic_29pt_ahi)
data <- act_29pt
ahi <- clinic_29pt_ahi
### Example 1: Continuous Covariate
matchida <- fda.matchid(data, ahi, "contin")
### Example 2: Categorical Covariate
ahi$ahicat <- as.factor(
ifelse(ahi$AHI >= 0 & ahi$AHI <= 5, 1,
ifelse(ahi$AHI > 5 & ahi$AHI <= 15, 2,
ifelse(ahi$AHI > 15 & ahi$AHI <= 30, 3,
ifelse(ahi$AHI > 30, 4, 0))))
)
matchidb <- fda.matchid(data, ahi[,-2], "factor",
c("normal", "mild", "moderate", "severe"))
# }
Run the code above in your browser using DataLab