correc DESCRIPTION pour voir si correc CI/CD

.gitlab-ci.yml

@@ -30,3 +30,4 @@ installpkg:
   stage: deploy
   script:
     - R -e 'devtools::install(build_vignettes=TRUE,dependencies = TRUE)'
+

DESCRIPTION

@@ -17,14 +17,15 @@ Encoding: UTF-8
 LazyData: TRUE
 URL: https://forgemia.inra.fr/isabelle.sanchez/kfino
 BugReports: https://forgemia.inra.fr/isabelle.sanchez/kfino/issues
-Imports: ggplot2, dplyr
+Imports: 
+    ggplot2,
+    dplyr,
+    foreach,
+    doParallel,
+    parallel
 Suggests: 
     rmarkdown,
     knitr,
-    RColorBrewer,
-    foreach,
-    parallel,
-    doParallel,
     testthat (>= 3.0.0)
 VignetteBuilder: knitr
 RoxygenNote: 7.1.2

R/kfino.R

@@ -193,8 +193,8 @@ kfino_fit<-function(datain,Tvar,Yvar,
       TpsTps=Tps
       NN=N
 
-      #Subechant=sort(sample(1:NN,50))
-      Subechant=sort(.Internal(sample(NN, 50L, FALSE, NULL)))
+      Subechant=sort(sample(1:NN,50))
+      #Subechant=sort(.Internal(sample(NN, 50L, FALSE, NULL)))
       Y=YY[Subechant]
       Tps=TpsTps[Subechant]
       N=50
@@ -215,8 +215,8 @@ kfino_fit<-function(datain,Tvar,Yvar,
           for (p in seqp){
             # A voir si 50 sous-echantillons au hasard suffisent. Comme dans
             #  Robbins Monroe, permet aussi de reduire l'impact de la troncature
-            #Subechant=sort(sample(1:NN,50))
-            Subechant=sort(.Internal(sample(NN, 50L, FALSE, NULL)))
+            Subechant=sort(sample(1:NN,50))
+            #Subechant=sort(.Internal(sample(NN, 50L, FALSE, NULL)))
             Y=YY[Subechant]
             Tps=TpsTps[Subechant]