From c73d397dbed81049ebe3f8f00e2294748987ae29 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roland=20Holl=C3=B3s?= <hollorol@gmail.com>
Date: Thu, 28 May 2020 13:56:27 +0200
Subject: [PATCH] copy epc

---
 RBBGCMuso/R/calibration.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/RBBGCMuso/R/calibration.R b/RBBGCMuso/R/calibration.R
index 2dd178b..085df9b 100644
--- a/RBBGCMuso/R/calibration.R
+++ b/RBBGCMuso/R/calibration.R
@@ -259,6 +259,7 @@ musoGlue <- function(presCalFile, w, delta = 0.17, settings=setupMuso(), paramet
     write.csv(as.data.frame(optimalEpc),"epcOptim.csv")
     print(head(optRanges,n=-2))
     calibMuso(calibrationPar=optimalEpc[[1]],parameters=optimalEpc[[2]])
+    file.copy(settings$epcInput[2],"epcOptim.epc")
 }
 
 generateOptEpc <- function(optRanges,delta, maxLikelihood=FALSE){