1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| QCstat<-read.table("01.CleanData/QCstat.xls",skip = 1) colnames(QCstat) <- c( 'Sample Name', 'Raw PE(#)', 'Combined(#)', 'Qualified(#)', 'Nochime(#)', 'Base(nt)', 'AvgLen(nt)', 'Q20', 'Q30', 'GC%', 'Effective%' ) sampleName<-QCstat$`Sample Name` df <- data.frame( `sample-id` = sampleName, `absolute-filepath` = paste0( "/mnt/e/xiongyi/Chile/01.CleanData/", sampleName, "/", sampleName, ".fastq" ), stringsAsFactors = F ) colnames(df) <- c("sample-id", "absolute-filepath") write.table( df, "metadata.tsv", quote = F, row.names = F, sep = "\t" )
|