Bioconductor Code: Browse

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

R/methods-CNSet.R index d2c81bb..880e97e 100644

R/methods-CNSet.R

History View file @f373895

@@ -524,11 +524,11 @@ ACN <- function(object, allele, i , j){
 				acn[acn.index, ] <- 0
 			}
 		}
-		if(is.ff){
-			close(nuB(object))
-			close(phiB(object))
-			close(B(object))
-		}
+	}
+	if(is.ff){
+		close(nuB(object))
+		close(phiB(object))
+		close(B(object))
 	}
 	return(acn)
 }

...	...	@@ -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	}