[Seqinr-commits] r2101 - in pkg: . R

[noreply at r-forge.r-project.org]

Author: simonpenel
Date: 2020-07-03 15:41:50 +0200 (Fri, 03 Jul 2020)
New Revision: 2101

Modified:
   pkg/DESCRIPTION
   pkg/R/extract.breakpoints.R
Log:
Function extract.breakpoints is modified as suggested by Sofia Rigou

Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION	2019-09-04 11:36:47 UTC (rev 2100)
+++ pkg/DESCRIPTION	2020-07-03 13:41:50 UTC (rev 2101)
@@ -1,7 +1,7 @@
 Encoding: UTF-8
 Package: seqinr
-Version: 3.6-1
-Date: 2019-09-04
+Version: 3.6-2
+Date: 2020-07-03
 Title: Biological Sequences Retrieval and Analysis
 Authors at R: c(person("Delphine", "Charif", role = "aut"),
              person("Olivier", "Clerc", role = "ctb"),

Modified: pkg/R/extract.breakpoints.R
===================================================================
--- pkg/R/extract.breakpoints.R	2019-09-04 11:36:47 UTC (rev 2100)
+++ pkg/R/extract.breakpoints.R	2020-07-03 13:41:50 UTC (rev 2101)
@@ -40,8 +40,8 @@
 
     i=0
     while(i<gridsize){
-     
-      initpsi=runif(nbreaks[which(type==t)],min=min(x.breaks),max=max(x.breaks))
+      border=(max(x.breaks)-min(x.breaks))*0.05
+      initpsi = runif(nbreaks[which(type == t)], min = (min(x.breaks)+border),max = (max(x.breaks)- border))
       if(exists("seg")){
         rm(seg)
       }