R/speciesFunFix.R

In mqqc: Quality control of LCMS derived proteomic data

speciesFunFix <- 	function(){
		     species.path<- list.files(path.package("mqqc"),pattern = "MQQCspecies.txt$",full.name = T,recursive = T)
			 species <- read.csv(species.path[1],sep = "\t",stringsAsFactors = F)
			 try(species <- fix(species))	
			 write.table(species,file =species.path,quote = F, row.names = F,sep = "\t")
         print("wrote Species Table")
		
	}