refactor: changed type named and added initial value for ffs (#46)

R/PipeOpFFS.R

@@ -22,6 +22,7 @@
 #'   If the element if is function it requires the following arguments: `arg` and `value` and returns a `numeric`.
 #'   For string elements, the following predefined features are available:
 #'   `"mean"`, `"max"`,`"min"`,`"slope"`,`"median"`,`"var"`.
+#'   Initial is `c("mean", "max", "min", "slope", "median", "var")`
 #' * `left` :: `numeric()` \cr
 #'   The left boundary of the window. Initial is `-Inf`.
 #'   The window is specified such that the all values >=left and <=right are kept for the computations.
@@ -106,7 +107,8 @@ PipeOpFFS = R6Class("PipeOpFFS",
       param_set$set_values(
         drop = FALSE,
         left = -Inf,
-        right = Inf
+        right = Inf,
+        features = c("mean", "max", "min", "slope", "median", "var")
       )
 
       super$initialize(

R/TaskRegr_dti.R

@@ -8,7 +8,7 @@
 #' to predict the PASAT score. `pasat` represents the PASAT score at each vist.
 #' `subject_id` represents the subject ID. `cca` represents the fractional anisotropy tract profiles from the corpus
 #' callosum. `sex` indicates subject's sex. `rcst` represents the fractional anisotropy tract profiles from the right
-#' corticospinal tract. `case` indicates wether the subject has multiple sclerosis. Rows with NAs are removed.
+#' corticospinal tract. `Rows with NAs are removed.
 #'
 #'
 #' This is a subset of the full dataset, which is contained in the package `refund`.

R/zzz.R

@@ -35,7 +35,7 @@ named_union = function(x, y) {
   set_names(z, union(names(x), names(y)))
 }
 
-mlr3fda_feature_types = c(f_reg = "tfd_reg", f_irreg = "tfd_irreg")
+mlr3fda_feature_types = c(tfr = "tfd_reg", tfi = "tfd_irreg")
 mlr3fda_tasks = new.env()
 mlr3fda_pipeops = new.env()
 

README.md

@@ -58,7 +58,7 @@ mlr_reflections$task_feature_types
 
     ##         lgl         int         dbl         chr         fct         ord 
     ##   "logical"   "integer"   "numeric" "character"    "factor"   "ordered" 
-    ##         pxc       f_reg     f_irreg 
+    ##         pxc         tfr         tfi 
     ##   "POSIXct"   "tfd_reg" "tfd_irreg"
 
 The newly available data types are:
@@ -83,7 +83,7 @@ task
     ## * Target: heatan
     ## * Properties: -
     ## * Features (3):
-    ##   - f_reg (2): NIR, UVVIS
+    ##   - tfr (2): NIR, UVVIS
     ##   - dbl (1): h20
 
 Currently there are no `Learner`s that directly operate on functional

data-raw/dti.R

@@ -6,8 +6,7 @@ dti = data.table(
   pasat = refund::DTI$pasat,
   cca = tfd(refund::DTI$cca, arg = seq(0, 1, l = 93)),
   rcst = tfd(refund::DTI$rcst, arg = seq(0, 1, l = 55)),
-  sex = refund::DTI$sex,
-  case = factor(ifelse(refund::DTI$case, "MS", "control"))
+  sex = refund::DTI$sex
 )
 dti = na.omit(dti)