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...