In stefanocoretta/tidygam: Tidy Prediction and Plotting of Generalised Additive Models

knitr::opts_chunk$set(echo = TRUE)
knitr::opts_knit$set(root.dir = here::here())
library(tidyverse)

gest <- read_csv("https://raw.githubusercontent.com/stefanocoretta/infant-gestures/master/data/gestures.csv") %>%
  select(-ends_with("_raw"), -ct, -pro_rata) %>%
  group_by(dyad, background, months, gesture) %>%
  summarise(
    count = sum(count, na.rm = TRUE),
    .groups = "drop"
  ) %>%
  mutate(across(where(is.character), as.factor))

usethis::use_data(gest, overwrite = TRUE)

# Not run due to very large file.
#
# set.seed(101)
# struct <- read_csv("https://osf.io/nqaz6/download") %>%
#   filter(
#     electrode == 62,
#     t %% 10 == 0,
#     subject %in% sort(as.character(sample(unique(struct$subject), 10)))
#   )  %>%
#  mutate(across(where(is.character), as.factor))

usethis::use_data(struct, overwrite = TRUE)

stefanocoretta/tidygam documentation built on Dec. 21, 2024, 7:32 a.m.