Merge pull request #37 from m-muecke/last-seqlen

refactor: use more `seq_len()`

Author: davidruegamer

R/baselearners.R

@@ -1666,7 +1666,7 @@ X_fpc <- function(mf, vary, args) {
     args$klX$xind <- xind
 
     ## only use part of the eigen-functions! 
-    args$subset <- 1:min(ncol(klX$scores), args$npc.max)
+    args$subset <- seq_len(min(ncol(klX$scores), args$npc.max))
     ## args$a <- max(xind) - min(xind)
 
     ## scores \xi_{ik}: rows i=1,..., N and columns k=1,...,K

R/bootstrapCIs.R

@@ -544,7 +544,7 @@ plot.bootstrapCI <- function(x, which = NULL, pers = TRUE,
     if(!is.list(temp_CI)){
 
       if(temp$dim >= 2){
-        temp$value <- split(temp_CI, seq(nrow(temp_CI)))
+        temp$value <- split(temp_CI, seq_len(nrow(temp_CI)))
       }else{ 
         ## temp$dim == 1 like in scalar response with bsignal()
         ## put each fold into one list entry