Displaying 1 result from an estimated 1 matches for "exclude_idx".
Did you mean:
exclude_dir
2013 Aug 09
1
a fast table() for the 1D case
...target_data <- c(target_data, 0L)
}
} else {
if (!is.factor(x)) {
exclude <- as.vector(exclude, typeof(x))
} else if (!any(is.na(levels(x)))) {
exclude <- union(exclude, NA)
}
exclude_idx <- match(exclude, target_names, nomatch=0L)
if (any(exclude_idx != 0L)) {
target_names <- target_names[-exclude_idx]
target_data <- target_data[-exclude_idx]
}
}
target <- .make_target(target_names, target_dat...