doc: Document return value

R/MutualImpurityReduction.R

@@ -4,8 +4,8 @@
 #'
 #' @returns A [`MutualImpurityReduction`] list object.
 #'  * `REL`: The [`MeanAdjustedAgreement`] or [`MutualForestImpact`] object.
-#'  * `MIR`: TODO
-#'  * `AIR`: TODO
+#'  * `MIR`: Mutual Impurity Reduction
+#'  * `AIR`: Actual Impurity Reduction
 #'
 #' @keywords varsel
 #' @export
@@ -27,8 +27,6 @@ MutualImpurityReduction <- function(REL) {
     stop(paste0("`RFS` must have been created with `importance = \"impurity_corrected\".` (Found: \"", RFS$ranger$importance.mode, "\")"))
   }
 
-  # TODO check allvars used as candidates/variables
-
   adj.agree <- REL$relations
   diag(adj.agree) <- 1
   # This is okay because candidates==variables
@@ -158,8 +156,6 @@ MIR_VarSel_Permutation <- function(
       stop("`perm` must be a `MeanAdjustedAgreement` object.")
     }
 
-    # TODO Check perm is permutated MAA
-
     adj.agree_perm <- perm$relations
   }