| ... | ... |
@@ -49,7 +49,6 @@ threshold="all", lp=NA, full=FALSE) |
| 49 | 49 |
lp[i] <- 1 |
| 50 | 50 |
sstat <- apply(Arowmax, 1, function(x) sqrt(t(x-lp)%*%(x-lp))) |
| 51 | 51 |
ssranks[order(sstat),i] <- 1:length(sstat) |
| 52 |
- print(dim(ssgenes)) ; print(length(names(sort(sstat)))) |
|
| 53 | 52 |
ssgenes[,i]<-names(sort(sstat,decreasing=FALSE,na.last=TRUE)) |
| 54 | 53 |
} |
| 55 | 54 |
} |
