title: "pa_2" author: "Jorge VM" date: "2024-03-18" output: github_document

library(tidyverse)

data <- read_csv("data/data.csv")

dat <-data |>
  separate(info, into = c("word", "stress"), sep = "_")

means <- dat|>
  group_by(stress)|>
  summarise(dur = mean(durationV), f0 = mean(f0), int = mean(int))