copy epc

2020-05-28 13:56:27 +02:00 · 2020-05-28 13:56:27 +02:00 · c73d397dbe
commit c73d397dbe
parent 72935b75e1
1 changed files with 1 additions and 0 deletions
--- 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){