git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/crlmm@60963 bc3139a8-67e5-0310-9ffc-ced21a209358
Rob Scharp authored on 29/11/2011 20:01:16
| ... | ... |
@@ -1,7 +1,7 @@ |
| 1 | 1 |
Package: crlmm |
| 2 | 2 |
Type: Package |
| 3 | 3 |
Title: Genotype Calling (CRLMM) and Copy Number Analysis tool for Affymetrix SNP 5.0 and 6.0 and Illumina arrays. |
| 4 |
-Version: 1.13.3 |
|
| 4 |
+Version: 1.13.4 |
|
| 5 | 5 |
Date: 2010-12-10 |
| 6 | 6 |
Author: Benilton S Carvalho <Benilton.Carvalho@cancer.org.uk>, Robert Scharpf <rscharpf@jhsph.edu>, Matt Ritchie <mritchie@wehi.edu.au>, Ingo Ruczinski <iruczins@jhsph.edu>, Rafael A Irizarry |
| 7 | 7 |
Maintainer: Benilton S Carvalho <Benilton.Carvalho@cancer.org.uk>, Robert Scharpf <rscharpf@jhsph.edu>, Matt Ritchie <mritchie@wehi.EDU.AU> |
| ... | ... |
@@ -576,9 +576,9 @@ setMethod("calculateRBaf", signature(object="CNSet"),
|
| 576 | 576 |
bf[grBB] <- 1 |
| 577 | 577 |
|
| 578 | 578 |
r.expected <- matrix(NA, nrow(object), ncol(a)) |
| 579 |
- r.aa <- matrix(RTheta.aa[, "R"], nrow(object), ncol(object), byrow=FALSE) |
|
| 580 |
- r.ab <- matrix(RTheta.ab[, "R"], nrow(object), ncol(object), byrow=FALSE) |
|
| 581 |
- r.bb <- matrix(RTheta.bb[, "R"], nrow(object), ncol(object), byrow=FALSE) |
|
| 579 |
+ r.aa <- matrix(RTheta.aa[, "R"], nrow(object), length(J), byrow=FALSE) |
|
| 580 |
+ r.ab <- matrix(RTheta.ab[, "R"], nrow(object), length(J), byrow=FALSE) |
|
| 581 |
+ r.bb <- matrix(RTheta.bb[, "R"], nrow(object), length(J), byrow=FALSE) |
|
| 582 | 582 |
rm(RTheta.aa, RTheta.ab, RTheta.bb); gc() |
| 583 | 583 |
obs.r <- a+b |
| 584 | 584 |
|