Merge pull request #41 from m-muecke/concatenation

refactor: remove unnecessary concatenation

Author: davidruegamer

R/FDboost.R

@@ -456,7 +456,7 @@ FDboost <- function(formula,          ### response ~ xvars
   ### save formula of FDboost before it is changed
   formulaFDboost <- formula
 
-  tf <- terms.formula(formula, specials = c("c"))
+  tf <- terms.formula(formula, specials = "c")
   trmstrings <- attr(tf, "term.labels")
   equalBrackets <- NULL
   if(length(trmstrings) > 0){

R/crossvalidation.R

@@ -1248,7 +1248,7 @@ plot.validateFDboost <- function(x, riskopt=c("mean", "median"),
             c(min(c(0, ylim[1] * ifelse(ylim[1] < 0, 2, 0.5))), 
               riskMean[paste(mOptMean)]), lty = 2)
       legend("topright", legend=paste(c(mOptMean)),
-             lty=c(2), col=c("black"))
+             lty=2, col="black")
 
     }
 
@@ -1261,7 +1261,7 @@ plot.validateFDboost <- function(x, riskopt=c("mean", "median"),
               riskMedian[paste(mOptMedian)]), lty = 2)
 
       legend("topright", legend=paste(c(mOptMedian)),
-             lty=c(2), col=c("black"))
+             lty=2, col="black")
     }
 
   }

R/methods.R

@@ -1050,7 +1050,7 @@ coef.FDboost <- function(object, raw = FALSE, which = NULL,
           if(!is.matrix(predHelp)){ 
             X <- predHelp
           }else{
-            X <- if(any(trm$get_names() %in% c("ONEtime")) ||
+            X <- if(any(trm$get_names() %in% "ONEtime") ||
                     any(class(object)=="FDboostScalar")){ # effect constant in t 
               predHelp[,1]
             }else{ 

R/utilityFunctions.R

@@ -12,7 +12,7 @@
 #' @export 
 o_control <- function(k_min=20, rule=2, silent=TRUE, cyclic=FALSE, knots=NULL) { 
   RET <- list(k_min=k_min, rule=rule, silent=silent, cyclic=cyclic, knots=knots)
-  class(RET) <- c("offset_control")
+  class(RET) <- "offset_control"
   RET
 }