Mercurial > repos > davidvanzessen > prisca

comparison RScript.r @ 3:20f0df3721aa draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Mon, 25 Sep 2017 08:07:11 -0400
parents 7ffd0fba8cf4
children 89d80f086328
comparison
equal deleted inserted replaced
2:7ffd0fba8cf4 3:20f0df3721aa
110 onShort = "freq" 110 onShort = "freq"
111 } 111 }
112 onx = paste(on, ".x", sep="") 112 onx = paste(on, ".x", sep="")
113 ony = paste(on, ".y", sep="") 113 ony = paste(on, ".y", sep="")
114 splt = split(x, x$Sample, drop=T) 114 splt = split(x, x$Sample, drop=T)
115 print(splt)
116 type="pair" 115 type="pair"
117 if(length(splt) == 1){ 116 if(length(splt) == 1){
118 print(paste(paste(x[1,which(colnames(x) == "Patient")]), "has one sample")) 117 print(paste(paste(x[1,which(colnames(x) == "Patient")]), "has one sample"))
119 splt[[2]] = splt[[1]][NULL,] 118 splt[[2]] = splt[[1]][NULL,]
120 type="single" 119 type="single"