Displaying 1 result from an estimated 1 matches for "target_data0".
Did you mean:
target_data
2013 Aug 09
1
a fast table() for the 1D case
...ot;")
extra_args <- paste0(", ", extra_args)
cat("unexpected result for '", FUN_NAME,
"(x=", varname, extra_args, ")'\n", sep="")
}
.test_exclude <- function(x, varname, target_names0, target_data0,
exclude)
{
extra_args <- paste0("exclude=", deparse(exclude))
current <- FUN(x=x, exclude=exclude)
target_names <- target_names0
target_data <- target_data0
if (is.null(exclude)) {
if (!any(is.na(target_names)))...