[Robast-commits] r266 - pkg/RobLoxBioC/R

[noreply at r-forge.r-project.org]

Author: stamats
Date: 2009-03-14 12:22:16 +0100 (Sat, 14 Mar 2009)
New Revision: 266

Modified:
   pkg/RobLoxBioC/R/robloxAffyBatch.R
Log:
return se not sd ...

Modified: pkg/RobLoxBioC/R/robloxAffyBatch.R
===================================================================
--- pkg/RobLoxBioC/R/robloxAffyBatch.R	2009-03-12 13:47:44 UTC (rev 265)
+++ pkg/RobLoxBioC/R/robloxAffyBatch.R	2009-03-14 11:22:16 UTC (rev 266)
@@ -79,6 +79,7 @@
             ind1 <-  as.vector(sapply(seq_len(n)-1, function(x, ind, m){ ind + x*m }, ind = ind, m = m))
             rob.est[ind1, 1:2] <- robloxbioc(log2(t(temp)), eps = eps, eps.lower = eps.lower, 
                                              eps.upper = eps.upper, steps = steps, mad0 = mad0)
+            rob.est[ind1, 2]/sqrt(k)
         }
         if(verbose) cat(" done.\n")
         exp.mat <- 2^matrix(rob.est[,1], nrow = m) + add.constant