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)