select_key_aclew_md.R 397 B

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