Lint assignation <- instead of =

R/jd3_extendedairline.R

@@ -15,8 +15,8 @@ NULL
 .extendedairline_spec<-function(periodicities, differencing=-1, ar=FALSE, toint=FALSE){
 
     if (differencing == -1){
-        differencing = length(periodicities)
-        if (! ar) differencing=differencing + 1
+        differencing <- length(periodicities)
+        if (! ar) differencing<-differencing + 1
 
     }
 
@@ -96,8 +96,8 @@ NULL
 #'
 #' @examples
 .extended_airline_outliers<-function(jregarima, jspec, types=c("ao"), start=0, end=0, critical_value=0, max_outliers=30, max_round=30){
-    if (start != 0) start=start-1
-    if (end != 0) end=end-1
+    if (start != 0) start<-start-1
+    if (end != 0) end<-end-1
     rslt <- .jcall("jdplus/highfreq/base/r/ExtendedAirlineProcessor", "Ljdplus/toolkit/base/api/math/matrices/Matrix;", "outliers",
                    jregarima, jspec, .jarray(types), as.integer(start), as.integer(end),
                    as.numeric(critical_value), as.integer(max_outliers), as.integer(max_round) )

R/jd3_fractionalairline.R

@@ -142,7 +142,7 @@ fractionalAirlineEstimation <- function(y,
                                         y_time = NULL) {
 
     # Input checks
-    mean = FALSE
+    mean <- FALSE
     checkmate::assertNumeric(y, null.ok = FALSE)
     checkmate::assertNumeric(criticalValue, len = 1, null.ok = FALSE)
     checkmate::assertNumeric(precision, len = 1, null.ok = FALSE)
@@ -246,9 +246,9 @@ fractionalAirlineEstimation <- function(y,
   if (nO > 0) {
     regvar_outliers<-rep(NA,nX-nO)
     for(j in 1:nX-nO) {
-      regvar_outliers[j]=paste("x-", j)}
+      regvar_outliers[j] <- paste("x-", j)}
     for (j in 1:nO) {
-      regvar_outliers[nX-nO+j]<-o[[j]]$toString()}
+      regvar_outliers[nX-nO+j] <- o[[j]]$toString()}
     return(regvar_outliers)
   } else {
     return(list())