diff RScript.r @ 3:20f0df3721aa draft

Uploaded
author davidvanzessen
date Mon, 25 Sep 2017 08:07:11 -0400
parents 7ffd0fba8cf4
children 89d80f086328
line wrap: on
line diff
--- a/RScript.r	Mon Sep 18 09:01:19 2017 -0400
+++ b/RScript.r	Mon Sep 25 08:07:11 2017 -0400
@@ -112,7 +112,6 @@
   onx = paste(on, ".x", sep="")
   ony = paste(on, ".y", sep="")
   splt = split(x, x$Sample, drop=T)
-  print(splt)
   type="pair"
   if(length(splt) == 1){
     print(paste(paste(x[1,which(colnames(x) == "Patient")]), "has one sample"))