#!/usr/local/bin/perl

use R;
use RReferences;

&R::initR("--silent");
&R::library("RSPerl");
&R::setDebug(0);
&R::load("peak-pick.r");

&R::callWithNames("peakpick", {'sample', 'A01', 'fraction', 10, sigma1, 2, sigma2, 3, errorRatio, 0.1, regionRatio, 0.001});