R/import_export_slim.R

Defines functions import_file

#import/export function



import_file <- function(modus, filename, locnum, popnum){

	#import data, put it together as a list and return it
	p<-array(0,c(locnum,1))
	
	population<-list();
	if(modus == 0){ 
		for(i in 1:popnum){
			tmp<-matrix(as.integer(scan(filename,what="",skip=5+(i-1)*(locnum+2),nlines=locnum)),ncol=3,byrow=TRUE);
			#colnames(tmp)<-(c("Index","Max","Hap"));
			tmp<-matrix(append(tmp,p),ncol=4)
			population[[i]]<-tmp;
		}
	#modus 1 -> codominant marker
	} else {
		hapnum<-as.integer(scan(filename,what="",skip=5,nlines=1)[3]);
		for(i in 1:popnum){
			tmp<-matrix(as.integer(scan(filename,what="",skip=5+(i-1)*(locnum+2),nlines=locnum)),ncol=(hapnum+3),byrow=TRUE);
			population[[i]]<-tmp;
		}
	}

	print("Data successfully imported!");



	return(population)
}

Try the BlockFeST package in your browser

Any scripts or data that you put into this service are public.

BlockFeST documentation built on March 15, 2021, 9:07 a.m.