Browse code

update ACN function

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

Rob Scharp authored on 15/11/2010 14:20:57
Showing1 changed files

... ...
@@ -524,11 +524,11 @@ ACN <- function(object, allele, i , j){
524 524
 				acn[acn.index, ] <- 0
525 525
 			}
526 526
 		}
527
-		if(is.ff){
528
-			close(nuB(object))
529
-			close(phiB(object))
530
-			close(B(object))
531
-		}
527
+	}
528
+	if(is.ff){
529
+		close(nuB(object))
530
+		close(phiB(object))
531
+		close(B(object))
532 532
 	}
533 533
 	return(acn)
534 534
 }