[Patchwork-commits] r71 - in pkg/patchworkCG: R man

[noreply at r-forge.r-project.org]

Author: sebastian_d
Date: 2012-01-19 17:02:59 +0100 (Thu, 19 Jan 2012)
New Revision: 71

Modified:
   pkg/patchworkCG/R/patchwork.CGCNV.r
   pkg/patchworkCG/man/patchwork.CG.Rd
Log:
Going home commit

Modified: pkg/patchworkCG/R/patchwork.CGCNV.r
===================================================================
--- pkg/patchworkCG/R/patchwork.CGCNV.r	2012-01-19 15:25:25 UTC (rev 70)
+++ pkg/patchworkCG/R/patchwork.CGCNV.r	2012-01-19 16:02:59 UTC (rev 71)
@@ -110,7 +110,7 @@
     ai$cn3m1 <- ifelse (!is.null(med),med,expectedAt)
 
     # now for cn3m0
-    expectedAt <- ai$cn3m1 + range; if (expextedAt>1) expectedAt <- (ai$cn3m1+1)/2
+    expectedAt <- ai$cn3m1 + range; if (expectedAt>1) expectedAt <- (ai$cn2m0+1)/2
     
     ix <- (abs(data$ai-expectedAt) < (expectedAt-ai$cn3m1)/4)  # take those much closer to exp than to cn3m1
     med <- weightedMedian(data$ai[ix],data$snvs[ix]) 

Modified: pkg/patchworkCG/man/patchwork.CG.Rd
===================================================================
--- pkg/patchworkCG/man/patchwork.CG.Rd	2012-01-19 15:25:25 UTC (rev 70)
+++ pkg/patchworkCG/man/patchwork.CG.Rd	2012-01-19 16:02:59 UTC (rev 71)
@@ -72,7 +72,7 @@
 %}
 
 \author{
-Markus Rasmussen, \email{markus.rasmussen at medsci.uu.se}
+Markus Mayrhofer, \email{markus.mayrhofer at medsci.uu.se} \cr
 Sebastian DiLorenzo, \email{sebastian.dilorenzo at medsci.uu.se}
 }
 %\note{