manuscript/misc/setup.R

In nim-ach/ASQ3: data from the ASQ-3 study from CADI-UMAG

# Load the necessary packages
library(ASQ3)
library(data.table)

# For GAMS
library(mgcv)
library(brms)

# For tables
library(gt)
library(gtsummary)

# Load the data
data("dataset", package = "ASQ3")

# Work only with a subset of data whom:
# 1. Includes only observations from assessment 1
# 2. Includes subjects with diagnosis of congenital hypotonia
# 3. Subjects whose age is not greater than 60 months old (chronological age)
dataset <- dataset[i = n_evaluacion == 1 & diagnostico %like% "hipotonia" & edad_cronologica_meses <= 35]

# Drop levels of unused factors
fv <- dataset[, names(.SD), .SDcols = is.factor]
dataset[, (fv) := lapply(.SD, droplevels), .SDcols = fv][]
rm(fv)