R/pullfsts_all.r

In nreid/mscr: a bunch of random things

pullfstsall<-function(reg){
	
	fil<-list.files("~/popgen/variants/bowfree/ALL1/","wcfst.gz$")
	com<-gsub(".wcfst.*","",fil)
	fil<-paste("~/popgen/variants/bowfree/ALL1/",fil,sep="")

	for(i in 1:length(fil)){

		

		}
	
	}