Displaying 1 result from an estimated 1 matches for "genemat".
2009 Apr 09
1
.Call()
Hi guys,
I want to transfer the following code from R into .Call compatible form. How
can i do that?
Thanks!!!
INT sim;
for(i in 1:sim){
if(i>2) genemat <- genemat[,sample(1:ncol(genemat))]
ranklist[,1] <- apply(genemat, 1, function(x){
(mean(x[cols]) -
mean(x[-cols]))/sd(x)})
ranklist <- ranklist[order(ranklist[,1]),]
if(ranklist[1,2]==1) score[i] <- 1/Ns
if(ranklist[1,2]...