diff QDNAseq.R @ 79:05e5358b8828 draft

Uploaded
author stef
date Thu, 05 Mar 2015 09:53:39 -0500
parents 81ba2f857fe2
children 67cbaa54fa03
line wrap: on
line diff
--- a/QDNAseq.R	Wed Mar 04 08:42:14 2015 -0500
+++ b/QDNAseq.R	Thu Mar 05 09:53:39 2015 -0500
@@ -290,7 +290,7 @@
 
 	## proceed with segmenting / calling if requested
 	if ( doSegment ){
-		copyNumbersSegmented  <- segmentBins( copyNumbersSmooth, undo.splits=undoSplits, undo.SD=undoSD, transformFun="sqrt" )
+		copyNumbersSegmented  <- segmentBins( copyNumbersSmooth, undo.splits=undoSplits, undo.SD=undoSD, transformFun=c("sqrt") )
 		copyNumbersSegmented  <- normalizeSegmentedBins( copyNumbersSegmented )
 		outputData <- copyNumbersSegmented
 		outputType <- 'segments'