|
|
@@ -208,7 +208,30 @@ for (data_set in data_sets){ # data_set = "aclew"
|
|
|
|
|
|
|
|
|
write.csv(df.icc.corpus,"../OUTPUT/df.icc.corpus.csv",row.names=F)
|
|
|
+```
|
|
|
|
|
|
+```{r}
|
|
|
+mydat <- read.csv(paste0('../DATA/', 'aclew','_metrics.csv'))
|
|
|
+
|
|
|
+child_per_corpus = setNames(aggregate(data = mydat, child_id ~ experiment, function(child_id) length(unique(child_id))), c('experiment', 'No_Children'))
|
|
|
+rec_per_corpus = setNames(aggregate(data = mydat, session_id ~ experiment, function(session_id) length(unique(session_id))), c('experiment', 'No_Rec'))
|
|
|
+dur_per_corpus = setNames(aggregate(data = mydat, duration_vtc ~ experiment, function(duration_vtc) sum(duration_vtc)/3.6e+6), c('experiment', 'Duration_h'))
|
|
|
+age_mean_per_corpus = setNames(aggregate(data = mydat, age ~ experiment, function(age) mean(age)), c('experiment', 'Mean_Age'))
|
|
|
+age_min_per_corpus = setNames(aggregate(data = mydat, age ~ experiment, function(age) min(age)), c('experiment', 'Min_Age'))
|
|
|
+age_max_per_corpus = setNames(aggregate(data = mydat, age ~ experiment, function(age) max(age)), c('experiment', 'Max_Age'))
|
|
|
+
|
|
|
+corp_code = data.frame(
|
|
|
+ experiment=c("bergelson", "cougar", "fausey-trio", "lucid", "warlaumont", "winnipeg"),
|
|
|
+ code=c("BER", "COU", "TRI", "L05", "WAR", "MCD"),
|
|
|
+ location=c("Northeast US", "Northwest US", "Western US", "Northwest England", "Western US", "Western Canada")
|
|
|
+)
|
|
|
+
|
|
|
+corp_desc_list = list(corp_code, child_per_corpus, rec_per_corpus, dur_per_corpus, age_mean_per_corpus, age_min_per_corpus, age_max_per_corpus)
|
|
|
+
|
|
|
+corpus_description <- Reduce(function(x, y) merge(x, y, all=TRUE), corp_desc_list)
|
|
|
+corpus_description <- transform(corpus_description, Age_Range=paste(Min_Age, Max_Age, sep="-"))
|
|
|
+corpus_description <- subset(corpus_description, select = -c(Min_Age, Max_Age))
|
|
|
+write.csv(corpus_description, "../OUTPUT/corpus_description.csv", sep='\t')
|
|
|
nkids=length(levels(factor(paste(mydat$experiment,mydat$child_id))))
|
|
|
```
|
|
|
|
