diff peakhelper.r @ 1:243f75d0ed6e draft default tip

Uploaded. Includes new release 1.0.7 with fixed optional controls.
author messersc
date Thu, 19 Feb 2015 05:39:45 -0500
parents d42f4d78c85e
children
line wrap: on
line diff
--- a/peakhelper.r	Wed Dec 17 10:40:23 2014 -0500
+++ b/peakhelper.r	Thu Feb 19 05:39:45 2015 -0500
@@ -1,8 +1,22 @@
-#########################################################################################
-#### Fixes output of peakfinder.r to produce proper narrowPeak format with proper scores
-#### R script		
-########################################################################################
-
+########################################################################
+# JAMMv1.0.7rev1 is a peak finder for joint analysis of NGS replicates.
+# Copyright (C) 2014-2015  Mahmoud Ibrahim
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#
+# Contact: mahmoud.ibrahim@mdc-berlin.de
+########################################################################
 
 
 
@@ -38,20 +52,6 @@
 
 
 
-
-# ============================================== 
-# Required Libraries check (Source: http://r.789695.n4.nabble.com/test-if-a-package-is-installed-td1750671.htm)
-# ============================================== 
-if ((is.element('sqldf', installed.packages()[,1]) == FALSE)) {
-	stop("R package 'sqldf' is required. Please install it!")
-}
-suppressPackageStartupMessages(library("sqldf"))
-suppressPackageStartupMessages(library("tcltk"))
-#=======================> DONE! 
-
-
-
-
 # ================= 
 # Custom Functions
 # =================