# HG changeset patch
# User kpbioteam
# Date 1528819338 14400
# Node ID 0fae75cb6146f675adc6e520b768ea5183b2872e
# Parent  5dba3e018990f455a7b99cc7183a13fff9174495
planemo upload for repository https://github.com/kpbioteam/minfi_dmr commit 65d01f00526cadfcd1f52d06243fbc87ffee462f-dirty

diff -r 5dba3e018990 -r 0fae75cb6146 minfi_dmr.R
--- a/minfi_dmr.R	Tue Jun 12 11:56:46 2018 -0400
+++ b/minfi_dmr.R	Tue Jun 12 12:02:18 2018 -0400
@@ -47,7 +47,8 @@
 nullMethod <- input8
 coef <- 2 #default
 verbose <- input9
-  
+meth <- as.numeric(input10)
+
 dmrs <- bumphunter(GRSet,
                     design = design.matrix, 
                     cluster = cluster,
@@ -59,6 +60,6 @@
 
 
 dmrGR <- with(dmrs$table,GRanges(chr,IRanges(start,end),area=area,value=value))
-dmrGR$type <- ifelse(abs(dmrGR$value)<input10, "neither", ifelse(dmrGR$value<0,"hypo","hyper"))
+dmrGR$type <- ifelse(abs(dmrGR$value)<meth, "neither", ifelse(dmrGR$value<0,"hypo","hyper"))
 
 write.table(dmrGR, file= output1, quote = FALSE, row.names = FALSE, sep = "\t")