Browse code

removed extraneous line in rowMAD

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/crlmm@58615 bc3139a8-67e5-0310-9ffc-ced21a209358

Rob Scharp authored on 01/10/2011 04:44:43
Showing1 changed files

... ...
@@ -425,7 +425,7 @@ rowCovs <- function(x, y, ...){
425 425
 }
426 426
 
427 427
 rowMAD <- function(x, y, ...){
428
-	notna <- !is.na(x)
428
+	##notna <- !is.na(x)
429 429
 	mad <- 1.4826*rowMedians(abs(x-rowMedians(x, ...)), ...)
430 430
 	return(mad)
431 431
 }