comparison experimental_design/experimental_design.r @ 40:106275b54470 draft

Uploaded

39:bad6a9a53ae7

for(current in inputs){
	if(grepl("/", current)){ #its a path to a file
		print(paste("Adding file", counter, "to", current.id))
		dat = read.table(current, sep="\t", header=T, quote="", fill=T)
		
		#IMGT check
		
		dat$Sample = current.id
		dat$Replicate = counter

40:106275b54470

for(current in inputs){
	if(grepl("/", current)){ #its a path to a file
		print(paste("Adding file", counter, "to", current.id))
		dat = read.table(current, sep="\t", header=T, quote="", fill=T)
		
		if(nrow(dat) == 0){
			print(paste(counter, "of", current.id, "has no sequences, skipping"))
			next
		}
		
		#IMGT check
		
		dat$Sample = current.id
		dat$Replicate = counter