12345678 |
- read.csv("../input/ACLEW_list_of_corpora - recording_level.csv")->x
- table(x$labname)
- x[x$labname %in% c("BER","ROW","SOD","WAR"),c("labname" ,"aclew_id" ,"child_level_id","number_older_sibs")]->x
- write.csv(x,"../input/aclew_md.csv",row.names = F)
- read.csv("../input/quechua_children.csv")->x
- x[,c("experiment" ,"child_id","n_of_siblings")]->x
- write.csv(x,"../input/quechua_md.csv",row.names = F)
|