Skip to content

Instantly share code, notes, and snippets.

@JoFrhwld

JoFrhwld/global_means.R

Created September 30, 2015 11:05
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save JoFrhwld/548adb3e8a59ec56182a to your computer and use it in GitHub Desktop.
Save JoFrhwld/548adb3e8a59ec56182a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
global_means.R
library(purrr)
library(dplyr)
library(data.table)
meas_files <- Sys.glob("DataDirectory/speakers/*/*.txt")
meas_files %>%
map(~fread(.)[,list(idstring = gsub("(*).txt",
"\\1",
basename(.)),
F1_mean = mean(F1),
F1_sd = sd(F1),
F2_mean = mean(F2),
F2_sd = sd(F2))])%>%
rbind_all() -> means_sds
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment