git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/crlmm@54391 bc3139a8-67e5-0310-9ffc-ced21a209358
Rob Scharp authored on 03/04/2011 02:50:01
| ... | ... |
@@ -1932,7 +1932,7 @@ isCall <- function(G, call){
|
| 1932 | 1932 |
G.call |
| 1933 | 1933 |
} |
| 1934 | 1934 |
|
| 1935 |
-computeSummary(object, G.call, call, I, allele, Ns, call=1, index){
|
|
| 1935 |
+computeSummary <- function(object, G.call, call, I, allele, Ns, index){
|
|
| 1936 | 1936 |
k <- match("grandMean", batchNames(object))
|
| 1937 | 1937 |
stats <- summaryStats(G.call, I, FUNS=c("rowMedians", "rowMAD"))
|
| 1938 | 1938 |
Ns[, k] <- rowSums(G.call, na.rm=TRUE) |