comparison report_clonality/RScript.r @ 42:9a47d7a552d6 draft

Uploaded
author davidvanzessen
date Thu, 26 Oct 2017 09:08:37 -0400
parents a70dbcfa5d8a
children 2325074a8461
comparison
equal deleted inserted replaced
41:a70dbcfa5d8a 42:9a47d7a552d6
46 # ---------------------- Data preperation ---------------------- 46 # ---------------------- Data preperation ----------------------
47 47
48 print("Report Clonality - Data preperation") 48 print("Report Clonality - Data preperation")
49 49
50 inputdata = read.table(infile, sep="\t", header=TRUE, fill=T, comment.char="", stringsAsFactors=F) 50 inputdata = read.table(infile, sep="\t", header=TRUE, fill=T, comment.char="", stringsAsFactors=F)
51
52 inputdata$Sample = as.character(inputdata$Sample)
51 53
52 54
53 print(paste("nrows: ", nrow(inputdata))) 55 print(paste("nrows: ", nrow(inputdata)))
54 56
55 setwd(outdir) 57 setwd(outdir)