Browse code

change to internal function

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

Rob Scharp authored on 08/04/2009 00:58:49
Showing 3 changed files

... ...
@@ -130,4 +130,10 @@ is decoded and scanned
130 130
 
131 131
 * fixed bug in cnrma
132 132
 
133
+2009-04-07 Rob Scharpf - committed versioni 1.0.78
134
+
135
+* added conf as argument to instantiateObjects
136
+
137
+
138
+
133 139
 
... ...
@@ -1,7 +1,7 @@
1 1
 Package: crlmm
2 2
 Type: Package
3 3
 Title: Genotype Calling (CRLMM) and Copy Number Analysis tool for SNP 5.0 and 6.0 arrays.
4
-Version: 1.0.77
4
+Version: 1.0.78
5 5
 Date: 2008-12-30
6 6
 Author: Rafael A Irizarry, Benilton S Carvalho <bcarvalh@jhsph.edu>, Robert Scharpf <rscharpf@jhsph.edu>, Matt Ritchie <mritchie@wehi.EDU.AU>
7 7
 Maintainer: Benilton S Carvalho <bcarvalh@jhsph.edu>, Robert Scharpf <rscharpf@jhsph.edu>, Matt Ritchie <mritchie@wehi.EDU.AU>
... ...
@@ -186,7 +186,7 @@ goodSnps <- function(phi.thr, envir, fewAA=20, fewBB=20){
186 186
 	return(flags)
187 187
 }
188 188
 
189
-instantiateObjects <- function(calls, NP, plate, envir, chrom, A, B,
189
+instantiateObjects <- function(calls, conf, NP, plate, envir, chrom, A, B,
190 190
 			       gender, SNRmin=5, SNR,
191 191
                                pkgname){
192 192
 	pkgname <- paste(pkgname, "Crlmm", sep="")
... ...
@@ -318,7 +318,7 @@ computeCopynumber <- function(chrom,
318 318
 	set.seed(seed)
319 319
 	if(missing(chrom)) stop("must specify chromosome")
320 320
 	if(length(ls(envir)) == 0) {
321
-		instantiateObjects(calls=calls, NP=NP, plate=plate,
321
+		instantiateObjects(calls=calls, conf=conf, NP=NP, plate=plate,
322 322
 				   envir=envir, chrom=chrom, A=A, B=B,
323 323
 				   gender=gender, SNR=SNR, SNRmin=SNRmin,
324 324
 				   pkgname=cdfName)