search for: seqtest

Displaying 2 results from an estimated 2 matches for "seqtest".

Did you mean: seftest
2009 Feb 22
2
Semantics of sequences in R
..._err <- function(expr) { if (class(try(expr,silent = TRUE)) == "try-error") "Err" else expr } # {} needed so else will parse properly # does f(x) have the same class as x? keep_class <- function(f) function(x) if_err( all(class(x) == class(f(x)))) seqtest <- function(seq) { lseq <- length(seq) gouter( list( is.vector = is.vector, is.list = is.list, is.pairlist = is.pairlist, `c_keep?` = keep_class(c), `rev_keep?` = keep_class(rev) , `unique_keep?` = keep_c...
2009 Feb 22
2
Semantics of sequences in R
..._err <- function(expr) { if (class(try(expr,silent = TRUE)) == "try-error") "Err" else expr } # {} needed so else will parse properly # does f(x) have the same class as x? keep_class <- function(f) function(x) if_err( all(class(x) == class(f(x)))) seqtest <- function(seq) { lseq <- length(seq) gouter( list( is.vector = is.vector, is.list = is.list, is.pairlist = is.pairlist, `c_keep?` = keep_class(c), `rev_keep?` = keep_class(rev) , `unique_keep?` = keep_c...