[Patchwork-commits] r69 - pkg/patchworkCG/R

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

Author: sebastian_d
Date: 2012-01-19 15:52:38 +0100 (Thu, 19 Jan 2012)
New Revision: 69

Modified:
   pkg/patchworkCG/R/patchwork.CGCNV.r
Log:
Commit for markus to fix stuff

Modified: pkg/patchworkCG/R/patchwork.CGCNV.r
===================================================================
--- pkg/patchworkCG/R/patchwork.CGCNV.r	2012-01-19 13:56:00 UTC (rev 68)
+++ pkg/patchworkCG/R/patchwork.CGCNV.r	2012-01-19 14:52:38 UTC (rev 69)
@@ -1,6 +1,6 @@
 patchwork.CGCNV = function(cn2,delta,het,hom,maxCn=8,ceiling=1,name="CGCNV_")
 	{
-	# patchwork.CGCNV()
+	# patchwork.CGCNV(0.75,0.35,0.25,0.95)
 	#packagepath = system.file(package="patchwork")
 	#load(paste(packagepath,"/data/commonSnps132.RData",sep=""))
 	#load(paste(packagepath,"/data/ideogram.RData",sep=""))
@@ -264,8 +264,8 @@
     regions$mCn <- mCn
     regions$fullCN <- fullCN
     
-    save(regions,file="Regions.RData")
-
+    save(regions,int,ai,file="Regions.RData")
+    
 	write.csv(regions,file='Copynumbers.csv')
 	
 	meanCn <- weightedMean(regions$Cn,regions$np)