R : Copyright 2001, The R Development Core Team
Version 1.4.0 Under development (unstable) (2001-09-10)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type `license()' or `licence()' for distribution details.

R is a collaborative project with many contributors.
Type `contributors()' for more information.

Type `demo()' for some demos, `help()' for on-line help, or
`help.start()' for a HTML browser interface to help.
Type `q()' to quit R.

> .proctime00 <- proc.time()
> 
> isall.equal <- function(x,y)
+ typeof(x) == typeof(y) && is.logical(r <- all.equal(x,y, tol=0)) && r 
> 
> options(error = expression(NULL)) # don't stop on error in batch
> ##~~~~~~~~~~~~~~
> 
> ###--------
>  x <- integer(0)
> is.array(as.array( x ))
[1] TRUE
> is.call(as.call( x ))
Error in as.call(x) : invalid argument list
> is.character(as.character( x ))
[1] TRUE
> is.complex(as.complex( x ))
[1] TRUE
> is.data.frame(as.data.frame( x ))
[1] TRUE
> is.double(as.double( x ))
[1] TRUE
> is.environment(as.environment( x ))
Error in as.environment(x) : invalid "pos" argument
> is.expression(as.expression( x ))
[1] TRUE
> is.factor(as.factor( x ))
[1] TRUE
> is.function(as.function( x ))
Error in as.function.default(x, envir) : list argument expected
> is.integer(as.integer( x ))
[1] TRUE
> is.list(as.list( x ))
[1] TRUE
> is.logical(as.logical( x ))
[1] TRUE
> is.matrix(as.matrix( x ))
[1] TRUE
> is.name(as.name( x ))
Error in as.name(x) : Invalid data of mode "integer" (too short)
> is.null(as.null( x ))
[1] TRUE
> is.numeric(as.numeric( x ))
[1] TRUE
> is.ordered(as.ordered( x ))
[1] TRUE
> is.pairlist(as.pairlist( x ))
[1] TRUE
> is.qr(as.qr( x ))
Error in as.qr(x) : you cannot be serious
> is.real(as.real( x ))
[1] TRUE
> is.single(as.single( x ))
Error in is.single(as.single(x)) : type "single" unimplemented in R
> is.symbol(as.symbol( x ))
Error in as.symbol(x) : Invalid data of mode "integer" (too short)
> is.table(as.table( x ))
Error in as.table.default(x) : cannot coerce into a table
> is.ts(as.ts( x ))
Error in ts(x) : ts object must have one or more observations
> is.vector(as.vector( x ))
[1] TRUE
> 
> if(is.array(x)) { cat('IS: ');all.equal(x, as.array( x ), tol=0)
+ } else   !isall.equal(x, as.array( x ))
[1] TRUE
> if(is.call(x)) { cat('IS: ');all.equal(x, as.call( x ), tol=0)
+ } else   !isall.equal(x, as.call( x ))
Error in as.call(x) : invalid argument list
> if(is.character(x)) { cat('IS: ');all.equal(x, as.character( x ), tol=0)
+ } else   !isall.equal(x, as.character( x ))
[1] TRUE
> if(is.complex(x)) { cat('IS: ');all.equal(x, as.complex( x ), tol=0)
+ } else   !isall.equal(x, as.complex( x ))
[1] TRUE
> if(is.data.frame(x)) { cat('IS: ');all.equal(x, as.data.frame( x ), tol=0)
+ } else   !isall.equal(x, as.data.frame( x ))
[1] TRUE
> if(is.double(x)) { cat('IS: ');all.equal(x, as.double( x ), tol=0)
+ } else   !isall.equal(x, as.double( x ))
[1] TRUE
> if(is.environment(x)) { cat('IS: ');all.equal(x, as.environment( x ), tol=0)
+ } else   !isall.equal(x, as.environment( x ))
Error in as.environment(x) : invalid "pos" argument
> if(is.expression(x)) { cat('IS: ');all.equal(x, as.expression( x ), tol=0)
+ } else   !isall.equal(x, as.expression( x ))
[1] TRUE
> if(is.factor(x)) { cat('IS: ');all.equal(x, as.factor( x ), tol=0)
+ } else   !isall.equal(x, as.factor( x ))
[1] TRUE
> if(is.function(x)) { cat('IS: ');all.equal(x, as.function( x ), tol=0)
+ } else   !isall.equal(x, as.function( x ))
Error in as.function.default(x, envir) : list argument expected
> if(is.integer(x)) { cat('IS: ');all.equal(x, as.integer( x ), tol=0)
+ } else   !isall.equal(x, as.integer( x ))
IS: [1] TRUE
> if(is.list(x)) { cat('IS: ');all.equal(x, as.list( x ), tol=0)
+ } else   !isall.equal(x, as.list( x ))
[1] TRUE
> if(is.logical(x)) { cat('IS: ');all.equal(x, as.logical( x ), tol=0)
+ } else   !isall.equal(x, as.logical( x ))
[1] TRUE
> if(is.matrix(x)) { cat('IS: ');all.equal(x, as.matrix( x ), tol=0)
+ } else   !isall.equal(x, as.matrix( x ))
[1] TRUE
> if(is.name(x)) { cat('IS: ');all.equal(x, as.name( x ), tol=0)
+ } else   !isall.equal(x, as.name( x ))
Error in as.name(x) : Invalid data of mode "integer" (too short)
> if(is.null(x)) { cat('IS: ');all.equal(x, as.null( x ), tol=0)
+ } else   !isall.equal(x, as.null( x ))
[1] TRUE
> if(is.numeric(x)) { cat('IS: ');all.equal(x, as.numeric( x ), tol=0)
+ } else   !isall.equal(x, as.numeric( x ))
IS: [1] TRUE
> if(is.ordered(x)) { cat('IS: ');all.equal(x, as.ordered( x ), tol=0)
+ } else   !isall.equal(x, as.ordered( x ))
[1] TRUE
> if(is.pairlist(x)) { cat('IS: ');all.equal(x, as.pairlist( x ), tol=0)
+ } else   !isall.equal(x, as.pairlist( x ))
[1] TRUE
> if(is.qr(x)) { cat('IS: ');all.equal(x, as.qr( x ), tol=0)
+ } else   !isall.equal(x, as.qr( x ))
Error in as.qr(x) : you cannot be serious
> if(is.real(x)) { cat('IS: ');all.equal(x, as.real( x ), tol=0)
+ } else   !isall.equal(x, as.real( x ))
[1] TRUE
> if(is.single(x)) { cat('IS: ');all.equal(x, as.single( x ), tol=0)
+ } else   !isall.equal(x, as.single( x ))
Error in is.single(x) : type "single" unimplemented in R
> if(is.symbol(x)) { cat('IS: ');all.equal(x, as.symbol( x ), tol=0)
+ } else   !isall.equal(x, as.symbol( x ))
Error in as.symbol(x) : Invalid data of mode "integer" (too short)
> if(is.table(x)) { cat('IS: ');all.equal(x, as.table( x ), tol=0)
+ } else   !isall.equal(x, as.table( x ))
Error in as.table.default(x) : cannot coerce into a table
> if(is.ts(x)) { cat('IS: ');all.equal(x, as.ts( x ), tol=0)
+ } else   !isall.equal(x, as.ts( x ))
Error in ts(x) : ts object must have one or more observations
> if(is.vector(x)) { cat('IS: ');all.equal(x, as.vector( x ), tol=0)
+ } else   !isall.equal(x, as.vector( x ))
IS: [1] TRUE
> f <- as.POSIXct( x );  all.equal(f, as.POSIXct( f ), tol=0)
Error in as.POSIXct.default(x) : Don't know how to convert `x' to class "POSIXct"
> f <- as.POSIXct.POSIXlt( x );  all.equal(f, as.POSIXct.POSIXlt( f ), tol=0)
Error in structure(.Internal(as.POSIXct(x, tz)), class = c("POSIXt", "POSIXct")) : 
	invalid `x' argument
> f <- as.POSIXct.date( x );  all.equal(f, as.POSIXct.date( f ), tol=0)
Error in as.POSIXct.date(x) : `x' is not a "dates" object
> f <- as.POSIXct.dates( x );  all.equal(f, as.POSIXct.dates( f ), tol=0)
Error in as.POSIXct.dates(x) : `x' is not a "dates" object
> f <- as.POSIXct.default( x );  all.equal(f, as.POSIXct.default( f ), tol=0)
Error in as.POSIXct.default(x) : Don't know how to convert `x' to class "POSIXct"
> f <- as.POSIXlt( x );  all.equal(f, as.POSIXlt( f ), tol=0)
Error in as.POSIXlt(x) : Don't know how to convert `x' to class "POSIXlt"
> f <- as.array( x );  all.equal(f, as.array( f ), tol=0)
[1] TRUE
> f <- as.call( x );  all.equal(f, as.call( f ), tol=0)
Error in as.call(x) : invalid argument list
> f <- as.character( x );  all.equal(f, as.character( f ), tol=0)
[1] TRUE
> f <- as.character.POSIXt( x );  all.equal(f, as.character.POSIXt( f ), tol=0)
[1] TRUE
> f <- as.character.default( x );  all.equal(f, as.character.default( f ), tol=0)
[1] TRUE
> f <- as.character.factor( x );  all.equal(f, as.character.factor( f ), tol=0)
[1] TRUE
> f <- as.character.octmode( x );  all.equal(f, as.character.octmode( f ), tol=0)
Error in as.character.octmode(x) : calling wrong method
> f <- as.complex( x );  all.equal(f, as.complex( f ), tol=0)
[1] TRUE
> f <- as.complex.default( x );  all.equal(f, as.complex.default( f ), tol=0)
[1] TRUE
> f <- as.data.frame( x );  all.equal(f, as.data.frame( f ), tol=0)
[1] TRUE
> f <- as.data.frame.AsIs( x );  all.equal(f, as.data.frame.AsIs( f ), tol=0)
[1] "Component 1: Modes: numeric, list"                                
[2] "Component 1: Lengths: 0, 1"                                       
[3] "Component 1: names for current but not for target"                
[4] "Component 1: Attributes: < Modes: NULL, list >"                   
[5] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[6] "Component 1: Attributes: < names for current but not for target >"
[7] "Component 1: Attributes: < target is NULL, current is list >"     
[8] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.POSIXct( x );  all.equal(f, as.data.frame.POSIXct( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Modes: numeric, list"                                             
 [5] "Component 1: Lengths: 0, 1"                                                    
 [6] "Component 1: names for current but not for target"                             
 [7] "Component 1: Attributes: < Modes: NULL, list >"                                
 [8] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [9] "Component 1: Attributes: < names for current but not for target >"             
[10] "Component 1: Attributes: < target is NULL, current is list >"                  
[11] "Component 1: target is numeric, current is data.frame"                         
> f <- as.data.frame.character( x );  all.equal(f, as.data.frame.character( f ), tol=0)
Error in unique(x) : unique() applies only to vectors
> f <- as.data.frame.complex( x );  all.equal(f, as.data.frame.complex( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Modes: numeric, list"                                             
 [5] "Component 1: Lengths: 0, 1"                                                    
 [6] "Component 1: names for current but not for target"                             
 [7] "Component 1: Attributes: < Modes: NULL, list >"                                
 [8] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [9] "Component 1: Attributes: < names for current but not for target >"             
[10] "Component 1: Attributes: < target is NULL, current is list >"                  
[11] "Component 1: target is numeric, current is data.frame"                         
> f <- as.data.frame.data.frame( x );  all.equal(f, as.data.frame.data.frame( f ), tol=0)
Error in if (i > 1) class(x) <- cl[-(1:(i - 1))] : 
	missing value where logical needed
> f <- as.data.frame.default( x );  all.equal(f, as.data.frame.default( f ), tol=0)
Error in as.data.frame.default(x) : can't coerce numeric into a data.frame
> f <- as.data.frame.factor( x );  all.equal(f, as.data.frame.factor( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Modes: numeric, list"                                             
 [5] "Component 1: Lengths: 0, 1"                                                    
 [6] "Component 1: names for current but not for target"                             
 [7] "Component 1: Attributes: < Modes: NULL, list >"                                
 [8] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [9] "Component 1: Attributes: < names for current but not for target >"             
[10] "Component 1: Attributes: < target is NULL, current is list >"                  
[11] "Component 1: target is numeric, current is data.frame"                         
> f <- as.data.frame.integer( x );  all.equal(f, as.data.frame.integer( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Modes: numeric, list"                                             
 [5] "Component 1: Lengths: 0, 1"                                                    
 [6] "Component 1: names for current but not for target"                             
 [7] "Component 1: Attributes: < Modes: NULL, list >"                                
 [8] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [9] "Component 1: Attributes: < names for current but not for target >"             
[10] "Component 1: Attributes: < target is NULL, current is list >"                  
[11] "Component 1: target is numeric, current is data.frame"                         
> f <- as.data.frame.list( x );  all.equal(f, as.data.frame.list( f ), tol=0)
[1] TRUE
> f <- as.data.frame.logical( x );  all.equal(f, as.data.frame.logical( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Modes: numeric, list"                                             
 [5] "Component 1: Lengths: 0, 1"                                                    
 [6] "Component 1: names for current but not for target"                             
 [7] "Component 1: Attributes: < Modes: NULL, list >"                                
 [8] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [9] "Component 1: Attributes: < names for current but not for target >"             
[10] "Component 1: Attributes: < target is NULL, current is list >"                  
[11] "Component 1: target is numeric, current is data.frame"                         
> f <- as.data.frame.matrix( x );  all.equal(f, as.data.frame.matrix( f ), tol=0)
Error in ceiling(length.out) : Non-numeric argument to mathematical function
> f <- as.data.frame.model.matrix( x );  all.equal(f, as.data.frame.model.matrix( f ), tol=0)
Error in 1:nrows : NA/NaN argument
> f <- as.data.frame.numeric( x );  all.equal(f, as.data.frame.numeric( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Modes: numeric, list"                                             
 [5] "Component 1: Lengths: 0, 1"                                                    
 [6] "Component 1: names for current but not for target"                             
 [7] "Component 1: Attributes: < Modes: NULL, list >"                                
 [8] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [9] "Component 1: Attributes: < names for current but not for target >"             
[10] "Component 1: Attributes: < target is NULL, current is list >"                  
[11] "Component 1: target is numeric, current is data.frame"                         
> f <- as.data.frame.ordered( x );  all.equal(f, as.data.frame.ordered( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Modes: numeric, list"                                             
 [5] "Component 1: Lengths: 0, 1"                                                    
 [6] "Component 1: names for current but not for target"                             
 [7] "Component 1: Attributes: < Modes: NULL, list >"                                
 [8] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [9] "Component 1: Attributes: < names for current but not for target >"             
[10] "Component 1: Attributes: < target is NULL, current is list >"                  
[11] "Component 1: target is numeric, current is data.frame"                         
> f <- as.data.frame.table( x );  all.equal(f, as.data.frame.table( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.data.frame.ts( x );  all.equal(f, as.data.frame.ts( f ), tol=0)
 [1] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [2] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [3] "Component 1: Modes: numeric, list"                                             
 [4] "Component 1: Lengths: 0, 1"                                                    
 [5] "Component 1: names for current but not for target"                             
 [6] "Component 1: Attributes: < Modes: NULL, list >"                                
 [7] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [8] "Component 1: Attributes: < names for current but not for target >"             
 [9] "Component 1: Attributes: < target is NULL, current is list >"                  
[10] "Component 1: target is numeric, current is data.frame"                         
> f <- as.data.frame.vector( x );  all.equal(f, as.data.frame.vector( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Modes: numeric, list"                                             
 [5] "Component 1: Lengths: 0, 1"                                                    
 [6] "Component 1: names for current but not for target"                             
 [7] "Component 1: Attributes: < Modes: NULL, list >"                                
 [8] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [9] "Component 1: Attributes: < names for current but not for target >"             
[10] "Component 1: Attributes: < target is NULL, current is list >"                  
[11] "Component 1: target is numeric, current is data.frame"                         
> f <- as.double( x );  all.equal(f, as.double( f ), tol=0)
[1] TRUE
> f <- as.double.default( x );  all.equal(f, as.double.default( f ), tol=0)
[1] TRUE
> f <- as.environment( x );  all.equal(f, as.environment( f ), tol=0)
Error in as.environment(x) : invalid "pos" argument
> f <- as.expression( x );  all.equal(f, as.expression( f ), tol=0)
[1] TRUE
> f <- as.expression.default( x );  all.equal(f, as.expression.default( f ), tol=0)
[1] TRUE
> f <- as.factor( x );  all.equal(f, as.factor( f ), tol=0)
[1] TRUE
> f <- as.formula( x );  all.equal(f, as.formula( f ), tol=0)
Error in switch(mode(x), "NULL" = structure(NULL, class = "formula"),  : 
	invalid formula
> f <- as.function( x );  all.equal(f, as.function( f ), tol=0)
Error in as.function.default(x, envir) : list argument expected
> f <- as.function.default( x );  all.equal(f, as.function.default( f ), tol=0)
Error in as.function.default(x, envir) : list argument expected
> f <- as.integer( x );  all.equal(f, as.integer( f ), tol=0)
[1] TRUE
> f <- as.integer.default( x );  all.equal(f, as.integer.default( f ), tol=0)
[1] TRUE
> f <- as.list( x );  all.equal(f, as.list( f ), tol=0)
[1] TRUE
> f <- as.list.data.frame( x );  all.equal(f, as.list.data.frame( f ), tol=0)
[1] TRUE
> f <- as.list.default( x );  all.equal(f, as.list.default( f ), tol=0)
[1] TRUE
> f <- as.logical( x );  all.equal(f, as.logical( f ), tol=0)
[1] TRUE
> f <- as.logical.default( x );  all.equal(f, as.logical.default( f ), tol=0)
[1] TRUE
> f <- as.matrix( x );  all.equal(f, as.matrix( f ), tol=0)
[1] TRUE
> f <- as.matrix.POSIXlt( x );  all.equal(f, as.matrix.POSIXlt( f ), tol=0)
[1] TRUE
> f <- as.matrix.data.frame( x );  all.equal(f, as.matrix.data.frame( f ), tol=0)
Error in 1:p : NA/NaN argument
> f <- as.matrix.default( x );  all.equal(f, as.matrix.default( f ), tol=0)
[1] TRUE
> f <- as.matrix.noquote( x );  all.equal(f, as.matrix.noquote( f ), tol=0)
Error in NextMethod(generic, object, ...) : 
	object not specified
> f <- as.name( x );  all.equal(f, as.name( f ), tol=0)
Error in as.name(x) : Invalid data of mode "integer" (too short)
> f <- as.null( x );  all.equal(f, as.null( f ), tol=0)
[1] TRUE
> f <- as.null.default( x );  all.equal(f, as.null.default( f ), tol=0)
[1] TRUE
> f <- as.numeric( x );  all.equal(f, as.numeric( f ), tol=0)
[1] TRUE
> f <- as.ordered( x );  all.equal(f, as.ordered( f ), tol=0)
[1] TRUE
> f <- as.pairlist( x );  all.equal(f, as.pairlist( f ), tol=0)
[1] TRUE
> f <- as.qr( x );  all.equal(f, as.qr( f ), tol=0)
Error in as.qr(x) : you cannot be serious
> f <- as.real( x );  all.equal(f, as.real( f ), tol=0)
[1] TRUE
> f <- as.single( x );  all.equal(f, as.single( f ), tol=0)
[1] TRUE
> f <- as.single.default( x );  all.equal(f, as.single.default( f ), tol=0)
[1] TRUE
> f <- as.symbol( x );  all.equal(f, as.symbol( f ), tol=0)
Error in as.symbol(x) : Invalid data of mode "integer" (too short)
> f <- as.table( x );  all.equal(f, as.table( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.table.default( x );  all.equal(f, as.table.default( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.table.ftable( x );  all.equal(f, as.table.ftable( f ), tol=0)
Error in as.table.ftable(x) : x must be an `ftable'
> f <- as.ts( x );  all.equal(f, as.ts( f ), tol=0)
Error in ts(x) : ts object must have one or more observations
> f <- as.vector( x );  all.equal(f, as.vector( f ), tol=0)
[1] TRUE
> f <- as.vector.factor( x );  all.equal(f, as.vector.factor( f ), tol=0)
[1] TRUE
> 
> ###--------
>  x <- NULL
> is.array(as.array( x ))
Error in as.array(x) : attempt to set an attribute on NULL
> is.call(as.call( x ))
Error in as.call(x) : invalid argument list
> is.character(as.character( x ))
[1] TRUE
> is.complex(as.complex( x ))
[1] TRUE
> is.data.frame(as.data.frame( x ))
[1] TRUE
> is.double(as.double( x ))
[1] TRUE
> is.environment(as.environment( x ))
[1] FALSE
> is.expression(as.expression( x ))
[1] TRUE
> is.factor(as.factor( x ))
Error in sort(x) : only atomic vectors can be sorted
> is.function(as.function( x ))
Error in as.function.default(x, envir) : argument must have length at least 1
> is.integer(as.integer( x ))
[1] TRUE
> is.list(as.list( x ))
[1] TRUE
> is.logical(as.logical( x ))
[1] TRUE
> is.matrix(as.matrix( x ))
Error in array(x, c(length(x), 1), if (!is.null(names(x))) list(names(x),  : 
	attempt to set an attribute on NULL
> is.name(as.name( x ))
Error in as.name(x) : invalid type/length (1/0) in vector allocation
> is.null(as.null( x ))
[1] TRUE
> is.numeric(as.numeric( x ))
[1] TRUE
> is.ordered(as.ordered( x ))
Error in sort(x) : only atomic vectors can be sorted
> is.pairlist(as.pairlist( x ))
[1] TRUE
> is.qr(as.qr( x ))
Error in as.qr(x) : you cannot be serious
> is.real(as.real( x ))
[1] TRUE
> is.single(as.single( x ))
Error in is.single(as.single(x)) : type "single" unimplemented in R
> is.symbol(as.symbol( x ))
Error in as.symbol(x) : invalid type/length (1/0) in vector allocation
> is.table(as.table( x ))
Error in as.table.default(x) : cannot coerce into a table
> is.ts(as.ts( x ))
Error in ts(x) : ts object must have one or more observations
> is.vector(as.vector( x ))
[1] FALSE
> 
> if(is.array(x)) { cat('IS: ');all.equal(x, as.array( x ), tol=0)
+ } else   !isall.equal(x, as.array( x ))
Error in as.array(x) : attempt to set an attribute on NULL
> if(is.call(x)) { cat('IS: ');all.equal(x, as.call( x ), tol=0)
+ } else   !isall.equal(x, as.call( x ))
Error in as.call(x) : invalid argument list
> if(is.character(x)) { cat('IS: ');all.equal(x, as.character( x ), tol=0)
+ } else   !isall.equal(x, as.character( x ))
[1] TRUE
> if(is.complex(x)) { cat('IS: ');all.equal(x, as.complex( x ), tol=0)
+ } else   !isall.equal(x, as.complex( x ))
[1] TRUE
> if(is.data.frame(x)) { cat('IS: ');all.equal(x, as.data.frame( x ), tol=0)
+ } else   !isall.equal(x, as.data.frame( x ))
[1] TRUE
> if(is.double(x)) { cat('IS: ');all.equal(x, as.double( x ), tol=0)
+ } else   !isall.equal(x, as.double( x ))
[1] TRUE
> if(is.environment(x)) { cat('IS: ');all.equal(x, as.environment( x ), tol=0)
+ } else   !isall.equal(x, as.environment( x ))
[1] FALSE
> if(is.expression(x)) { cat('IS: ');all.equal(x, as.expression( x ), tol=0)
+ } else   !isall.equal(x, as.expression( x ))
[1] TRUE
> if(is.factor(x)) { cat('IS: ');all.equal(x, as.factor( x ), tol=0)
+ } else   !isall.equal(x, as.factor( x ))
Error in sort(x) : only atomic vectors can be sorted
> if(is.function(x)) { cat('IS: ');all.equal(x, as.function( x ), tol=0)
+ } else   !isall.equal(x, as.function( x ))
Error in as.function.default(x, envir) : argument must have length at least 1
> if(is.integer(x)) { cat('IS: ');all.equal(x, as.integer( x ), tol=0)
+ } else   !isall.equal(x, as.integer( x ))
[1] TRUE
> if(is.list(x)) { cat('IS: ');all.equal(x, as.list( x ), tol=0)
+ } else   !isall.equal(x, as.list( x ))
[1] TRUE
> if(is.logical(x)) { cat('IS: ');all.equal(x, as.logical( x ), tol=0)
+ } else   !isall.equal(x, as.logical( x ))
[1] TRUE
> if(is.matrix(x)) { cat('IS: ');all.equal(x, as.matrix( x ), tol=0)
+ } else   !isall.equal(x, as.matrix( x ))
Error in array(x, c(length(x), 1), if (!is.null(names(x))) list(names(x),  : 
	attempt to set an attribute on NULL
> if(is.name(x)) { cat('IS: ');all.equal(x, as.name( x ), tol=0)
+ } else   !isall.equal(x, as.name( x ))
Error in as.name(x) : invalid type/length (1/0) in vector allocation
> if(is.null(x)) { cat('IS: ');all.equal(x, as.null( x ), tol=0)
+ } else   !isall.equal(x, as.null( x ))
IS: [1] TRUE
> if(is.numeric(x)) { cat('IS: ');all.equal(x, as.numeric( x ), tol=0)
+ } else   !isall.equal(x, as.numeric( x ))
[1] TRUE
> if(is.ordered(x)) { cat('IS: ');all.equal(x, as.ordered( x ), tol=0)
+ } else   !isall.equal(x, as.ordered( x ))
Error in sort(x) : only atomic vectors can be sorted
> if(is.pairlist(x)) { cat('IS: ');all.equal(x, as.pairlist( x ), tol=0)
+ } else   !isall.equal(x, as.pairlist( x ))
IS: [1] TRUE
> if(is.qr(x)) { cat('IS: ');all.equal(x, as.qr( x ), tol=0)
+ } else   !isall.equal(x, as.qr( x ))
Error in as.qr(x) : you cannot be serious
> if(is.real(x)) { cat('IS: ');all.equal(x, as.real( x ), tol=0)
+ } else   !isall.equal(x, as.real( x ))
[1] TRUE
> if(is.single(x)) { cat('IS: ');all.equal(x, as.single( x ), tol=0)
+ } else   !isall.equal(x, as.single( x ))
Error in is.single(x) : type "single" unimplemented in R
> if(is.symbol(x)) { cat('IS: ');all.equal(x, as.symbol( x ), tol=0)
+ } else   !isall.equal(x, as.symbol( x ))
Error in as.symbol(x) : invalid type/length (1/0) in vector allocation
> if(is.table(x)) { cat('IS: ');all.equal(x, as.table( x ), tol=0)
+ } else   !isall.equal(x, as.table( x ))
Error in as.table.default(x) : cannot coerce into a table
> if(is.ts(x)) { cat('IS: ');all.equal(x, as.ts( x ), tol=0)
+ } else   !isall.equal(x, as.ts( x ))
Error in ts(x) : ts object must have one or more observations
> if(is.vector(x)) { cat('IS: ');all.equal(x, as.vector( x ), tol=0)
+ } else   !isall.equal(x, as.vector( x ))
[1] FALSE
> f <- as.POSIXct( x );  all.equal(f, as.POSIXct( f ), tol=0)
Error in as.POSIXct.default(x) : Don't know how to convert `x' to class "POSIXct"
> f <- as.POSIXct.POSIXlt( x );  all.equal(f, as.POSIXct.POSIXlt( f ), tol=0)
Error in structure(.Internal(as.POSIXct(x, tz)), class = c("POSIXt", "POSIXct")) : 
	invalid `x' argument
> f <- as.POSIXct.date( x );  all.equal(f, as.POSIXct.date( f ), tol=0)
Error in as.POSIXct.date(x) : `x' is not a "dates" object
> f <- as.POSIXct.dates( x );  all.equal(f, as.POSIXct.dates( f ), tol=0)
Error in as.POSIXct.dates(x) : `x' is not a "dates" object
> f <- as.POSIXct.default( x );  all.equal(f, as.POSIXct.default( f ), tol=0)
Error in as.POSIXct.default(x) : Don't know how to convert `x' to class "POSIXct"
> f <- as.POSIXlt( x );  all.equal(f, as.POSIXlt( f ), tol=0)
Error in as.POSIXlt(x) : Don't know how to convert `x' to class "POSIXlt"
> f <- as.array( x );  all.equal(f, as.array( f ), tol=0)
Error in as.array(x) : attempt to set an attribute on NULL
> f <- as.call( x );  all.equal(f, as.call( f ), tol=0)
Error in as.call(x) : invalid argument list
> f <- as.character( x );  all.equal(f, as.character( f ), tol=0)
[1] TRUE
> f <- as.character.POSIXt( x );  all.equal(f, as.character.POSIXt( f ), tol=0)
[1] TRUE
> f <- as.character.default( x );  all.equal(f, as.character.default( f ), tol=0)
[1] TRUE
> f <- as.character.factor( x );  all.equal(f, as.character.factor( f ), tol=0)
[1] TRUE
> f <- as.character.octmode( x );  all.equal(f, as.character.octmode( f ), tol=0)
Error in as.character.octmode(x) : calling wrong method
> f <- as.complex( x );  all.equal(f, as.complex( f ), tol=0)
[1] TRUE
> f <- as.complex.default( x );  all.equal(f, as.complex.default( f ), tol=0)
[1] TRUE
> f <- as.data.frame( x );  all.equal(f, as.data.frame( f ), tol=0)
[1] TRUE
> f <- as.data.frame.AsIs( x );  all.equal(f, as.data.frame.AsIs( f ), tol=0)
[1] "Component 1: Modes: NULL, list"                                   
[2] "Component 1: Lengths: 0, 1"                                       
[3] "Component 1: names for current but not for target"                
[4] "Component 1: Attributes: < Modes: NULL, list >"                   
[5] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[6] "Component 1: Attributes: < names for current but not for target >"
[7] "Component 1: Attributes: < target is NULL, current is list >"     
[8] "Component 1: target is NULL, current is data.frame"               
> f <- as.data.frame.POSIXct( x );  all.equal(f, as.data.frame.POSIXct( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Modes: NULL, list"                                                
 [5] "Component 1: Lengths: 0, 1"                                                    
 [6] "Component 1: names for current but not for target"                             
 [7] "Component 1: Attributes: < Modes: NULL, list >"                                
 [8] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [9] "Component 1: Attributes: < names for current but not for target >"             
[10] "Component 1: Attributes: < target is NULL, current is list >"                  
[11] "Component 1: target is NULL, current is data.frame"                            
> f <- as.data.frame.character( x );  all.equal(f, as.data.frame.character( f ), tol=0)
Error in sort(x) : only atomic vectors can be sorted
> f <- as.data.frame.complex( x );  all.equal(f, as.data.frame.complex( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Modes: NULL, list"                                                
 [5] "Component 1: Lengths: 0, 1"                                                    
 [6] "Component 1: names for current but not for target"                             
 [7] "Component 1: Attributes: < Modes: NULL, list >"                                
 [8] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [9] "Component 1: Attributes: < names for current but not for target >"             
[10] "Component 1: Attributes: < target is NULL, current is list >"                  
[11] "Component 1: target is NULL, current is data.frame"                            
> f <- as.data.frame.data.frame( x );  all.equal(f, as.data.frame.data.frame( f ), tol=0)
Error in if (i > 1) class(x) <- cl[-(1:(i - 1))] : 
	missing value where logical needed
> f <- as.data.frame.default( x );  all.equal(f, as.data.frame.default( f ), tol=0)
Error in as.data.frame.default(x) : can't coerce NULL into a data.frame
> f <- as.data.frame.factor( x );  all.equal(f, as.data.frame.factor( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Modes: NULL, list"                                                
 [5] "Component 1: Lengths: 0, 1"                                                    
 [6] "Component 1: names for current but not for target"                             
 [7] "Component 1: Attributes: < Modes: NULL, list >"                                
 [8] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [9] "Component 1: Attributes: < names for current but not for target >"             
[10] "Component 1: Attributes: < target is NULL, current is list >"                  
[11] "Component 1: target is NULL, current is data.frame"                            
> f <- as.data.frame.integer( x );  all.equal(f, as.data.frame.integer( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Modes: NULL, list"                                                
 [5] "Component 1: Lengths: 0, 1"                                                    
 [6] "Component 1: names for current but not for target"                             
 [7] "Component 1: Attributes: < Modes: NULL, list >"                                
 [8] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [9] "Component 1: Attributes: < names for current but not for target >"             
[10] "Component 1: Attributes: < target is NULL, current is list >"                  
[11] "Component 1: target is NULL, current is data.frame"                            
> f <- as.data.frame.list( x );  all.equal(f, as.data.frame.list( f ), tol=0)
[1] TRUE
> f <- as.data.frame.logical( x );  all.equal(f, as.data.frame.logical( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Modes: NULL, list"                                                
 [5] "Component 1: Lengths: 0, 1"                                                    
 [6] "Component 1: names for current but not for target"                             
 [7] "Component 1: Attributes: < Modes: NULL, list >"                                
 [8] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [9] "Component 1: Attributes: < names for current but not for target >"             
[10] "Component 1: Attributes: < target is NULL, current is list >"                  
[11] "Component 1: target is NULL, current is data.frame"                            
> f <- as.data.frame.matrix( x );  all.equal(f, as.data.frame.matrix( f ), tol=0)
Error in ceiling(length.out) : Non-numeric argument to mathematical function
> f <- as.data.frame.model.matrix( x );  all.equal(f, as.data.frame.model.matrix( f ), tol=0)
Error in 1:nrows : NA/NaN argument
> f <- as.data.frame.numeric( x );  all.equal(f, as.data.frame.numeric( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Modes: NULL, list"                                                
 [5] "Component 1: Lengths: 0, 1"                                                    
 [6] "Component 1: names for current but not for target"                             
 [7] "Component 1: Attributes: < Modes: NULL, list >"                                
 [8] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [9] "Component 1: Attributes: < names for current but not for target >"             
[10] "Component 1: Attributes: < target is NULL, current is list >"                  
[11] "Component 1: target is NULL, current is data.frame"                            
> f <- as.data.frame.ordered( x );  all.equal(f, as.data.frame.ordered( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Modes: NULL, list"                                                
 [5] "Component 1: Lengths: 0, 1"                                                    
 [6] "Component 1: names for current but not for target"                             
 [7] "Component 1: Attributes: < Modes: NULL, list >"                                
 [8] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [9] "Component 1: Attributes: < names for current but not for target >"             
[10] "Component 1: Attributes: < target is NULL, current is list >"                  
[11] "Component 1: target is NULL, current is data.frame"                            
> f <- as.data.frame.table( x );  all.equal(f, as.data.frame.table( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.data.frame.ts( x );  all.equal(f, as.data.frame.ts( f ), tol=0)
 [1] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [2] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [3] "Component 1: Modes: NULL, list"                                                
 [4] "Component 1: Lengths: 0, 1"                                                    
 [5] "Component 1: names for current but not for target"                             
 [6] "Component 1: Attributes: < Modes: NULL, list >"                                
 [7] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [8] "Component 1: Attributes: < names for current but not for target >"             
 [9] "Component 1: Attributes: < target is NULL, current is list >"                  
[10] "Component 1: target is NULL, current is data.frame"                            
> f <- as.data.frame.vector( x );  all.equal(f, as.data.frame.vector( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Modes: NULL, list"                                                
 [5] "Component 1: Lengths: 0, 1"                                                    
 [6] "Component 1: names for current but not for target"                             
 [7] "Component 1: Attributes: < Modes: NULL, list >"                                
 [8] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [9] "Component 1: Attributes: < names for current but not for target >"             
[10] "Component 1: Attributes: < target is NULL, current is list >"                  
[11] "Component 1: target is NULL, current is data.frame"                            
> f <- as.double( x );  all.equal(f, as.double( f ), tol=0)
[1] TRUE
> f <- as.double.default( x );  all.equal(f, as.double.default( f ), tol=0)
[1] TRUE
> f <- as.environment( x );  all.equal(f, as.environment( f ), tol=0)
[1] TRUE
> f <- as.expression( x );  all.equal(f, as.expression( f ), tol=0)
[1] TRUE
> f <- as.expression.default( x );  all.equal(f, as.expression.default( f ), tol=0)
[1] TRUE
> f <- as.factor( x );  all.equal(f, as.factor( f ), tol=0)
Error in sort(x) : only atomic vectors can be sorted
> f <- as.formula( x );  all.equal(f, as.formula( f ), tol=0)
[1] TRUE
> f <- as.function( x );  all.equal(f, as.function( f ), tol=0)
Error in as.function.default(x, envir) : argument must have length at least 1
> f <- as.function.default( x );  all.equal(f, as.function.default( f ), tol=0)
Error in as.function.default(x, envir) : argument must have length at least 1
> f <- as.integer( x );  all.equal(f, as.integer( f ), tol=0)
[1] TRUE
> f <- as.integer.default( x );  all.equal(f, as.integer.default( f ), tol=0)
[1] TRUE
> f <- as.list( x );  all.equal(f, as.list( f ), tol=0)
[1] TRUE
> f <- as.list.data.frame( x );  all.equal(f, as.list.data.frame( f ), tol=0)
[1] TRUE
> f <- as.list.default( x );  all.equal(f, as.list.default( f ), tol=0)
[1] TRUE
> f <- as.logical( x );  all.equal(f, as.logical( f ), tol=0)
[1] TRUE
> f <- as.logical.default( x );  all.equal(f, as.logical.default( f ), tol=0)
[1] TRUE
> f <- as.matrix( x );  all.equal(f, as.matrix( f ), tol=0)
Error in array(x, c(length(x), 1), if (!is.null(names(x))) list(names(x),  : 
	attempt to set an attribute on NULL
> f <- as.matrix.POSIXlt( x );  all.equal(f, as.matrix.POSIXlt( f ), tol=0)
[1] TRUE
> f <- as.matrix.data.frame( x );  all.equal(f, as.matrix.data.frame( f ), tol=0)
Error in 1:p : NA/NaN argument
> f <- as.matrix.default( x );  all.equal(f, as.matrix.default( f ), tol=0)
Error in array(x, c(length(x), 1), if (!is.null(names(x))) list(names(x),  : 
	attempt to set an attribute on NULL
> f <- as.matrix.noquote( x );  all.equal(f, as.matrix.noquote( f ), tol=0)
Error in NextMethod(generic, object, ...) : 
	object not specified
> f <- as.name( x );  all.equal(f, as.name( f ), tol=0)
Error in as.name(x) : invalid type/length (1/0) in vector allocation
> f <- as.null( x );  all.equal(f, as.null( f ), tol=0)
[1] TRUE
> f <- as.null.default( x );  all.equal(f, as.null.default( f ), tol=0)
[1] TRUE
> f <- as.numeric( x );  all.equal(f, as.numeric( f ), tol=0)
[1] TRUE
> f <- as.ordered( x );  all.equal(f, as.ordered( f ), tol=0)
Error in sort(x) : only atomic vectors can be sorted
> f <- as.pairlist( x );  all.equal(f, as.pairlist( f ), tol=0)
[1] TRUE
> f <- as.qr( x );  all.equal(f, as.qr( f ), tol=0)
Error in as.qr(x) : you cannot be serious
> f <- as.real( x );  all.equal(f, as.real( f ), tol=0)
[1] TRUE
> f <- as.single( x );  all.equal(f, as.single( f ), tol=0)
[1] TRUE
> f <- as.single.default( x );  all.equal(f, as.single.default( f ), tol=0)
[1] TRUE
> f <- as.symbol( x );  all.equal(f, as.symbol( f ), tol=0)
Error in as.symbol(x) : invalid type/length (1/0) in vector allocation
> f <- as.table( x );  all.equal(f, as.table( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.table.default( x );  all.equal(f, as.table.default( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.table.ftable( x );  all.equal(f, as.table.ftable( f ), tol=0)
Error in as.table.ftable(x) : x must be an `ftable'
> f <- as.ts( x );  all.equal(f, as.ts( f ), tol=0)
Error in ts(x) : ts object must have one or more observations
> f <- as.vector( x );  all.equal(f, as.vector( f ), tol=0)
[1] TRUE
> f <- as.vector.factor( x );  all.equal(f, as.vector.factor( f ), tol=0)
[1] TRUE
> 
> ###--------
>  x <- list()
> is.array(as.array( x ))
[1] TRUE
> is.call(as.call( x ))
Error in as.call(x) : illegal length 0 argument
> is.character(as.character( x ))
[1] TRUE
> is.complex(as.complex( x ))
Error in as.complex.default(x) : (list) object cannot be coerced to vector type 15
> is.data.frame(as.data.frame( x ))
[1] TRUE
> is.double(as.double( x ))
Error in as.double.default(x) : (list) object cannot be coerced to vector type 14
> is.environment(as.environment( x ))
Error in as.environment(x) : Invalid object for as.environment
> is.expression(as.expression( x ))
[1] TRUE
> is.factor(as.factor( x ))
Error in sort(x) : only atomic vectors can be sorted
> is.function(as.function( x ))
Error in as.function.default(x, envir) : argument must have length at least 1
> is.integer(as.integer( x ))
Error in as.integer.default(x) : (list) object cannot be coerced to vector type 13
> is.list(as.list( x ))
[1] TRUE
> is.logical(as.logical( x ))
Error in as.logical.default(x) : (list) object cannot be coerced to vector type 10
> is.matrix(as.matrix( x ))
[1] TRUE
> is.name(as.name( x ))
Error in as.name(x) : (list) object cannot be coerced to vector type 1
> is.null(as.null( x ))
[1] TRUE
> is.numeric(as.numeric( x ))
Error in as.double.default(x) : (list) object cannot be coerced to vector type 14
> is.ordered(as.ordered( x ))
Error in sort(x) : only atomic vectors can be sorted
> is.pairlist(as.pairlist( x ))
[1] TRUE
> is.qr(as.qr( x ))
Error in as.qr(x) : you cannot be serious
> is.real(as.real( x ))
Error in as.double.default(x) : (list) object cannot be coerced to vector type 14
> is.single(as.single( x ))
Error in structure(.Internal(as.vector(x, "double")), Csingle = TRUE) : 
	(list) object cannot be coerced to vector type 14
> is.symbol(as.symbol( x ))
Error in as.symbol(x) : (list) object cannot be coerced to vector type 1
> is.table(as.table( x ))
Error in as.table.default(x) : cannot coerce into a table
> is.ts(as.ts( x ))
Error in ts(x) : ts object must have one or more observations
> is.vector(as.vector( x ))
[1] TRUE
> 
> if(is.array(x)) { cat('IS: ');all.equal(x, as.array( x ), tol=0)
+ } else   !isall.equal(x, as.array( x ))
[1] TRUE
> if(is.call(x)) { cat('IS: ');all.equal(x, as.call( x ), tol=0)
+ } else   !isall.equal(x, as.call( x ))
Error in as.call(x) : illegal length 0 argument
> if(is.character(x)) { cat('IS: ');all.equal(x, as.character( x ), tol=0)
+ } else   !isall.equal(x, as.character( x ))
[1] TRUE
> if(is.complex(x)) { cat('IS: ');all.equal(x, as.complex( x ), tol=0)
+ } else   !isall.equal(x, as.complex( x ))
Error in as.complex.default(x) : (list) object cannot be coerced to vector type 15
> if(is.data.frame(x)) { cat('IS: ');all.equal(x, as.data.frame( x ), tol=0)
+ } else   !isall.equal(x, as.data.frame( x ))
[1] TRUE
> if(is.double(x)) { cat('IS: ');all.equal(x, as.double( x ), tol=0)
+ } else   !isall.equal(x, as.double( x ))
Error in as.double.default(x) : (list) object cannot be coerced to vector type 14
> if(is.environment(x)) { cat('IS: ');all.equal(x, as.environment( x ), tol=0)
+ } else   !isall.equal(x, as.environment( x ))
Error in as.environment(x) : Invalid object for as.environment
> if(is.expression(x)) { cat('IS: ');all.equal(x, as.expression( x ), tol=0)
+ } else   !isall.equal(x, as.expression( x ))
[1] TRUE
> if(is.factor(x)) { cat('IS: ');all.equal(x, as.factor( x ), tol=0)
+ } else   !isall.equal(x, as.factor( x ))
Error in sort(x) : only atomic vectors can be sorted
> if(is.function(x)) { cat('IS: ');all.equal(x, as.function( x ), tol=0)
+ } else   !isall.equal(x, as.function( x ))
Error in as.function.default(x, envir) : argument must have length at least 1
> if(is.integer(x)) { cat('IS: ');all.equal(x, as.integer( x ), tol=0)
+ } else   !isall.equal(x, as.integer( x ))
Error in as.integer.default(x) : (list) object cannot be coerced to vector type 13
> if(is.list(x)) { cat('IS: ');all.equal(x, as.list( x ), tol=0)
+ } else   !isall.equal(x, as.list( x ))
IS: [1] TRUE
> if(is.logical(x)) { cat('IS: ');all.equal(x, as.logical( x ), tol=0)
+ } else   !isall.equal(x, as.logical( x ))
Error in as.logical.default(x) : (list) object cannot be coerced to vector type 10
> if(is.matrix(x)) { cat('IS: ');all.equal(x, as.matrix( x ), tol=0)
+ } else   !isall.equal(x, as.matrix( x ))
[1] TRUE
> if(is.name(x)) { cat('IS: ');all.equal(x, as.name( x ), tol=0)
+ } else   !isall.equal(x, as.name( x ))
Error in as.name(x) : (list) object cannot be coerced to vector type 1
> if(is.null(x)) { cat('IS: ');all.equal(x, as.null( x ), tol=0)
+ } else   !isall.equal(x, as.null( x ))
[1] TRUE
> if(is.numeric(x)) { cat('IS: ');all.equal(x, as.numeric( x ), tol=0)
+ } else   !isall.equal(x, as.numeric( x ))
Error in as.double.default(x) : (list) object cannot be coerced to vector type 14
> if(is.ordered(x)) { cat('IS: ');all.equal(x, as.ordered( x ), tol=0)
+ } else   !isall.equal(x, as.ordered( x ))
Error in sort(x) : only atomic vectors can be sorted
> if(is.pairlist(x)) { cat('IS: ');all.equal(x, as.pairlist( x ), tol=0)
+ } else   !isall.equal(x, as.pairlist( x ))
[1] TRUE
> if(is.qr(x)) { cat('IS: ');all.equal(x, as.qr( x ), tol=0)
+ } else   !isall.equal(x, as.qr( x ))
Error in as.qr(x) : you cannot be serious
> if(is.real(x)) { cat('IS: ');all.equal(x, as.real( x ), tol=0)
+ } else   !isall.equal(x, as.real( x ))
Error in as.double.default(x) : (list) object cannot be coerced to vector type 14
> if(is.single(x)) { cat('IS: ');all.equal(x, as.single( x ), tol=0)
+ } else   !isall.equal(x, as.single( x ))
Error in is.single(x) : type "single" unimplemented in R
> if(is.symbol(x)) { cat('IS: ');all.equal(x, as.symbol( x ), tol=0)
+ } else   !isall.equal(x, as.symbol( x ))
Error in as.symbol(x) : (list) object cannot be coerced to vector type 1
> if(is.table(x)) { cat('IS: ');all.equal(x, as.table( x ), tol=0)
+ } else   !isall.equal(x, as.table( x ))
Error in as.table.default(x) : cannot coerce into a table
> if(is.ts(x)) { cat('IS: ');all.equal(x, as.ts( x ), tol=0)
+ } else   !isall.equal(x, as.ts( x ))
Error in ts(x) : ts object must have one or more observations
> if(is.vector(x)) { cat('IS: ');all.equal(x, as.vector( x ), tol=0)
+ } else   !isall.equal(x, as.vector( x ))
IS: [1] TRUE
> f <- as.POSIXct( x );  all.equal(f, as.POSIXct( f ), tol=0)
Error in as.POSIXct.default(x) : Don't know how to convert `x' to class "POSIXct"
> f <- as.POSIXct.POSIXlt( x );  all.equal(f, as.POSIXct.POSIXlt( f ), tol=0)
Error in structure(.Internal(as.POSIXct(x, tz)), class = c("POSIXt", "POSIXct")) : 
	invalid `x' argument
> f <- as.POSIXct.date( x );  all.equal(f, as.POSIXct.date( f ), tol=0)
Error in as.POSIXct.date(x) : `x' is not a "dates" object
> f <- as.POSIXct.dates( x );  all.equal(f, as.POSIXct.dates( f ), tol=0)
Error in as.POSIXct.dates(x) : `x' is not a "dates" object
> f <- as.POSIXct.default( x );  all.equal(f, as.POSIXct.default( f ), tol=0)
Error in as.POSIXct.default(x) : Don't know how to convert `x' to class "POSIXct"
> f <- as.POSIXlt( x );  all.equal(f, as.POSIXlt( f ), tol=0)
Error in as.POSIXlt(x) : Don't know how to convert `x' to class "POSIXlt"
> f <- as.array( x );  all.equal(f, as.array( f ), tol=0)
[1] TRUE
> f <- as.call( x );  all.equal(f, as.call( f ), tol=0)
Error in as.call(x) : illegal length 0 argument
> f <- as.character( x );  all.equal(f, as.character( f ), tol=0)
[1] TRUE
> f <- as.character.POSIXt( x );  all.equal(f, as.character.POSIXt( f ), tol=0)
[1] TRUE
> f <- as.character.default( x );  all.equal(f, as.character.default( f ), tol=0)
[1] TRUE
> f <- as.character.factor( x );  all.equal(f, as.character.factor( f ), tol=0)
[1] TRUE
> f <- as.character.octmode( x );  all.equal(f, as.character.octmode( f ), tol=0)
Error in as.character.octmode(x) : calling wrong method
> f <- as.complex( x );  all.equal(f, as.complex( f ), tol=0)
Error in as.complex.default(x) : (list) object cannot be coerced to vector type 15
> f <- as.complex.default( x );  all.equal(f, as.complex.default( f ), tol=0)
Error in as.complex.default(x) : (list) object cannot be coerced to vector type 15
> f <- as.data.frame( x );  all.equal(f, as.data.frame( f ), tol=0)
[1] TRUE
> f <- as.data.frame.AsIs( x );  all.equal(f, as.data.frame.AsIs( f ), tol=0)
[1] "Component 1: Lengths: 0, 1"                                       
[2] "Component 1: names for current but not for target"                
[3] "Component 1: Attributes: < Modes: NULL, list >"                   
[4] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[5] "Component 1: Attributes: < names for current but not for target >"
[6] "Component 1: Attributes: < target is NULL, current is list >"     
[7] "Component 1: Length mismatch: comparison on first 0 components"   
> f <- as.data.frame.POSIXct( x );  all.equal(f, as.data.frame.POSIXct( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Lengths: 0, 1"                                                    
 [5] "Component 1: names for current but not for target"                             
 [6] "Component 1: Attributes: < Modes: NULL, list >"                                
 [7] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [8] "Component 1: Attributes: < names for current but not for target >"             
 [9] "Component 1: Attributes: < target is NULL, current is list >"                  
[10] "Component 1: Length mismatch: comparison on first 0 components"                
> f <- as.data.frame.character( x );  all.equal(f, as.data.frame.character( f ), tol=0)
Error in sort(x) : only atomic vectors can be sorted
> f <- as.data.frame.complex( x );  all.equal(f, as.data.frame.complex( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Lengths: 0, 1"                                                    
 [5] "Component 1: names for current but not for target"                             
 [6] "Component 1: Attributes: < Modes: NULL, list >"                                
 [7] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [8] "Component 1: Attributes: < names for current but not for target >"             
 [9] "Component 1: Attributes: < target is NULL, current is list >"                  
[10] "Component 1: Length mismatch: comparison on first 0 components"                
> f <- as.data.frame.data.frame( x );  all.equal(f, as.data.frame.data.frame( f ), tol=0)
Error in if (i > 1) class(x) <- cl[-(1:(i - 1))] : 
	missing value where logical needed
> f <- as.data.frame.default( x );  all.equal(f, as.data.frame.default( f ), tol=0)
Error in as.data.frame.default(x) : can't coerce list into a data.frame
> f <- as.data.frame.factor( x );  all.equal(f, as.data.frame.factor( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Lengths: 0, 1"                                                    
 [5] "Component 1: names for current but not for target"                             
 [6] "Component 1: Attributes: < Modes: NULL, list >"                                
 [7] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [8] "Component 1: Attributes: < names for current but not for target >"             
 [9] "Component 1: Attributes: < target is NULL, current is list >"                  
[10] "Component 1: Length mismatch: comparison on first 0 components"                
> f <- as.data.frame.integer( x );  all.equal(f, as.data.frame.integer( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Lengths: 0, 1"                                                    
 [5] "Component 1: names for current but not for target"                             
 [6] "Component 1: Attributes: < Modes: NULL, list >"                                
 [7] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [8] "Component 1: Attributes: < names for current but not for target >"             
 [9] "Component 1: Attributes: < target is NULL, current is list >"                  
[10] "Component 1: Length mismatch: comparison on first 0 components"                
> f <- as.data.frame.list( x );  all.equal(f, as.data.frame.list( f ), tol=0)
[1] TRUE
> f <- as.data.frame.logical( x );  all.equal(f, as.data.frame.logical( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Lengths: 0, 1"                                                    
 [5] "Component 1: names for current but not for target"                             
 [6] "Component 1: Attributes: < Modes: NULL, list >"                                
 [7] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [8] "Component 1: Attributes: < names for current but not for target >"             
 [9] "Component 1: Attributes: < target is NULL, current is list >"                  
[10] "Component 1: Length mismatch: comparison on first 0 components"                
> f <- as.data.frame.matrix( x );  all.equal(f, as.data.frame.matrix( f ), tol=0)
Error in ceiling(length.out) : Non-numeric argument to mathematical function
> f <- as.data.frame.model.matrix( x );  all.equal(f, as.data.frame.model.matrix( f ), tol=0)
Error in 1:nrows : NA/NaN argument
> f <- as.data.frame.numeric( x );  all.equal(f, as.data.frame.numeric( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Lengths: 0, 1"                                                    
 [5] "Component 1: names for current but not for target"                             
 [6] "Component 1: Attributes: < Modes: NULL, list >"                                
 [7] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [8] "Component 1: Attributes: < names for current but not for target >"             
 [9] "Component 1: Attributes: < target is NULL, current is list >"                  
[10] "Component 1: Length mismatch: comparison on first 0 components"                
> f <- as.data.frame.ordered( x );  all.equal(f, as.data.frame.ordered( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Lengths: 0, 1"                                                    
 [5] "Component 1: names for current but not for target"                             
 [6] "Component 1: Attributes: < Modes: NULL, list >"                                
 [7] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [8] "Component 1: Attributes: < names for current but not for target >"             
 [9] "Component 1: Attributes: < target is NULL, current is list >"                  
[10] "Component 1: Length mismatch: comparison on first 0 components"                
> f <- as.data.frame.table( x );  all.equal(f, as.data.frame.table( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.data.frame.ts( x );  all.equal(f, as.data.frame.ts( f ), tol=0)
[1] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
[2] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
[3] "Component 1: Lengths: 0, 1"                                                    
[4] "Component 1: names for current but not for target"                             
[5] "Component 1: Attributes: < Modes: NULL, list >"                                
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
[7] "Component 1: Attributes: < names for current but not for target >"             
[8] "Component 1: Attributes: < target is NULL, current is list >"                  
[9] "Component 1: Length mismatch: comparison on first 0 components"                
> f <- as.data.frame.vector( x );  all.equal(f, as.data.frame.vector( f ), tol=0)
 [1] "Names: 1 string mismatches"                                                    
 [2] "Attributes: < Component 2: Lengths: 0, 1 >"                                    
 [3] "Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
 [4] "Component 1: Lengths: 0, 1"                                                    
 [5] "Component 1: names for current but not for target"                             
 [6] "Component 1: Attributes: < Modes: NULL, list >"                                
 [7] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
 [8] "Component 1: Attributes: < names for current but not for target >"             
 [9] "Component 1: Attributes: < target is NULL, current is list >"                  
[10] "Component 1: Length mismatch: comparison on first 0 components"                
> f <- as.double( x );  all.equal(f, as.double( f ), tol=0)
Error in as.double.default(x) : (list) object cannot be coerced to vector type 14
> f <- as.double.default( x );  all.equal(f, as.double.default( f ), tol=0)
Error in as.double.default(x) : (list) object cannot be coerced to vector type 14
> f <- as.environment( x );  all.equal(f, as.environment( f ), tol=0)
Error in as.environment(x) : Invalid object for as.environment
> f <- as.expression( x );  all.equal(f, as.expression( f ), tol=0)
[1] TRUE
> f <- as.expression.default( x );  all.equal(f, as.expression.default( f ), tol=0)
[1] TRUE
> f <- as.factor( x );  all.equal(f, as.factor( f ), tol=0)
Error in sort(x) : only atomic vectors can be sorted
> f <- as.formula( x );  all.equal(f, as.formula( f ), tol=0)
Error in switch(mode(x), "NULL" = structure(NULL, class = "formula"),  : 
	invalid formula
> f <- as.function( x );  all.equal(f, as.function( f ), tol=0)
Error in as.function.default(x, envir) : argument must have length at least 1
> f <- as.function.default( x );  all.equal(f, as.function.default( f ), tol=0)
Error in as.function.default(x, envir) : argument must have length at least 1
> f <- as.integer( x );  all.equal(f, as.integer( f ), tol=0)
Error in as.integer.default(x) : (list) object cannot be coerced to vector type 13
> f <- as.integer.default( x );  all.equal(f, as.integer.default( f ), tol=0)
Error in as.integer.default(x) : (list) object cannot be coerced to vector type 13
> f <- as.list( x );  all.equal(f, as.list( f ), tol=0)
[1] TRUE
> f <- as.list.data.frame( x );  all.equal(f, as.list.data.frame( f ), tol=0)
[1] TRUE
> f <- as.list.default( x );  all.equal(f, as.list.default( f ), tol=0)
[1] TRUE
> f <- as.logical( x );  all.equal(f, as.logical( f ), tol=0)
Error in as.logical.default(x) : (list) object cannot be coerced to vector type 10
> f <- as.logical.default( x );  all.equal(f, as.logical.default( f ), tol=0)
Error in as.logical.default(x) : (list) object cannot be coerced to vector type 10
> f <- as.matrix( x );  all.equal(f, as.matrix( f ), tol=0)
[1] TRUE
> f <- as.matrix.POSIXlt( x );  all.equal(f, as.matrix.POSIXlt( f ), tol=0)
[1] TRUE
> f <- as.matrix.data.frame( x );  all.equal(f, as.matrix.data.frame( f ), tol=0)
Error in 1:p : NA/NaN argument
> f <- as.matrix.default( x );  all.equal(f, as.matrix.default( f ), tol=0)
[1] TRUE
> f <- as.matrix.noquote( x );  all.equal(f, as.matrix.noquote( f ), tol=0)
Error in NextMethod(generic, object, ...) : 
	object not specified
> f <- as.name( x );  all.equal(f, as.name( f ), tol=0)
Error in as.name(x) : (list) object cannot be coerced to vector type 1
> f <- as.null( x );  all.equal(f, as.null( f ), tol=0)
[1] TRUE
> f <- as.null.default( x );  all.equal(f, as.null.default( f ), tol=0)
[1] TRUE
> f <- as.numeric( x );  all.equal(f, as.numeric( f ), tol=0)
Error in as.double.default(x) : (list) object cannot be coerced to vector type 14
> f <- as.ordered( x );  all.equal(f, as.ordered( f ), tol=0)
Error in sort(x) : only atomic vectors can be sorted
> f <- as.pairlist( x );  all.equal(f, as.pairlist( f ), tol=0)
[1] TRUE
> f <- as.qr( x );  all.equal(f, as.qr( f ), tol=0)
Error in as.qr(x) : you cannot be serious
> f <- as.real( x );  all.equal(f, as.real( f ), tol=0)
Error in as.double.default(x) : (list) object cannot be coerced to vector type 14
> f <- as.single( x );  all.equal(f, as.single( f ), tol=0)
Error in structure(.Internal(as.vector(x, "double")), Csingle = TRUE) : 
	(list) object cannot be coerced to vector type 14
> f <- as.single.default( x );  all.equal(f, as.single.default( f ), tol=0)
Error in structure(.Internal(as.vector(x, "double")), Csingle = TRUE) : 
	(list) object cannot be coerced to vector type 14
> f <- as.symbol( x );  all.equal(f, as.symbol( f ), tol=0)
Error in as.symbol(x) : (list) object cannot be coerced to vector type 1
> f <- as.table( x );  all.equal(f, as.table( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.table.default( x );  all.equal(f, as.table.default( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.table.ftable( x );  all.equal(f, as.table.ftable( f ), tol=0)
Error in as.table.ftable(x) : x must be an `ftable'
> f <- as.ts( x );  all.equal(f, as.ts( f ), tol=0)
Error in ts(x) : ts object must have one or more observations
> f <- as.vector( x );  all.equal(f, as.vector( f ), tol=0)
[1] TRUE
> f <- as.vector.factor( x );  all.equal(f, as.vector.factor( f ), tol=0)
[1] TRUE
> 
> ###--------
>  x <- 1:1
> is.array(as.array( x ))
[1] TRUE
> is.call(as.call( x ))
Error in as.call(x) : invalid argument list
> is.character(as.character( x ))
[1] TRUE
> is.complex(as.complex( x ))
[1] TRUE
> is.data.frame(as.data.frame( x ))
[1] TRUE
> is.double(as.double( x ))
[1] TRUE
> is.environment(as.environment( x ))
[1] TRUE
> is.expression(as.expression( x ))
[1] TRUE
> is.factor(as.factor( x ))
[1] TRUE
> is.function(as.function( x ))
Error in as.function.default(x, envir) : list argument expected
> is.integer(as.integer( x ))
[1] TRUE
> is.list(as.list( x ))
[1] TRUE
> is.logical(as.logical( x ))
[1] TRUE
> is.matrix(as.matrix( x ))
[1] TRUE
> is.name(as.name( x ))
[1] TRUE
> is.null(as.null( x ))
[1] TRUE
> is.numeric(as.numeric( x ))
[1] TRUE
> is.ordered(as.ordered( x ))
[1] TRUE
> is.pairlist(as.pairlist( x ))
[1] TRUE
> is.qr(as.qr( x ))
Error in as.qr(x) : you cannot be serious
> is.real(as.real( x ))
[1] TRUE
> is.single(as.single( x ))
Error in is.single(as.single(x)) : type "single" unimplemented in R
> is.symbol(as.symbol( x ))
[1] TRUE
> is.table(as.table( x ))
[1] TRUE
> is.ts(as.ts( x ))
[1] TRUE
> is.vector(as.vector( x ))
[1] TRUE
> 
> if(is.array(x)) { cat('IS: ');all.equal(x, as.array( x ), tol=0)
+ } else   !isall.equal(x, as.array( x ))
[1] TRUE
> if(is.call(x)) { cat('IS: ');all.equal(x, as.call( x ), tol=0)
+ } else   !isall.equal(x, as.call( x ))
Error in as.call(x) : invalid argument list
> if(is.character(x)) { cat('IS: ');all.equal(x, as.character( x ), tol=0)
+ } else   !isall.equal(x, as.character( x ))
[1] TRUE
> if(is.complex(x)) { cat('IS: ');all.equal(x, as.complex( x ), tol=0)
+ } else   !isall.equal(x, as.complex( x ))
[1] TRUE
> if(is.data.frame(x)) { cat('IS: ');all.equal(x, as.data.frame( x ), tol=0)
+ } else   !isall.equal(x, as.data.frame( x ))
[1] TRUE
> if(is.double(x)) { cat('IS: ');all.equal(x, as.double( x ), tol=0)
+ } else   !isall.equal(x, as.double( x ))
[1] TRUE
> if(is.environment(x)) { cat('IS: ');all.equal(x, as.environment( x ), tol=0)
+ } else   !isall.equal(x, as.environment( x ))
[1] TRUE
> if(is.expression(x)) { cat('IS: ');all.equal(x, as.expression( x ), tol=0)
+ } else   !isall.equal(x, as.expression( x ))
[1] TRUE
> if(is.factor(x)) { cat('IS: ');all.equal(x, as.factor( x ), tol=0)
+ } else   !isall.equal(x, as.factor( x ))
[1] TRUE
> if(is.function(x)) { cat('IS: ');all.equal(x, as.function( x ), tol=0)
+ } else   !isall.equal(x, as.function( x ))
Error in as.function.default(x, envir) : list argument expected
> if(is.integer(x)) { cat('IS: ');all.equal(x, as.integer( x ), tol=0)
+ } else   !isall.equal(x, as.integer( x ))
IS: [1] TRUE
> if(is.list(x)) { cat('IS: ');all.equal(x, as.list( x ), tol=0)
+ } else   !isall.equal(x, as.list( x ))
[1] TRUE
> if(is.logical(x)) { cat('IS: ');all.equal(x, as.logical( x ), tol=0)
+ } else   !isall.equal(x, as.logical( x ))
[1] TRUE
> if(is.matrix(x)) { cat('IS: ');all.equal(x, as.matrix( x ), tol=0)
+ } else   !isall.equal(x, as.matrix( x ))
[1] TRUE
> if(is.name(x)) { cat('IS: ');all.equal(x, as.name( x ), tol=0)
+ } else   !isall.equal(x, as.name( x ))
[1] TRUE
> if(is.null(x)) { cat('IS: ');all.equal(x, as.null( x ), tol=0)
+ } else   !isall.equal(x, as.null( x ))
[1] TRUE
> if(is.numeric(x)) { cat('IS: ');all.equal(x, as.numeric( x ), tol=0)
+ } else   !isall.equal(x, as.numeric( x ))
IS: [1] TRUE
> if(is.ordered(x)) { cat('IS: ');all.equal(x, as.ordered( x ), tol=0)
+ } else   !isall.equal(x, as.ordered( x ))
[1] TRUE
> if(is.pairlist(x)) { cat('IS: ');all.equal(x, as.pairlist( x ), tol=0)
+ } else   !isall.equal(x, as.pairlist( x ))
[1] TRUE
> if(is.qr(x)) { cat('IS: ');all.equal(x, as.qr( x ), tol=0)
+ } else   !isall.equal(x, as.qr( x ))
Error in as.qr(x) : you cannot be serious
> if(is.real(x)) { cat('IS: ');all.equal(x, as.real( x ), tol=0)
+ } else   !isall.equal(x, as.real( x ))
[1] TRUE
> if(is.single(x)) { cat('IS: ');all.equal(x, as.single( x ), tol=0)
+ } else   !isall.equal(x, as.single( x ))
Error in is.single(x) : type "single" unimplemented in R
> if(is.symbol(x)) { cat('IS: ');all.equal(x, as.symbol( x ), tol=0)
+ } else   !isall.equal(x, as.symbol( x ))
[1] TRUE
> if(is.table(x)) { cat('IS: ');all.equal(x, as.table( x ), tol=0)
+ } else   !isall.equal(x, as.table( x ))
[1] TRUE
> if(is.ts(x)) { cat('IS: ');all.equal(x, as.ts( x ), tol=0)
+ } else   !isall.equal(x, as.ts( x ))
[1] TRUE
> if(is.vector(x)) { cat('IS: ');all.equal(x, as.vector( x ), tol=0)
+ } else   !isall.equal(x, as.vector( x ))
IS: [1] TRUE
> f <- as.POSIXct( x );  all.equal(f, as.POSIXct( f ), tol=0)
Error in as.POSIXct.default(x) : Don't know how to convert `x' to class "POSIXct"
> f <- as.POSIXct.POSIXlt( x );  all.equal(f, as.POSIXct.POSIXlt( f ), tol=0)
Error in structure(.Internal(as.POSIXct(x, tz)), class = c("POSIXt", "POSIXct")) : 
	invalid `x' argument
> f <- as.POSIXct.date( x );  all.equal(f, as.POSIXct.date( f ), tol=0)
Error in as.POSIXct.date(x) : `x' is not a "dates" object
> f <- as.POSIXct.dates( x );  all.equal(f, as.POSIXct.dates( f ), tol=0)
Error in as.POSIXct.dates(x) : `x' is not a "dates" object
> f <- as.POSIXct.default( x );  all.equal(f, as.POSIXct.default( f ), tol=0)
Error in as.POSIXct.default(x) : Don't know how to convert `x' to class "POSIXct"
> f <- as.POSIXlt( x );  all.equal(f, as.POSIXlt( f ), tol=0)
Error in as.POSIXlt(x) : Don't know how to convert `x' to class "POSIXlt"
> f <- as.array( x );  all.equal(f, as.array( f ), tol=0)
[1] TRUE
> f <- as.call( x );  all.equal(f, as.call( f ), tol=0)
Error in as.call(x) : invalid argument list
> f <- as.character( x );  all.equal(f, as.character( f ), tol=0)
[1] TRUE
> f <- as.character.POSIXt( x );  all.equal(f, as.character.POSIXt( f ), tol=0)
[1] TRUE
> f <- as.character.default( x );  all.equal(f, as.character.default( f ), tol=0)
[1] TRUE
> f <- as.character.factor( x );  all.equal(f, as.character.factor( f ), tol=0)
[1] TRUE
> f <- as.character.octmode( x );  all.equal(f, as.character.octmode( f ), tol=0)
Error in as.character.octmode(x) : calling wrong method
> f <- as.complex( x );  all.equal(f, as.complex( f ), tol=0)
[1] TRUE
> f <- as.complex.default( x );  all.equal(f, as.complex.default( f ), tol=0)
[1] TRUE
> f <- as.data.frame( x );  all.equal(f, as.data.frame( f ), tol=0)
[1] TRUE
> f <- as.data.frame.AsIs( x );  all.equal(f, as.data.frame.AsIs( f ), tol=0)
[1] "Component 1: Modes: numeric, list"                                
[2] "Component 1: names for current but not for target"                
[3] "Component 1: Attributes: < Modes: NULL, list >"                   
[4] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[5] "Component 1: Attributes: < names for current but not for target >"
[6] "Component 1: Attributes: < target is NULL, current is list >"     
[7] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.POSIXct( x );  all.equal(f, as.data.frame.POSIXct( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: numeric, list"                                
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.character( x );  all.equal(f, as.data.frame.character( f ), tol=0)
Error in unique(x) : unique() applies only to vectors
> f <- as.data.frame.complex( x );  all.equal(f, as.data.frame.complex( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: numeric, list"                                
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.data.frame( x );  all.equal(f, as.data.frame.data.frame( f ), tol=0)
Error in if (i > 1) class(x) <- cl[-(1:(i - 1))] : 
	missing value where logical needed
> f <- as.data.frame.default( x );  all.equal(f, as.data.frame.default( f ), tol=0)
Error in as.data.frame.default(x) : can't coerce numeric into a data.frame
> f <- as.data.frame.factor( x );  all.equal(f, as.data.frame.factor( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: numeric, list"                                
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.integer( x );  all.equal(f, as.data.frame.integer( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: numeric, list"                                
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.list( x );  all.equal(f, as.data.frame.list( f ), tol=0)
[1] TRUE
> f <- as.data.frame.logical( x );  all.equal(f, as.data.frame.logical( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: numeric, list"                                
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.matrix( x );  all.equal(f, as.data.frame.matrix( f ), tol=0)
Error in ceiling(length.out) : Non-numeric argument to mathematical function
> f <- as.data.frame.model.matrix( x );  all.equal(f, as.data.frame.model.matrix( f ), tol=0)
Error in 1:nrows : NA/NaN argument
> f <- as.data.frame.numeric( x );  all.equal(f, as.data.frame.numeric( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: numeric, list"                                
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.ordered( x );  all.equal(f, as.data.frame.ordered( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: numeric, list"                                
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.table( x );  all.equal(f, as.data.frame.table( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.data.frame.ts( x );  all.equal(f, as.data.frame.ts( f ), tol=0)
[1] "Attributes: < Component 2: 1 string mismatches >"                 
[2] "Component 1: Modes: numeric, list"                                
[3] "Component 1: names for current but not for target"                
[4] "Component 1: Attributes: < Modes: NULL, list >"                   
[5] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[6] "Component 1: Attributes: < names for current but not for target >"
[7] "Component 1: Attributes: < target is NULL, current is list >"     
[8] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.vector( x );  all.equal(f, as.data.frame.vector( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: numeric, list"                                
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is numeric, current is data.frame"            
> f <- as.double( x );  all.equal(f, as.double( f ), tol=0)
[1] TRUE
> f <- as.double.default( x );  all.equal(f, as.double.default( f ), tol=0)
[1] TRUE
> f <- as.environment( x );  all.equal(f, as.environment( f ), tol=0)
Error in target[[i]] : object is not subsettable
> f <- as.expression( x );  all.equal(f, as.expression( f ), tol=0)
[1] TRUE
> f <- as.expression.default( x );  all.equal(f, as.expression.default( f ), tol=0)
[1] TRUE
> f <- as.factor( x );  all.equal(f, as.factor( f ), tol=0)
[1] TRUE
> f <- as.formula( x );  all.equal(f, as.formula( f ), tol=0)
Error in switch(mode(x), "NULL" = structure(NULL, class = "formula"),  : 
	invalid formula
> f <- as.function( x );  all.equal(f, as.function( f ), tol=0)
Error in as.function.default(x, envir) : list argument expected
> f <- as.function.default( x );  all.equal(f, as.function.default( f ), tol=0)
Error in as.function.default(x, envir) : list argument expected
> f <- as.integer( x );  all.equal(f, as.integer( f ), tol=0)
[1] TRUE
> f <- as.integer.default( x );  all.equal(f, as.integer.default( f ), tol=0)
[1] TRUE
> f <- as.list( x );  all.equal(f, as.list( f ), tol=0)
[1] TRUE
> f <- as.list.data.frame( x );  all.equal(f, as.list.data.frame( f ), tol=0)
[1] TRUE
> f <- as.list.default( x );  all.equal(f, as.list.default( f ), tol=0)
[1] TRUE
> f <- as.logical( x );  all.equal(f, as.logical( f ), tol=0)
[1] TRUE
> f <- as.logical.default( x );  all.equal(f, as.logical.default( f ), tol=0)
[1] TRUE
> f <- as.matrix( x );  all.equal(f, as.matrix( f ), tol=0)
[1] TRUE
> f <- as.matrix.POSIXlt( x );  all.equal(f, as.matrix.POSIXlt( f ), tol=0)
[1] TRUE
> f <- as.matrix.data.frame( x );  all.equal(f, as.matrix.data.frame( f ), tol=0)
Error in 1:p : NA/NaN argument
> f <- as.matrix.default( x );  all.equal(f, as.matrix.default( f ), tol=0)
[1] TRUE
> f <- as.matrix.noquote( x );  all.equal(f, as.matrix.noquote( f ), tol=0)
Error in NextMethod(generic, object, ...) : 
	object not specified
> f <- as.name( x );  all.equal(f, as.name( f ), tol=0)
[1] TRUE
> f <- as.null( x );  all.equal(f, as.null( f ), tol=0)
[1] TRUE
> f <- as.null.default( x );  all.equal(f, as.null.default( f ), tol=0)
[1] TRUE
> f <- as.numeric( x );  all.equal(f, as.numeric( f ), tol=0)
[1] TRUE
> f <- as.ordered( x );  all.equal(f, as.ordered( f ), tol=0)
[1] TRUE
> f <- as.pairlist( x );  all.equal(f, as.pairlist( f ), tol=0)
[1] TRUE
> f <- as.qr( x );  all.equal(f, as.qr( f ), tol=0)
Error in as.qr(x) : you cannot be serious
> f <- as.real( x );  all.equal(f, as.real( f ), tol=0)
[1] TRUE
> f <- as.single( x );  all.equal(f, as.single( f ), tol=0)
[1] TRUE
> f <- as.single.default( x );  all.equal(f, as.single.default( f ), tol=0)
[1] TRUE
> f <- as.symbol( x );  all.equal(f, as.symbol( f ), tol=0)
[1] TRUE
> f <- as.table( x );  all.equal(f, as.table( f ), tol=0)
[1] TRUE
> f <- as.table.default( x );  all.equal(f, as.table.default( f ), tol=0)
[1] TRUE
> f <- as.table.ftable( x );  all.equal(f, as.table.ftable( f ), tol=0)
Error in as.table.ftable(x) : x must be an `ftable'
> f <- as.ts( x );  all.equal(f, as.ts( f ), tol=0)
[1] TRUE
> f <- as.vector( x );  all.equal(f, as.vector( f ), tol=0)
[1] TRUE
> f <- as.vector.factor( x );  all.equal(f, as.vector.factor( f ), tol=0)
[1] TRUE
> 
> ###--------
>  x <- pi
> is.array(as.array( x ))
[1] TRUE
> is.call(as.call( x ))
Error in as.call(x) : invalid argument list
> is.character(as.character( x ))
[1] TRUE
> is.complex(as.complex( x ))
[1] TRUE
> is.data.frame(as.data.frame( x ))
[1] TRUE
> is.double(as.double( x ))
[1] TRUE
> is.environment(as.environment( x ))
[1] TRUE
> is.expression(as.expression( x ))
[1] TRUE
> is.factor(as.factor( x ))
[1] TRUE
> is.function(as.function( x ))
Error in as.function.default(x, envir) : list argument expected
> is.integer(as.integer( x ))
[1] TRUE
> is.list(as.list( x ))
[1] TRUE
> is.logical(as.logical( x ))
[1] TRUE
> is.matrix(as.matrix( x ))
[1] TRUE
> is.name(as.name( x ))
[1] TRUE
> is.null(as.null( x ))
[1] TRUE
> is.numeric(as.numeric( x ))
[1] TRUE
> is.ordered(as.ordered( x ))
[1] TRUE
> is.pairlist(as.pairlist( x ))
[1] TRUE
> is.qr(as.qr( x ))
Error in as.qr(x) : you cannot be serious
> is.real(as.real( x ))
[1] TRUE
> is.single(as.single( x ))
Error in is.single(as.single(x)) : type "single" unimplemented in R
> is.symbol(as.symbol( x ))
[1] TRUE
> is.table(as.table( x ))
[1] TRUE
> is.ts(as.ts( x ))
[1] TRUE
> is.vector(as.vector( x ))
[1] TRUE
> 
> if(is.array(x)) { cat('IS: ');all.equal(x, as.array( x ), tol=0)
+ } else   !isall.equal(x, as.array( x ))
[1] TRUE
> if(is.call(x)) { cat('IS: ');all.equal(x, as.call( x ), tol=0)
+ } else   !isall.equal(x, as.call( x ))
Error in as.call(x) : invalid argument list
> if(is.character(x)) { cat('IS: ');all.equal(x, as.character( x ), tol=0)
+ } else   !isall.equal(x, as.character( x ))
[1] TRUE
> if(is.complex(x)) { cat('IS: ');all.equal(x, as.complex( x ), tol=0)
+ } else   !isall.equal(x, as.complex( x ))
[1] TRUE
> if(is.data.frame(x)) { cat('IS: ');all.equal(x, as.data.frame( x ), tol=0)
+ } else   !isall.equal(x, as.data.frame( x ))
[1] TRUE
> if(is.double(x)) { cat('IS: ');all.equal(x, as.double( x ), tol=0)
+ } else   !isall.equal(x, as.double( x ))
IS: [1] TRUE
> if(is.environment(x)) { cat('IS: ');all.equal(x, as.environment( x ), tol=0)
+ } else   !isall.equal(x, as.environment( x ))
[1] TRUE
> if(is.expression(x)) { cat('IS: ');all.equal(x, as.expression( x ), tol=0)
+ } else   !isall.equal(x, as.expression( x ))
[1] TRUE
> if(is.factor(x)) { cat('IS: ');all.equal(x, as.factor( x ), tol=0)
+ } else   !isall.equal(x, as.factor( x ))
[1] TRUE
> if(is.function(x)) { cat('IS: ');all.equal(x, as.function( x ), tol=0)
+ } else   !isall.equal(x, as.function( x ))
Error in as.function.default(x, envir) : list argument expected
> if(is.integer(x)) { cat('IS: ');all.equal(x, as.integer( x ), tol=0)
+ } else   !isall.equal(x, as.integer( x ))
[1] TRUE
> if(is.list(x)) { cat('IS: ');all.equal(x, as.list( x ), tol=0)
+ } else   !isall.equal(x, as.list( x ))
[1] TRUE
> if(is.logical(x)) { cat('IS: ');all.equal(x, as.logical( x ), tol=0)
+ } else   !isall.equal(x, as.logical( x ))
[1] TRUE
> if(is.matrix(x)) { cat('IS: ');all.equal(x, as.matrix( x ), tol=0)
+ } else   !isall.equal(x, as.matrix( x ))
[1] TRUE
> if(is.name(x)) { cat('IS: ');all.equal(x, as.name( x ), tol=0)
+ } else   !isall.equal(x, as.name( x ))
[1] TRUE
> if(is.null(x)) { cat('IS: ');all.equal(x, as.null( x ), tol=0)
+ } else   !isall.equal(x, as.null( x ))
[1] TRUE
> if(is.numeric(x)) { cat('IS: ');all.equal(x, as.numeric( x ), tol=0)
+ } else   !isall.equal(x, as.numeric( x ))
IS: [1] TRUE
> if(is.ordered(x)) { cat('IS: ');all.equal(x, as.ordered( x ), tol=0)
+ } else   !isall.equal(x, as.ordered( x ))
[1] TRUE
> if(is.pairlist(x)) { cat('IS: ');all.equal(x, as.pairlist( x ), tol=0)
+ } else   !isall.equal(x, as.pairlist( x ))
[1] TRUE
> if(is.qr(x)) { cat('IS: ');all.equal(x, as.qr( x ), tol=0)
+ } else   !isall.equal(x, as.qr( x ))
Error in as.qr(x) : you cannot be serious
> if(is.real(x)) { cat('IS: ');all.equal(x, as.real( x ), tol=0)
+ } else   !isall.equal(x, as.real( x ))
IS: [1] TRUE
> if(is.single(x)) { cat('IS: ');all.equal(x, as.single( x ), tol=0)
+ } else   !isall.equal(x, as.single( x ))
Error in is.single(x) : type "single" unimplemented in R
> if(is.symbol(x)) { cat('IS: ');all.equal(x, as.symbol( x ), tol=0)
+ } else   !isall.equal(x, as.symbol( x ))
[1] TRUE
> if(is.table(x)) { cat('IS: ');all.equal(x, as.table( x ), tol=0)
+ } else   !isall.equal(x, as.table( x ))
[1] TRUE
> if(is.ts(x)) { cat('IS: ');all.equal(x, as.ts( x ), tol=0)
+ } else   !isall.equal(x, as.ts( x ))
[1] TRUE
> if(is.vector(x)) { cat('IS: ');all.equal(x, as.vector( x ), tol=0)
+ } else   !isall.equal(x, as.vector( x ))
IS: [1] TRUE
> f <- as.POSIXct( x );  all.equal(f, as.POSIXct( f ), tol=0)
Error in as.POSIXct.default(x) : Don't know how to convert `x' to class "POSIXct"
> f <- as.POSIXct.POSIXlt( x );  all.equal(f, as.POSIXct.POSIXlt( f ), tol=0)
Error in structure(.Internal(as.POSIXct(x, tz)), class = c("POSIXt", "POSIXct")) : 
	invalid `x' argument
> f <- as.POSIXct.date( x );  all.equal(f, as.POSIXct.date( f ), tol=0)
Error in as.POSIXct.date(x) : `x' is not a "dates" object
> f <- as.POSIXct.dates( x );  all.equal(f, as.POSIXct.dates( f ), tol=0)
Error in as.POSIXct.dates(x) : `x' is not a "dates" object
> f <- as.POSIXct.default( x );  all.equal(f, as.POSIXct.default( f ), tol=0)
Error in as.POSIXct.default(x) : Don't know how to convert `x' to class "POSIXct"
> f <- as.POSIXlt( x );  all.equal(f, as.POSIXlt( f ), tol=0)
Error in as.POSIXlt(x) : Don't know how to convert `x' to class "POSIXlt"
> f <- as.array( x );  all.equal(f, as.array( f ), tol=0)
[1] TRUE
> f <- as.call( x );  all.equal(f, as.call( f ), tol=0)
Error in as.call(x) : invalid argument list
> f <- as.character( x );  all.equal(f, as.character( f ), tol=0)
[1] TRUE
> f <- as.character.POSIXt( x );  all.equal(f, as.character.POSIXt( f ), tol=0)
[1] TRUE
> f <- as.character.default( x );  all.equal(f, as.character.default( f ), tol=0)
[1] TRUE
> f <- as.character.factor( x );  all.equal(f, as.character.factor( f ), tol=0)
[1] TRUE
> f <- as.character.octmode( x );  all.equal(f, as.character.octmode( f ), tol=0)
Error in as.character.octmode(x) : calling wrong method
> f <- as.complex( x );  all.equal(f, as.complex( f ), tol=0)
[1] TRUE
> f <- as.complex.default( x );  all.equal(f, as.complex.default( f ), tol=0)
[1] TRUE
> f <- as.data.frame( x );  all.equal(f, as.data.frame( f ), tol=0)
[1] TRUE
> f <- as.data.frame.AsIs( x );  all.equal(f, as.data.frame.AsIs( f ), tol=0)
[1] "Component 1: Modes: numeric, list"                                
[2] "Component 1: names for current but not for target"                
[3] "Component 1: Attributes: < Modes: NULL, list >"                   
[4] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[5] "Component 1: Attributes: < names for current but not for target >"
[6] "Component 1: Attributes: < target is NULL, current is list >"     
[7] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.POSIXct( x );  all.equal(f, as.data.frame.POSIXct( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: numeric, list"                                
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.character( x );  all.equal(f, as.data.frame.character( f ), tol=0)
Error in unique(x) : unique() applies only to vectors
> f <- as.data.frame.complex( x );  all.equal(f, as.data.frame.complex( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: numeric, list"                                
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.data.frame( x );  all.equal(f, as.data.frame.data.frame( f ), tol=0)
Error in if (i > 1) class(x) <- cl[-(1:(i - 1))] : 
	missing value where logical needed
> f <- as.data.frame.default( x );  all.equal(f, as.data.frame.default( f ), tol=0)
Error in as.data.frame.default(x) : can't coerce numeric into a data.frame
> f <- as.data.frame.factor( x );  all.equal(f, as.data.frame.factor( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: numeric, list"                                
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.integer( x );  all.equal(f, as.data.frame.integer( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: numeric, list"                                
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.list( x );  all.equal(f, as.data.frame.list( f ), tol=0)
[1] TRUE
> f <- as.data.frame.logical( x );  all.equal(f, as.data.frame.logical( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: numeric, list"                                
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.matrix( x );  all.equal(f, as.data.frame.matrix( f ), tol=0)
Error in ceiling(length.out) : Non-numeric argument to mathematical function
> f <- as.data.frame.model.matrix( x );  all.equal(f, as.data.frame.model.matrix( f ), tol=0)
Error in 1:nrows : NA/NaN argument
> f <- as.data.frame.numeric( x );  all.equal(f, as.data.frame.numeric( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: numeric, list"                                
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.ordered( x );  all.equal(f, as.data.frame.ordered( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: numeric, list"                                
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.table( x );  all.equal(f, as.data.frame.table( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.data.frame.ts( x );  all.equal(f, as.data.frame.ts( f ), tol=0)
[1] "Attributes: < Component 2: 1 string mismatches >"                 
[2] "Component 1: Modes: numeric, list"                                
[3] "Component 1: names for current but not for target"                
[4] "Component 1: Attributes: < Modes: NULL, list >"                   
[5] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[6] "Component 1: Attributes: < names for current but not for target >"
[7] "Component 1: Attributes: < target is NULL, current is list >"     
[8] "Component 1: target is numeric, current is data.frame"            
> f <- as.data.frame.vector( x );  all.equal(f, as.data.frame.vector( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: numeric, list"                                
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is numeric, current is data.frame"            
> f <- as.double( x );  all.equal(f, as.double( f ), tol=0)
[1] TRUE
> f <- as.double.default( x );  all.equal(f, as.double.default( f ), tol=0)
[1] TRUE
> f <- as.environment( x );  all.equal(f, as.environment( f ), tol=0)
[1] TRUE
> f <- as.expression( x );  all.equal(f, as.expression( f ), tol=0)
[1] TRUE
> f <- as.expression.default( x );  all.equal(f, as.expression.default( f ), tol=0)
[1] TRUE
> f <- as.factor( x );  all.equal(f, as.factor( f ), tol=0)
[1] TRUE
> f <- as.formula( x );  all.equal(f, as.formula( f ), tol=0)
Error in switch(mode(x), "NULL" = structure(NULL, class = "formula"),  : 
	invalid formula
> f <- as.function( x );  all.equal(f, as.function( f ), tol=0)
Error in as.function.default(x, envir) : list argument expected
> f <- as.function.default( x );  all.equal(f, as.function.default( f ), tol=0)
Error in as.function.default(x, envir) : list argument expected
> f <- as.integer( x );  all.equal(f, as.integer( f ), tol=0)
[1] TRUE
> f <- as.integer.default( x );  all.equal(f, as.integer.default( f ), tol=0)
[1] TRUE
> f <- as.list( x );  all.equal(f, as.list( f ), tol=0)
[1] TRUE
> f <- as.list.data.frame( x );  all.equal(f, as.list.data.frame( f ), tol=0)
[1] TRUE
> f <- as.list.default( x );  all.equal(f, as.list.default( f ), tol=0)
[1] TRUE
> f <- as.logical( x );  all.equal(f, as.logical( f ), tol=0)
[1] TRUE
> f <- as.logical.default( x );  all.equal(f, as.logical.default( f ), tol=0)
[1] TRUE
> f <- as.matrix( x );  all.equal(f, as.matrix( f ), tol=0)
[1] TRUE
> f <- as.matrix.POSIXlt( x );  all.equal(f, as.matrix.POSIXlt( f ), tol=0)
[1] TRUE
> f <- as.matrix.data.frame( x );  all.equal(f, as.matrix.data.frame( f ), tol=0)
Error in 1:p : NA/NaN argument
> f <- as.matrix.default( x );  all.equal(f, as.matrix.default( f ), tol=0)
[1] TRUE
> f <- as.matrix.noquote( x );  all.equal(f, as.matrix.noquote( f ), tol=0)
Error in NextMethod(generic, object, ...) : 
	object not specified
> f <- as.name( x );  all.equal(f, as.name( f ), tol=0)
[1] TRUE
> f <- as.null( x );  all.equal(f, as.null( f ), tol=0)
[1] TRUE
> f <- as.null.default( x );  all.equal(f, as.null.default( f ), tol=0)
[1] TRUE
> f <- as.numeric( x );  all.equal(f, as.numeric( f ), tol=0)
[1] TRUE
> f <- as.ordered( x );  all.equal(f, as.ordered( f ), tol=0)
[1] TRUE
> f <- as.pairlist( x );  all.equal(f, as.pairlist( f ), tol=0)
[1] TRUE
> f <- as.qr( x );  all.equal(f, as.qr( f ), tol=0)
Error in as.qr(x) : you cannot be serious
> f <- as.real( x );  all.equal(f, as.real( f ), tol=0)
[1] TRUE
> f <- as.single( x );  all.equal(f, as.single( f ), tol=0)
[1] TRUE
> f <- as.single.default( x );  all.equal(f, as.single.default( f ), tol=0)
[1] TRUE
> f <- as.symbol( x );  all.equal(f, as.symbol( f ), tol=0)
[1] TRUE
> f <- as.table( x );  all.equal(f, as.table( f ), tol=0)
[1] TRUE
> f <- as.table.default( x );  all.equal(f, as.table.default( f ), tol=0)
[1] TRUE
> f <- as.table.ftable( x );  all.equal(f, as.table.ftable( f ), tol=0)
Error in as.table.ftable(x) : x must be an `ftable'
> f <- as.ts( x );  all.equal(f, as.ts( f ), tol=0)
[1] TRUE
> f <- as.vector( x );  all.equal(f, as.vector( f ), tol=0)
[1] TRUE
> f <- as.vector.factor( x );  all.equal(f, as.vector.factor( f ), tol=0)
[1] TRUE
> 
> ###--------
>  x <- "1.3"
> is.array(as.array( x ))
[1] TRUE
> is.call(as.call( x ))
Error in as.call(x) : invalid argument list
> is.character(as.character( x ))
[1] TRUE
> is.complex(as.complex( x ))
[1] TRUE
> is.data.frame(as.data.frame( x ))
[1] TRUE
> is.double(as.double( x ))
[1] TRUE
> is.environment(as.environment( x ))
Error in as.environment(x) : Package named "1.3" not found in search list
> is.expression(as.expression( x ))
[1] TRUE
> is.factor(as.factor( x ))
[1] TRUE
> is.function(as.function( x ))
Error in as.function.default(x, envir) : list argument expected
> is.integer(as.integer( x ))
[1] TRUE
> is.list(as.list( x ))
[1] TRUE
> is.logical(as.logical( x ))
[1] TRUE
> is.matrix(as.matrix( x ))
[1] TRUE
> is.name(as.name( x ))
[1] TRUE
> is.null(as.null( x ))
[1] TRUE
> is.numeric(as.numeric( x ))
[1] TRUE
> is.ordered(as.ordered( x ))
[1] TRUE
> is.pairlist(as.pairlist( x ))
[1] TRUE
> is.qr(as.qr( x ))
Error in as.qr(x) : you cannot be serious
> is.real(as.real( x ))
[1] TRUE
> is.single(as.single( x ))
Error in is.single(as.single(x)) : type "single" unimplemented in R
> is.symbol(as.symbol( x ))
[1] TRUE
> is.table(as.table( x ))
Error in as.table.default(x) : cannot coerce into a table
> is.ts(as.ts( x ))
[1] TRUE
> is.vector(as.vector( x ))
[1] TRUE
> 
> if(is.array(x)) { cat('IS: ');all.equal(x, as.array( x ), tol=0)
+ } else   !isall.equal(x, as.array( x ))
[1] TRUE
> if(is.call(x)) { cat('IS: ');all.equal(x, as.call( x ), tol=0)
+ } else   !isall.equal(x, as.call( x ))
Error in as.call(x) : invalid argument list
> if(is.character(x)) { cat('IS: ');all.equal(x, as.character( x ), tol=0)
+ } else   !isall.equal(x, as.character( x ))
IS: [1] TRUE
> if(is.complex(x)) { cat('IS: ');all.equal(x, as.complex( x ), tol=0)
+ } else   !isall.equal(x, as.complex( x ))
[1] TRUE
> if(is.data.frame(x)) { cat('IS: ');all.equal(x, as.data.frame( x ), tol=0)
+ } else   !isall.equal(x, as.data.frame( x ))
[1] TRUE
> if(is.double(x)) { cat('IS: ');all.equal(x, as.double( x ), tol=0)
+ } else   !isall.equal(x, as.double( x ))
[1] TRUE
> if(is.environment(x)) { cat('IS: ');all.equal(x, as.environment( x ), tol=0)
+ } else   !isall.equal(x, as.environment( x ))
Error in as.environment(x) : Package named "1.3" not found in search list
> if(is.expression(x)) { cat('IS: ');all.equal(x, as.expression( x ), tol=0)
+ } else   !isall.equal(x, as.expression( x ))
[1] TRUE
> if(is.factor(x)) { cat('IS: ');all.equal(x, as.factor( x ), tol=0)
+ } else   !isall.equal(x, as.factor( x ))
[1] TRUE
> if(is.function(x)) { cat('IS: ');all.equal(x, as.function( x ), tol=0)
+ } else   !isall.equal(x, as.function( x ))
Error in as.function.default(x, envir) : list argument expected
> if(is.integer(x)) { cat('IS: ');all.equal(x, as.integer( x ), tol=0)
+ } else   !isall.equal(x, as.integer( x ))
[1] TRUE
> if(is.list(x)) { cat('IS: ');all.equal(x, as.list( x ), tol=0)
+ } else   !isall.equal(x, as.list( x ))
[1] TRUE
> if(is.logical(x)) { cat('IS: ');all.equal(x, as.logical( x ), tol=0)
+ } else   !isall.equal(x, as.logical( x ))
[1] TRUE
> if(is.matrix(x)) { cat('IS: ');all.equal(x, as.matrix( x ), tol=0)
+ } else   !isall.equal(x, as.matrix( x ))
[1] TRUE
> if(is.name(x)) { cat('IS: ');all.equal(x, as.name( x ), tol=0)
+ } else   !isall.equal(x, as.name( x ))
[1] TRUE
> if(is.null(x)) { cat('IS: ');all.equal(x, as.null( x ), tol=0)
+ } else   !isall.equal(x, as.null( x ))
[1] TRUE
> if(is.numeric(x)) { cat('IS: ');all.equal(x, as.numeric( x ), tol=0)
+ } else   !isall.equal(x, as.numeric( x ))
[1] TRUE
> if(is.ordered(x)) { cat('IS: ');all.equal(x, as.ordered( x ), tol=0)
+ } else   !isall.equal(x, as.ordered( x ))
[1] TRUE
> if(is.pairlist(x)) { cat('IS: ');all.equal(x, as.pairlist( x ), tol=0)
+ } else   !isall.equal(x, as.pairlist( x ))
[1] TRUE
> if(is.qr(x)) { cat('IS: ');all.equal(x, as.qr( x ), tol=0)
+ } else   !isall.equal(x, as.qr( x ))
Error in as.qr(x) : you cannot be serious
> if(is.real(x)) { cat('IS: ');all.equal(x, as.real( x ), tol=0)
+ } else   !isall.equal(x, as.real( x ))
[1] TRUE
> if(is.single(x)) { cat('IS: ');all.equal(x, as.single( x ), tol=0)
+ } else   !isall.equal(x, as.single( x ))
Error in is.single(x) : type "single" unimplemented in R
> if(is.symbol(x)) { cat('IS: ');all.equal(x, as.symbol( x ), tol=0)
+ } else   !isall.equal(x, as.symbol( x ))
[1] TRUE
> if(is.table(x)) { cat('IS: ');all.equal(x, as.table( x ), tol=0)
+ } else   !isall.equal(x, as.table( x ))
Error in as.table.default(x) : cannot coerce into a table
> if(is.ts(x)) { cat('IS: ');all.equal(x, as.ts( x ), tol=0)
+ } else   !isall.equal(x, as.ts( x ))
[1] TRUE
> if(is.vector(x)) { cat('IS: ');all.equal(x, as.vector( x ), tol=0)
+ } else   !isall.equal(x, as.vector( x ))
IS: [1] TRUE
> f <- as.POSIXct( x );  all.equal(f, as.POSIXct( f ), tol=0)
Error in fromchar(x) : character string is not in a standard unambiguous format
> f <- as.POSIXct.POSIXlt( x );  all.equal(f, as.POSIXct.POSIXlt( f ), tol=0)
Error in structure(.Internal(as.POSIXct(x, tz)), class = c("POSIXt", "POSIXct")) : 
	invalid `x' argument
> f <- as.POSIXct.date( x );  all.equal(f, as.POSIXct.date( f ), tol=0)
Error in as.POSIXct.date(x) : `x' is not a "dates" object
> f <- as.POSIXct.dates( x );  all.equal(f, as.POSIXct.dates( f ), tol=0)
Error in as.POSIXct.dates(x) : `x' is not a "dates" object
> f <- as.POSIXct.default( x );  all.equal(f, as.POSIXct.default( f ), tol=0)
Error in fromchar(x) : character string is not in a standard unambiguous format
> f <- as.POSIXlt( x );  all.equal(f, as.POSIXlt( f ), tol=0)
Error in fromchar(x) : character string is not in a standard unambiguous format
> f <- as.array( x );  all.equal(f, as.array( f ), tol=0)
[1] TRUE
> f <- as.call( x );  all.equal(f, as.call( f ), tol=0)
Error in as.call(x) : invalid argument list
> f <- as.character( x );  all.equal(f, as.character( f ), tol=0)
[1] TRUE
> f <- as.character.POSIXt( x );  all.equal(f, as.character.POSIXt( f ), tol=0)
[1] TRUE
> f <- as.character.default( x );  all.equal(f, as.character.default( f ), tol=0)
[1] TRUE
> f <- as.character.factor( x );  all.equal(f, as.character.factor( f ), tol=0)
[1] TRUE
> f <- as.character.octmode( x );  all.equal(f, as.character.octmode( f ), tol=0)
Error in as.character.octmode(x) : calling wrong method
> f <- as.complex( x );  all.equal(f, as.complex( f ), tol=0)
[1] TRUE
> f <- as.complex.default( x );  all.equal(f, as.complex.default( f ), tol=0)
[1] TRUE
> f <- as.data.frame( x );  all.equal(f, as.data.frame( f ), tol=0)
[1] TRUE
> f <- as.data.frame.AsIs( x );  all.equal(f, as.data.frame.AsIs( f ), tol=0)
[1] "Component 1: Modes: character, list"                              
[2] "Component 1: names for current but not for target"                
[3] "Component 1: Attributes: < Modes: NULL, list >"                   
[4] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[5] "Component 1: Attributes: < names for current but not for target >"
[6] "Component 1: Attributes: < target is NULL, current is list >"     
[7] "Component 1: target is character, current is data.frame"          
> f <- as.data.frame.POSIXct( x );  all.equal(f, as.data.frame.POSIXct( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: character, list"                              
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is character, current is data.frame"          
> f <- as.data.frame.character( x );  all.equal(f, as.data.frame.character( f ), tol=0)
Error in unique(x) : unique() applies only to vectors
> f <- as.data.frame.complex( x );  all.equal(f, as.data.frame.complex( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: character, list"                              
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is character, current is data.frame"          
> f <- as.data.frame.data.frame( x );  all.equal(f, as.data.frame.data.frame( f ), tol=0)
Error in if (i > 1) class(x) <- cl[-(1:(i - 1))] : 
	missing value where logical needed
> f <- as.data.frame.default( x );  all.equal(f, as.data.frame.default( f ), tol=0)
Error in as.data.frame.default(x) : can't coerce character into a data.frame
> f <- as.data.frame.factor( x );  all.equal(f, as.data.frame.factor( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: character, list"                              
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is character, current is data.frame"          
> f <- as.data.frame.integer( x );  all.equal(f, as.data.frame.integer( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: character, list"                              
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is character, current is data.frame"          
> f <- as.data.frame.list( x );  all.equal(f, as.data.frame.list( f ), tol=0)
[1] TRUE
> f <- as.data.frame.logical( x );  all.equal(f, as.data.frame.logical( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: character, list"                              
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is character, current is data.frame"          
> f <- as.data.frame.matrix( x );  all.equal(f, as.data.frame.matrix( f ), tol=0)
Error in ceiling(length.out) : Non-numeric argument to mathematical function
> f <- as.data.frame.model.matrix( x );  all.equal(f, as.data.frame.model.matrix( f ), tol=0)
Error in 1:nrows : NA/NaN argument
> f <- as.data.frame.numeric( x );  all.equal(f, as.data.frame.numeric( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: character, list"                              
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is character, current is data.frame"          
> f <- as.data.frame.ordered( x );  all.equal(f, as.data.frame.ordered( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: character, list"                              
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is character, current is data.frame"          
> f <- as.data.frame.table( x );  all.equal(f, as.data.frame.table( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.data.frame.ts( x );  all.equal(f, as.data.frame.ts( f ), tol=0)
[1] "Attributes: < Component 2: 1 string mismatches >"                 
[2] "Component 1: Modes: character, list"                              
[3] "Component 1: names for current but not for target"                
[4] "Component 1: Attributes: < Modes: NULL, list >"                   
[5] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[6] "Component 1: Attributes: < names for current but not for target >"
[7] "Component 1: Attributes: < target is NULL, current is list >"     
[8] "Component 1: target is character, current is data.frame"          
> f <- as.data.frame.vector( x );  all.equal(f, as.data.frame.vector( f ), tol=0)
[1] "Names: 1 string mismatches"                                       
[2] "Attributes: < Component 2: 1 string mismatches >"                 
[3] "Component 1: Modes: character, list"                              
[4] "Component 1: names for current but not for target"                
[5] "Component 1: Attributes: < Modes: NULL, list >"                   
[6] "Component 1: Attributes: < Lengths: 0, 2 >"                       
[7] "Component 1: Attributes: < names for current but not for target >"
[8] "Component 1: Attributes: < target is NULL, current is list >"     
[9] "Component 1: target is character, current is data.frame"          
> f <- as.double( x );  all.equal(f, as.double( f ), tol=0)
[1] TRUE
> f <- as.double.default( x );  all.equal(f, as.double.default( f ), tol=0)
[1] TRUE
> f <- as.environment( x );  all.equal(f, as.environment( f ), tol=0)
Error in as.environment(x) : Package named "1.3" not found in search list
> f <- as.expression( x );  all.equal(f, as.expression( f ), tol=0)
[1] TRUE
> f <- as.expression.default( x );  all.equal(f, as.expression.default( f ), tol=0)
[1] TRUE
> f <- as.factor( x );  all.equal(f, as.factor( f ), tol=0)
[1] TRUE
> f <- as.formula( x );  all.equal(f, as.formula( f ), tol=0)
Error in switch(mode(x), "NULL" = structure(NULL, class = "formula"),  : 
	invalid formula
> f <- as.function( x );  all.equal(f, as.function( f ), tol=0)
Error in as.function.default(x, envir) : list argument expected
> f <- as.function.default( x );  all.equal(f, as.function.default( f ), tol=0)
Error in as.function.default(x, envir) : list argument expected
> f <- as.integer( x );  all.equal(f, as.integer( f ), tol=0)
[1] TRUE
> f <- as.integer.default( x );  all.equal(f, as.integer.default( f ), tol=0)
[1] TRUE
> f <- as.list( x );  all.equal(f, as.list( f ), tol=0)
[1] TRUE
> f <- as.list.data.frame( x );  all.equal(f, as.list.data.frame( f ), tol=0)
[1] TRUE
> f <- as.list.default( x );  all.equal(f, as.list.default( f ), tol=0)
[1] TRUE
> f <- as.logical( x );  all.equal(f, as.logical( f ), tol=0)
[1] TRUE
> f <- as.logical.default( x );  all.equal(f, as.logical.default( f ), tol=0)
[1] TRUE
> f <- as.matrix( x );  all.equal(f, as.matrix( f ), tol=0)
[1] TRUE
> f <- as.matrix.POSIXlt( x );  all.equal(f, as.matrix.POSIXlt( f ), tol=0)
[1] TRUE
> f <- as.matrix.data.frame( x );  all.equal(f, as.matrix.data.frame( f ), tol=0)
Error in 1:p : NA/NaN argument
> f <- as.matrix.default( x );  all.equal(f, as.matrix.default( f ), tol=0)
[1] TRUE
> f <- as.matrix.noquote( x );  all.equal(f, as.matrix.noquote( f ), tol=0)
Error in NextMethod(generic, object, ...) : 
	object not specified
> f <- as.name( x );  all.equal(f, as.name( f ), tol=0)
[1] TRUE
> f <- as.null( x );  all.equal(f, as.null( f ), tol=0)
[1] TRUE
> f <- as.null.default( x );  all.equal(f, as.null.default( f ), tol=0)
[1] TRUE
> f <- as.numeric( x );  all.equal(f, as.numeric( f ), tol=0)
[1] TRUE
> f <- as.ordered( x );  all.equal(f, as.ordered( f ), tol=0)
[1] TRUE
> f <- as.pairlist( x );  all.equal(f, as.pairlist( f ), tol=0)
[1] TRUE
> f <- as.qr( x );  all.equal(f, as.qr( f ), tol=0)
Error in as.qr(x) : you cannot be serious
> f <- as.real( x );  all.equal(f, as.real( f ), tol=0)
[1] TRUE
> f <- as.single( x );  all.equal(f, as.single( f ), tol=0)
[1] TRUE
> f <- as.single.default( x );  all.equal(f, as.single.default( f ), tol=0)
[1] TRUE
> f <- as.symbol( x );  all.equal(f, as.symbol( f ), tol=0)
[1] TRUE
> f <- as.table( x );  all.equal(f, as.table( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.table.default( x );  all.equal(f, as.table.default( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.table.ftable( x );  all.equal(f, as.table.ftable( f ), tol=0)
Error in as.table.ftable(x) : x must be an `ftable'
> f <- as.ts( x );  all.equal(f, as.ts( f ), tol=0)
[1] TRUE
> f <- as.vector( x );  all.equal(f, as.vector( f ), tol=0)
[1] TRUE
> f <- as.vector.factor( x );  all.equal(f, as.vector.factor( f ), tol=0)
[1] TRUE
> 
> ###--------
>  x <- list(a = 1)
> is.array(as.array( x ))
[1] TRUE
> is.call(as.call( x ))
[1] TRUE
> is.character(as.character( x ))
[1] TRUE
> is.complex(as.complex( x ))
[1] TRUE
> is.data.frame(as.data.frame( x ))
[1] TRUE
> is.double(as.double( x ))
[1] TRUE
> is.environment(as.environment( x ))
Error in as.environment(x) : Invalid object for as.environment
> is.expression(as.expression( x ))
[1] TRUE
> is.factor(as.factor( x ))
Error in unique(x) : unique() applies only to vectors
> is.function(as.function( x ))
[1] TRUE
> is.integer(as.integer( x ))
[1] TRUE
> is.list(as.list( x ))
[1] TRUE
> is.logical(as.logical( x ))
[1] TRUE
> is.matrix(as.matrix( x ))
[1] TRUE
> is.name(as.name( x ))
Error in as.name(x) : invalid type/length (1/1) in vector allocation
> is.null(as.null( x ))
[1] TRUE
> is.numeric(as.numeric( x ))
[1] TRUE
> is.ordered(as.ordered( x ))
Error in unique(x) : unique() applies only to vectors
> is.pairlist(as.pairlist( x ))
[1] TRUE
> is.qr(as.qr( x ))
Error in as.qr(x) : you cannot be serious
> is.real(as.real( x ))
[1] TRUE
> is.single(as.single( x ))
Error in is.single(as.single(x)) : type "single" unimplemented in R
> is.symbol(as.symbol( x ))
Error in as.symbol(x) : invalid type/length (1/1) in vector allocation
> is.table(as.table( x ))
Error in as.table.default(x) : cannot coerce into a table
> is.ts(as.ts( x ))
[1] TRUE
> is.vector(as.vector( x ))
[1] TRUE
> 
> if(is.array(x)) { cat('IS: ');all.equal(x, as.array( x ), tol=0)
+ } else   !isall.equal(x, as.array( x ))
[1] TRUE
> if(is.call(x)) { cat('IS: ');all.equal(x, as.call( x ), tol=0)
+ } else   !isall.equal(x, as.call( x ))
[1] TRUE
> if(is.character(x)) { cat('IS: ');all.equal(x, as.character( x ), tol=0)
+ } else   !isall.equal(x, as.character( x ))
[1] TRUE
> if(is.complex(x)) { cat('IS: ');all.equal(x, as.complex( x ), tol=0)
+ } else   !isall.equal(x, as.complex( x ))
[1] TRUE
> if(is.data.frame(x)) { cat('IS: ');all.equal(x, as.data.frame( x ), tol=0)
+ } else   !isall.equal(x, as.data.frame( x ))
[1] TRUE
> if(is.double(x)) { cat('IS: ');all.equal(x, as.double( x ), tol=0)
+ } else   !isall.equal(x, as.double( x ))
[1] TRUE
> if(is.environment(x)) { cat('IS: ');all.equal(x, as.environment( x ), tol=0)
+ } else   !isall.equal(x, as.environment( x ))
Error in as.environment(x) : Invalid object for as.environment
> if(is.expression(x)) { cat('IS: ');all.equal(x, as.expression( x ), tol=0)
+ } else   !isall.equal(x, as.expression( x ))
[1] TRUE
> if(is.factor(x)) { cat('IS: ');all.equal(x, as.factor( x ), tol=0)
+ } else   !isall.equal(x, as.factor( x ))
Error in unique(x) : unique() applies only to vectors
> if(is.function(x)) { cat('IS: ');all.equal(x, as.function( x ), tol=0)
+ } else   !isall.equal(x, as.function( x ))
[1] TRUE
> if(is.integer(x)) { cat('IS: ');all.equal(x, as.integer( x ), tol=0)
+ } else   !isall.equal(x, as.integer( x ))
[1] TRUE
> if(is.list(x)) { cat('IS: ');all.equal(x, as.list( x ), tol=0)
+ } else   !isall.equal(x, as.list( x ))
IS: [1] TRUE
> if(is.logical(x)) { cat('IS: ');all.equal(x, as.logical( x ), tol=0)
+ } else   !isall.equal(x, as.logical( x ))
[1] TRUE
> if(is.matrix(x)) { cat('IS: ');all.equal(x, as.matrix( x ), tol=0)
+ } else   !isall.equal(x, as.matrix( x ))
[1] TRUE
> if(is.name(x)) { cat('IS: ');all.equal(x, as.name( x ), tol=0)
+ } else   !isall.equal(x, as.name( x ))
Error in as.name(x) : invalid type/length (1/1) in vector allocation
> if(is.null(x)) { cat('IS: ');all.equal(x, as.null( x ), tol=0)
+ } else   !isall.equal(x, as.null( x ))
[1] TRUE
> if(is.numeric(x)) { cat('IS: ');all.equal(x, as.numeric( x ), tol=0)
+ } else   !isall.equal(x, as.numeric( x ))
[1] TRUE
> if(is.ordered(x)) { cat('IS: ');all.equal(x, as.ordered( x ), tol=0)
+ } else   !isall.equal(x, as.ordered( x ))
Error in unique(x) : unique() applies only to vectors
> if(is.pairlist(x)) { cat('IS: ');all.equal(x, as.pairlist( x ), tol=0)
+ } else   !isall.equal(x, as.pairlist( x ))
[1] TRUE
> if(is.qr(x)) { cat('IS: ');all.equal(x, as.qr( x ), tol=0)
+ } else   !isall.equal(x, as.qr( x ))
Error in as.qr(x) : you cannot be serious
> if(is.real(x)) { cat('IS: ');all.equal(x, as.real( x ), tol=0)
+ } else   !isall.equal(x, as.real( x ))
[1] TRUE
> if(is.single(x)) { cat('IS: ');all.equal(x, as.single( x ), tol=0)
+ } else   !isall.equal(x, as.single( x ))
Error in is.single(x) : type "single" unimplemented in R
> if(is.symbol(x)) { cat('IS: ');all.equal(x, as.symbol( x ), tol=0)
+ } else   !isall.equal(x, as.symbol( x ))
Error in as.symbol(x) : invalid type/length (1/1) in vector allocation
> if(is.table(x)) { cat('IS: ');all.equal(x, as.table( x ), tol=0)
+ } else   !isall.equal(x, as.table( x ))
Error in as.table.default(x) : cannot coerce into a table
> if(is.ts(x)) { cat('IS: ');all.equal(x, as.ts( x ), tol=0)
+ } else   !isall.equal(x, as.ts( x ))
[1] TRUE
> if(is.vector(x)) { cat('IS: ');all.equal(x, as.vector( x ), tol=0)
+ } else   !isall.equal(x, as.vector( x ))
IS: [1] TRUE
> f <- as.POSIXct( x );  all.equal(f, as.POSIXct( f ), tol=0)
Error in as.POSIXct.default(x) : Don't know how to convert `x' to class "POSIXct"
> f <- as.POSIXct.POSIXlt( x );  all.equal(f, as.POSIXct.POSIXlt( f ), tol=0)
Error in structure(.Internal(as.POSIXct(x, tz)), class = c("POSIXt", "POSIXct")) : 
	invalid `x' argument
> f <- as.POSIXct.date( x );  all.equal(f, as.POSIXct.date( f ), tol=0)
Error in as.POSIXct.date(x) : `x' is not a "dates" object
> f <- as.POSIXct.dates( x );  all.equal(f, as.POSIXct.dates( f ), tol=0)
Error in as.POSIXct.dates(x) : `x' is not a "dates" object
> f <- as.POSIXct.default( x );  all.equal(f, as.POSIXct.default( f ), tol=0)
Error in as.POSIXct.default(x) : Don't know how to convert `x' to class "POSIXct"
> f <- as.POSIXlt( x );  all.equal(f, as.POSIXlt( f ), tol=0)
Error in as.POSIXlt(x) : Don't know how to convert `x' to class "POSIXlt"
> f <- as.array( x );  all.equal(f, as.array( f ), tol=0)
[1] TRUE
> f <- as.call( x );  all.equal(f, as.call( f ), tol=0)
[1] TRUE
> f <- as.character( x );  all.equal(f, as.character( f ), tol=0)
[1] TRUE
> f <- as.character.POSIXt( x );  all.equal(f, as.character.POSIXt( f ), tol=0)
[1] TRUE
> f <- as.character.default( x );  all.equal(f, as.character.default( f ), tol=0)
[1] TRUE
> f <- as.character.factor( x );  all.equal(f, as.character.factor( f ), tol=0)
[1] TRUE
> f <- as.character.octmode( x );  all.equal(f, as.character.octmode( f ), tol=0)
Error in as.character.octmode(x) : calling wrong method
> f <- as.complex( x );  all.equal(f, as.complex( f ), tol=0)
[1] TRUE
> f <- as.complex.default( x );  all.equal(f, as.complex.default( f ), tol=0)
[1] TRUE
> f <- as.data.frame( x );  all.equal(f, as.data.frame( f ), tol=0)
[1] TRUE
> f <- as.data.frame.AsIs( x );  all.equal(f, as.data.frame.AsIs( f ), tol=0)
[1] "Component 1: Names: 1 string mismatches"                                       
[2] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
[3] "Component 1: Attributes: < names for current but not for target >"             
[4] "Component 1: Attributes: < Length mismatch: comparison on first 0 components >"
[5] "Component 1: Component 1: Modes: numeric, list"                                
[6] "Component 1: Component 1: names for current but not for target"                
[7] "Component 1: Component 1: target is numeric, current is list"                  
> f <- as.data.frame.POSIXct( x );  all.equal(f, as.data.frame.POSIXct( f ), tol=0)
[1] "Names: 1 string mismatches"                                                    
[2] "Attributes: < Component 2: 1 string mismatches >"                              
[3] "Component 1: Names: 1 string mismatches"                                       
[4] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
[5] "Component 1: Attributes: < names for current but not for target >"             
[6] "Component 1: Attributes: < Length mismatch: comparison on first 0 components >"
[7] "Component 1: Component 1: Modes: numeric, list"                                
[8] "Component 1: Component 1: names for current but not for target"                
[9] "Component 1: Component 1: target is numeric, current is list"                  
> f <- as.data.frame.character( x );  all.equal(f, as.data.frame.character( f ), tol=0)
Error in unique(x) : unique() applies only to vectors
> f <- as.data.frame.complex( x );  all.equal(f, as.data.frame.complex( f ), tol=0)
[1] "Names: 1 string mismatches"                                                    
[2] "Attributes: < Component 2: 1 string mismatches >"                              
[3] "Component 1: Names: 1 string mismatches"                                       
[4] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
[5] "Component 1: Attributes: < names for current but not for target >"             
[6] "Component 1: Attributes: < Length mismatch: comparison on first 0 components >"
[7] "Component 1: Component 1: Modes: numeric, list"                                
[8] "Component 1: Component 1: names for current but not for target"                
[9] "Component 1: Component 1: target is numeric, current is list"                  
> f <- as.data.frame.data.frame( x );  all.equal(f, as.data.frame.data.frame( f ), tol=0)
Error in if (i > 1) class(x) <- cl[-(1:(i - 1))] : 
	missing value where logical needed
> f <- as.data.frame.default( x );  all.equal(f, as.data.frame.default( f ), tol=0)
Error in as.data.frame.default(x) : can't coerce list into a data.frame
> f <- as.data.frame.factor( x );  all.equal(f, as.data.frame.factor( f ), tol=0)
[1] "Names: 1 string mismatches"                                                    
[2] "Attributes: < Component 2: 1 string mismatches >"                              
[3] "Component 1: Names: 1 string mismatches"                                       
[4] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
[5] "Component 1: Attributes: < names for current but not for target >"             
[6] "Component 1: Attributes: < Length mismatch: comparison on first 0 components >"
[7] "Component 1: Component 1: Modes: numeric, list"                                
[8] "Component 1: Component 1: names for current but not for target"                
[9] "Component 1: Component 1: target is numeric, current is list"                  
> f <- as.data.frame.integer( x );  all.equal(f, as.data.frame.integer( f ), tol=0)
[1] "Names: 1 string mismatches"                                                    
[2] "Attributes: < Component 2: 1 string mismatches >"                              
[3] "Component 1: Names: 1 string mismatches"                                       
[4] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
[5] "Component 1: Attributes: < names for current but not for target >"             
[6] "Component 1: Attributes: < Length mismatch: comparison on first 0 components >"
[7] "Component 1: Component 1: Modes: numeric, list"                                
[8] "Component 1: Component 1: names for current but not for target"                
[9] "Component 1: Component 1: target is numeric, current is list"                  
> f <- as.data.frame.list( x );  all.equal(f, as.data.frame.list( f ), tol=0)
[1] TRUE
> f <- as.data.frame.logical( x );  all.equal(f, as.data.frame.logical( f ), tol=0)
[1] "Names: 1 string mismatches"                                                    
[2] "Attributes: < Component 2: 1 string mismatches >"                              
[3] "Component 1: Names: 1 string mismatches"                                       
[4] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
[5] "Component 1: Attributes: < names for current but not for target >"             
[6] "Component 1: Attributes: < Length mismatch: comparison on first 0 components >"
[7] "Component 1: Component 1: Modes: numeric, list"                                
[8] "Component 1: Component 1: names for current but not for target"                
[9] "Component 1: Component 1: target is numeric, current is list"                  
> f <- as.data.frame.matrix( x );  all.equal(f, as.data.frame.matrix( f ), tol=0)
Error in ceiling(length.out) : Non-numeric argument to mathematical function
> f <- as.data.frame.model.matrix( x );  all.equal(f, as.data.frame.model.matrix( f ), tol=0)
Error in 1:nrows : NA/NaN argument
> f <- as.data.frame.numeric( x );  all.equal(f, as.data.frame.numeric( f ), tol=0)
[1] "Names: 1 string mismatches"                                                    
[2] "Attributes: < Component 2: 1 string mismatches >"                              
[3] "Component 1: Names: 1 string mismatches"                                       
[4] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
[5] "Component 1: Attributes: < names for current but not for target >"             
[6] "Component 1: Attributes: < Length mismatch: comparison on first 0 components >"
[7] "Component 1: Component 1: Modes: numeric, list"                                
[8] "Component 1: Component 1: names for current but not for target"                
[9] "Component 1: Component 1: target is numeric, current is list"                  
> f <- as.data.frame.ordered( x );  all.equal(f, as.data.frame.ordered( f ), tol=0)
[1] "Names: 1 string mismatches"                                                    
[2] "Attributes: < Component 2: 1 string mismatches >"                              
[3] "Component 1: Names: 1 string mismatches"                                       
[4] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
[5] "Component 1: Attributes: < names for current but not for target >"             
[6] "Component 1: Attributes: < Length mismatch: comparison on first 0 components >"
[7] "Component 1: Component 1: Modes: numeric, list"                                
[8] "Component 1: Component 1: names for current but not for target"                
[9] "Component 1: Component 1: target is numeric, current is list"                  
> f <- as.data.frame.table( x );  all.equal(f, as.data.frame.table( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.data.frame.ts( x );  all.equal(f, as.data.frame.ts( f ), tol=0)
[1] "Attributes: < Component 2: 1 string mismatches >"                              
[2] "Component 1: Names: 1 string mismatches"                                       
[3] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
[4] "Component 1: Attributes: < names for current but not for target >"             
[5] "Component 1: Attributes: < Length mismatch: comparison on first 0 components >"
[6] "Component 1: Component 1: Modes: numeric, list"                                
[7] "Component 1: Component 1: names for current but not for target"                
[8] "Component 1: Component 1: target is numeric, current is list"                  
> f <- as.data.frame.vector( x );  all.equal(f, as.data.frame.vector( f ), tol=0)
[1] "Names: 1 string mismatches"                                                    
[2] "Attributes: < Component 2: 1 string mismatches >"                              
[3] "Component 1: Names: 1 string mismatches"                                       
[4] "Component 1: Attributes: < Lengths: 0, 2 >"                                    
[5] "Component 1: Attributes: < names for current but not for target >"             
[6] "Component 1: Attributes: < Length mismatch: comparison on first 0 components >"
[7] "Component 1: Component 1: Modes: numeric, list"                                
[8] "Component 1: Component 1: names for current but not for target"                
[9] "Component 1: Component 1: target is numeric, current is list"                  
> f <- as.double( x );  all.equal(f, as.double( f ), tol=0)
[1] TRUE
> f <- as.double.default( x );  all.equal(f, as.double.default( f ), tol=0)
[1] TRUE
> f <- as.environment( x );  all.equal(f, as.environment( f ), tol=0)
Error in as.environment(x) : Invalid object for as.environment
> f <- as.expression( x );  all.equal(f, as.expression( f ), tol=0)
[1] TRUE
> f <- as.expression.default( x );  all.equal(f, as.expression.default( f ), tol=0)
[1] TRUE
> f <- as.factor( x );  all.equal(f, as.factor( f ), tol=0)
Error in unique(x) : unique() applies only to vectors
> f <- as.formula( x );  all.equal(f, as.formula( f ), tol=0)
Error in switch(mode(x), "NULL" = structure(NULL, class = "formula"),  : 
	invalid formula
> f <- as.function( x );  all.equal(f, as.function( f ), tol=0)
[1] TRUE
> f <- as.function.default( x );  all.equal(f, as.function.default( f ), tol=0)
[1] TRUE
> f <- as.integer( x );  all.equal(f, as.integer( f ), tol=0)
[1] TRUE
> f <- as.integer.default( x );  all.equal(f, as.integer.default( f ), tol=0)
[1] TRUE
> f <- as.list( x );  all.equal(f, as.list( f ), tol=0)
[1] TRUE
> f <- as.list.data.frame( x );  all.equal(f, as.list.data.frame( f ), tol=0)
[1] TRUE
> f <- as.list.default( x );  all.equal(f, as.list.default( f ), tol=0)
[1] TRUE
> f <- as.logical( x );  all.equal(f, as.logical( f ), tol=0)
[1] TRUE
> f <- as.logical.default( x );  all.equal(f, as.logical.default( f ), tol=0)
[1] TRUE
> f <- as.matrix( x );  all.equal(f, as.matrix( f ), tol=0)
[1] TRUE
> f <- as.matrix.POSIXlt( x );  all.equal(f, as.matrix.POSIXlt( f ), tol=0)
[1] TRUE
> f <- as.matrix.data.frame( x );  all.equal(f, as.matrix.data.frame( f ), tol=0)
Error in 1:p : NA/NaN argument
> f <- as.matrix.default( x );  all.equal(f, as.matrix.default( f ), tol=0)
[1] TRUE
> f <- as.matrix.noquote( x );  all.equal(f, as.matrix.noquote( f ), tol=0)
Error in NextMethod(generic, object, ...) : 
	object not specified
> f <- as.name( x );  all.equal(f, as.name( f ), tol=0)
Error in as.name(x) : invalid type/length (1/1) in vector allocation
> f <- as.null( x );  all.equal(f, as.null( f ), tol=0)
[1] TRUE
> f <- as.null.default( x );  all.equal(f, as.null.default( f ), tol=0)
[1] TRUE
> f <- as.numeric( x );  all.equal(f, as.numeric( f ), tol=0)
[1] TRUE
> f <- as.ordered( x );  all.equal(f, as.ordered( f ), tol=0)
Error in unique(x) : unique() applies only to vectors
> f <- as.pairlist( x );  all.equal(f, as.pairlist( f ), tol=0)
[1] TRUE
> f <- as.qr( x );  all.equal(f, as.qr( f ), tol=0)
Error in as.qr(x) : you cannot be serious
> f <- as.real( x );  all.equal(f, as.real( f ), tol=0)
[1] TRUE
> f <- as.single( x );  all.equal(f, as.single( f ), tol=0)
[1] TRUE
> f <- as.single.default( x );  all.equal(f, as.single.default( f ), tol=0)
[1] TRUE
> f <- as.symbol( x );  all.equal(f, as.symbol( f ), tol=0)
Error in as.symbol(x) : invalid type/length (1/1) in vector allocation
> f <- as.table( x );  all.equal(f, as.table( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.table.default( x );  all.equal(f, as.table.default( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.table.ftable( x );  all.equal(f, as.table.ftable( f ), tol=0)
Error in as.table.ftable(x) : x must be an `ftable'
> f <- as.ts( x );  all.equal(f, as.ts( f ), tol=0)
[1] TRUE
> f <- as.vector( x );  all.equal(f, as.vector( f ), tol=0)
[1] TRUE
> f <- as.vector.factor( x );  all.equal(f, as.vector.factor( f ), tol=0)
[1] TRUE
> 
> ###--------
>  x <- as.data.frame(character(0))
> is.array(as.array( x ))
Error in "dimnames<-.data.frame"(*tmp*, value = list(n)) : 
	invalid dimnames given for data frame
> is.call(as.call( x ))
[1] TRUE
> is.character(as.character( x ))
[1] TRUE
> is.complex(as.complex( x ))
[1] TRUE
> is.data.frame(as.data.frame( x ))
[1] TRUE
> is.double(as.double( x ))
[1] TRUE
> is.environment(as.environment( x ))
Error in as.environment(x) : Invalid object for as.environment
> is.expression(as.expression( x ))
[1] TRUE
> is.factor(as.factor( x ))
Error in unique(x) : unique() applies only to vectors
> is.function(as.function( x ))
[1] TRUE
> is.integer(as.integer( x ))
[1] TRUE
> is.list(as.list( x ))
[1] TRUE
> is.logical(as.logical( x ))
[1] TRUE
> is.matrix(as.matrix( x ))
[1] TRUE
> is.name(as.name( x ))
Error in as.name(x) : invalid type/length (1/1) in vector allocation
> is.null(as.null( x ))
[1] TRUE
> is.numeric(as.numeric( x ))
[1] TRUE
> is.ordered(as.ordered( x ))
Error in unique(x) : unique() applies only to vectors
> is.pairlist(as.pairlist( x ))
[1] TRUE
> is.qr(as.qr( x ))
Error in as.qr(x) : you cannot be serious
> is.real(as.real( x ))
[1] TRUE
> is.single(as.single( x ))
Error in is.single(as.single(x)) : type "single" unimplemented in R
> is.symbol(as.symbol( x ))
Error in as.symbol(x) : invalid type/length (1/1) in vector allocation
> is.table(as.table( x ))
Error in as.table.default(x) : cannot coerce into a table
> is.ts(as.ts( x ))
Error in ts(x) : ts object must have one or more observations
> is.vector(as.vector( x ))
[1] FALSE
> 
> if(is.array(x)) { cat('IS: ');all.equal(x, as.array( x ), tol=0)
+ } else   !isall.equal(x, as.array( x ))
Error in "dimnames<-.data.frame"(*tmp*, value = list(n)) : 
	invalid dimnames given for data frame
> if(is.call(x)) { cat('IS: ');all.equal(x, as.call( x ), tol=0)
+ } else   !isall.equal(x, as.call( x ))
[1] TRUE
> if(is.character(x)) { cat('IS: ');all.equal(x, as.character( x ), tol=0)
+ } else   !isall.equal(x, as.character( x ))
[1] TRUE
> if(is.complex(x)) { cat('IS: ');all.equal(x, as.complex( x ), tol=0)
+ } else   !isall.equal(x, as.complex( x ))
[1] TRUE
> if(is.data.frame(x)) { cat('IS: ');all.equal(x, as.data.frame( x ), tol=0)
+ } else   !isall.equal(x, as.data.frame( x ))
IS: [1] TRUE
> if(is.double(x)) { cat('IS: ');all.equal(x, as.double( x ), tol=0)
+ } else   !isall.equal(x, as.double( x ))
[1] TRUE
> if(is.environment(x)) { cat('IS: ');all.equal(x, as.environment( x ), tol=0)
+ } else   !isall.equal(x, as.environment( x ))
Error in as.environment(x) : Invalid object for as.environment
> if(is.expression(x)) { cat('IS: ');all.equal(x, as.expression( x ), tol=0)
+ } else   !isall.equal(x, as.expression( x ))
[1] TRUE
> if(is.factor(x)) { cat('IS: ');all.equal(x, as.factor( x ), tol=0)
+ } else   !isall.equal(x, as.factor( x ))
Error in unique(x) : unique() applies only to vectors
> if(is.function(x)) { cat('IS: ');all.equal(x, as.function( x ), tol=0)
+ } else   !isall.equal(x, as.function( x ))
[1] TRUE
> if(is.integer(x)) { cat('IS: ');all.equal(x, as.integer( x ), tol=0)
+ } else   !isall.equal(x, as.integer( x ))
[1] TRUE
> if(is.list(x)) { cat('IS: ');all.equal(x, as.list( x ), tol=0)
+ } else   !isall.equal(x, as.list( x ))
IS: [1] "Attributes: < Lengths: 2, 0 >"                                    
[2] "Attributes: < names for target but not for current >"             
[3] "Attributes: < Length mismatch: comparison on first 0 components >"
> if(is.logical(x)) { cat('IS: ');all.equal(x, as.logical( x ), tol=0)
+ } else   !isall.equal(x, as.logical( x ))
[1] TRUE
> if(is.matrix(x)) { cat('IS: ');all.equal(x, as.matrix( x ), tol=0)
+ } else   !isall.equal(x, as.matrix( x ))
[1] TRUE
> if(is.name(x)) { cat('IS: ');all.equal(x, as.name( x ), tol=0)
+ } else   !isall.equal(x, as.name( x ))
Error in as.name(x) : invalid type/length (1/1) in vector allocation
> if(is.null(x)) { cat('IS: ');all.equal(x, as.null( x ), tol=0)
+ } else   !isall.equal(x, as.null( x ))
[1] TRUE
> if(is.numeric(x)) { cat('IS: ');all.equal(x, as.numeric( x ), tol=0)
+ } else   !isall.equal(x, as.numeric( x ))
[1] TRUE
> if(is.ordered(x)) { cat('IS: ');all.equal(x, as.ordered( x ), tol=0)
+ } else   !isall.equal(x, as.ordered( x ))
Error in unique(x) : unique() applies only to vectors
> if(is.pairlist(x)) { cat('IS: ');all.equal(x, as.pairlist( x ), tol=0)
+ } else   !isall.equal(x, as.pairlist( x ))
[1] TRUE
> if(is.qr(x)) { cat('IS: ');all.equal(x, as.qr( x ), tol=0)
+ } else   !isall.equal(x, as.qr( x ))
Error in as.qr(x) : you cannot be serious
> if(is.real(x)) { cat('IS: ');all.equal(x, as.real( x ), tol=0)
+ } else   !isall.equal(x, as.real( x ))
[1] TRUE
> if(is.single(x)) { cat('IS: ');all.equal(x, as.single( x ), tol=0)
+ } else   !isall.equal(x, as.single( x ))
Error in is.single(x) : type "single" unimplemented in R
> if(is.symbol(x)) { cat('IS: ');all.equal(x, as.symbol( x ), tol=0)
+ } else   !isall.equal(x, as.symbol( x ))
Error in as.symbol(x) : invalid type/length (1/1) in vector allocation
> if(is.table(x)) { cat('IS: ');all.equal(x, as.table( x ), tol=0)
+ } else   !isall.equal(x, as.table( x ))
Error in as.table.default(x) : cannot coerce into a table
> if(is.ts(x)) { cat('IS: ');all.equal(x, as.ts( x ), tol=0)
+ } else   !isall.equal(x, as.ts( x ))
Error in ts(x) : ts object must have one or more observations
> if(is.vector(x)) { cat('IS: ');all.equal(x, as.vector( x ), tol=0)
+ } else   !isall.equal(x, as.vector( x ))
[1] FALSE
> f <- as.POSIXct( x );  all.equal(f, as.POSIXct( f ), tol=0)
Error in as.POSIXct.default(x) : Don't know how to convert `x' to class "POSIXct"
> f <- as.POSIXct.POSIXlt( x );  all.equal(f, as.POSIXct.POSIXlt( f ), tol=0)
Error in structure(.Internal(as.POSIXct(x, tz)), class = c("POSIXt", "POSIXct")) : 
	invalid `x' argument
> f <- as.POSIXct.date( x );  all.equal(f, as.POSIXct.date( f ), tol=0)
Error in as.POSIXct.date(x) : `x' is not a "dates" object
> f <- as.POSIXct.dates( x );  all.equal(f, as.POSIXct.dates( f ), tol=0)
Error in as.POSIXct.dates(x) : `x' is not a "dates" object
> f <- as.POSIXct.default( x );  all.equal(f, as.POSIXct.default( f ), tol=0)
Error in as.POSIXct.default(x) : Don't know how to convert `x' to class "POSIXct"
> f <- as.POSIXlt( x );  all.equal(f, as.POSIXlt( f ), tol=0)
Error in as.POSIXlt(x) : Don't know how to convert `x' to class "POSIXlt"
> f <- as.array( x );  all.equal(f, as.array( f ), tol=0)
Error in "dimnames<-.data.frame"(*tmp*, value = list(n)) : 
	invalid dimnames given for data frame
> f <- as.call( x );  all.equal(f, as.call( f ), tol=0)
[1] TRUE
> f <- as.character( x );  all.equal(f, as.character( f ), tol=0)
[1] TRUE
> f <- as.character.POSIXt( x );  all.equal(f, as.character.POSIXt( f ), tol=0)
[1] TRUE
> f <- as.character.default( x );  all.equal(f, as.character.default( f ), tol=0)
[1] TRUE
> f <- as.character.factor( x );  all.equal(f, as.character.factor( f ), tol=0)
[1] TRUE
> f <- as.character.octmode( x );  all.equal(f, as.character.octmode( f ), tol=0)
Error in as.character.octmode(x) : calling wrong method
> f <- as.complex( x );  all.equal(f, as.complex( f ), tol=0)
[1] TRUE
> f <- as.complex.default( x );  all.equal(f, as.complex.default( f ), tol=0)
[1] TRUE
> f <- as.data.frame( x );  all.equal(f, as.data.frame( f ), tol=0)
[1] TRUE
> f <- as.data.frame.AsIs( x );  all.equal(f, as.data.frame.AsIs( f ), tol=0)
[1] "Component 1: Names: 1 string mismatches"            
[2] "Component 1: Component 1: `current' is not a factor"
> f <- as.data.frame.POSIXct( x );  all.equal(f, as.data.frame.POSIXct( f ), tol=0)
[1] "Names: 1 string mismatches"                                                                 
[2] "Attributes: < Component 2: 1 string mismatches >"                                           
[3] "Component 1: Names: 1 string mismatches"                                                    
[4] "Component 1: Attributes: < Component 2: Lengths: 0, 1 >"                                    
[5] "Component 1: Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
[6] "Component 1: Component 1: `current' is not a factor"                                        
> f <- as.data.frame.character( x );  all.equal(f, as.data.frame.character( f ), tol=0)
Error in unique(x) : unique() applies only to vectors
> f <- as.data.frame.complex( x );  all.equal(f, as.data.frame.complex( f ), tol=0)
[1] "Names: 1 string mismatches"                                                                 
[2] "Attributes: < Component 2: 1 string mismatches >"                                           
[3] "Component 1: Names: 1 string mismatches"                                                    
[4] "Component 1: Attributes: < Component 2: Lengths: 0, 1 >"                                    
[5] "Component 1: Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
[6] "Component 1: Component 1: `current' is not a factor"                                        
> f <- as.data.frame.data.frame( x );  all.equal(f, as.data.frame.data.frame( f ), tol=0)
[1] TRUE
> f <- as.data.frame.default( x );  all.equal(f, as.data.frame.default( f ), tol=0)
Error in as.data.frame.default(x) : can't coerce data.frame into a data.frame
> f <- as.data.frame.factor( x );  all.equal(f, as.data.frame.factor( f ), tol=0)
[1] "Names: 1 string mismatches"                                                                 
[2] "Attributes: < Component 2: 1 string mismatches >"                                           
[3] "Component 1: Names: 1 string mismatches"                                                    
[4] "Component 1: Attributes: < Component 2: Lengths: 0, 1 >"                                    
[5] "Component 1: Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
[6] "Component 1: Component 1: `current' is not a factor"                                        
> f <- as.data.frame.integer( x );  all.equal(f, as.data.frame.integer( f ), tol=0)
[1] "Names: 1 string mismatches"                                                                 
[2] "Attributes: < Component 2: 1 string mismatches >"                                           
[3] "Component 1: Names: 1 string mismatches"                                                    
[4] "Component 1: Attributes: < Component 2: Lengths: 0, 1 >"                                    
[5] "Component 1: Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
[6] "Component 1: Component 1: `current' is not a factor"                                        
> f <- as.data.frame.list( x );  all.equal(f, as.data.frame.list( f ), tol=0)
[1] TRUE
> f <- as.data.frame.logical( x );  all.equal(f, as.data.frame.logical( f ), tol=0)
[1] "Names: 1 string mismatches"                                                                 
[2] "Attributes: < Component 2: 1 string mismatches >"                                           
[3] "Component 1: Names: 1 string mismatches"                                                    
[4] "Component 1: Attributes: < Component 2: Lengths: 0, 1 >"                                    
[5] "Component 1: Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
[6] "Component 1: Component 1: `current' is not a factor"                                        
> f <- as.data.frame.matrix( x );  all.equal(f, as.data.frame.matrix( f ), tol=0)
[1] TRUE
> f <- as.data.frame.model.matrix( x );  all.equal(f, as.data.frame.model.matrix( f ), tol=0)
[1] "Names: 1 string mismatches"                         
[2] "Component 1: Names: 1 string mismatches"            
[3] "Component 1: Component 1: `current' is not a factor"
> f <- as.data.frame.numeric( x );  all.equal(f, as.data.frame.numeric( f ), tol=0)
[1] "Names: 1 string mismatches"                                                                 
[2] "Attributes: < Component 2: 1 string mismatches >"                                           
[3] "Component 1: Names: 1 string mismatches"                                                    
[4] "Component 1: Attributes: < Component 2: Lengths: 0, 1 >"                                    
[5] "Component 1: Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
[6] "Component 1: Component 1: `current' is not a factor"                                        
> f <- as.data.frame.ordered( x );  all.equal(f, as.data.frame.ordered( f ), tol=0)
[1] "Names: 1 string mismatches"                                                                 
[2] "Attributes: < Component 2: 1 string mismatches >"                                           
[3] "Component 1: Names: 1 string mismatches"                                                    
[4] "Component 1: Attributes: < Component 2: Lengths: 0, 1 >"                                    
[5] "Component 1: Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
[6] "Component 1: Component 1: `current' is not a factor"                                        
> f <- as.data.frame.table( x );  all.equal(f, as.data.frame.table( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.data.frame.ts( x );  all.equal(f, as.data.frame.ts( f ), tol=0)
[1] "Attributes: < Component 2: 1 string mismatches >"                                           
[2] "Component 1: Names: 1 string mismatches"                                                    
[3] "Component 1: Attributes: < Component 2: Lengths: 0, 1 >"                                    
[4] "Component 1: Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
[5] "Component 1: Component 1: `current' is not a factor"                                        
> f <- as.data.frame.vector( x );  all.equal(f, as.data.frame.vector( f ), tol=0)
[1] "Names: 1 string mismatches"                                                                 
[2] "Attributes: < Component 2: 1 string mismatches >"                                           
[3] "Component 1: Names: 1 string mismatches"                                                    
[4] "Component 1: Attributes: < Component 2: Lengths: 0, 1 >"                                    
[5] "Component 1: Attributes: < Component 2: Lengths (0, 1) differ (string compare on first 0) >"
[6] "Component 1: Component 1: `current' is not a factor"                                        
> f <- as.double( x );  all.equal(f, as.double( f ), tol=0)
[1] TRUE
> f <- as.double.default( x );  all.equal(f, as.double.default( f ), tol=0)
[1] TRUE
> f <- as.environment( x );  all.equal(f, as.environment( f ), tol=0)
Error in as.environment(x) : Invalid object for as.environment
> f <- as.expression( x );  all.equal(f, as.expression( f ), tol=0)
[1] TRUE
> f <- as.expression.default( x );  all.equal(f, as.expression.default( f ), tol=0)
[1] TRUE
> f <- as.factor( x );  all.equal(f, as.factor( f ), tol=0)
Error in unique(x) : unique() applies only to vectors
> f <- as.formula( x );  all.equal(f, as.formula( f ), tol=0)
[1] TRUE
> f <- as.function( x );  all.equal(f, as.function( f ), tol=0)
[1] TRUE
> f <- as.function.default( x );  all.equal(f, as.function.default( f ), tol=0)
[1] TRUE
> f <- as.integer( x );  all.equal(f, as.integer( f ), tol=0)
[1] TRUE
> f <- as.integer.default( x );  all.equal(f, as.integer.default( f ), tol=0)
[1] TRUE
> f <- as.list( x );  all.equal(f, as.list( f ), tol=0)
[1] TRUE
> f <- as.list.data.frame( x );  all.equal(f, as.list.data.frame( f ), tol=0)
[1] TRUE
> f <- as.list.default( x );  all.equal(f, as.list.default( f ), tol=0)
[1] TRUE
> f <- as.logical( x );  all.equal(f, as.logical( f ), tol=0)
[1] TRUE
> f <- as.logical.default( x );  all.equal(f, as.logical.default( f ), tol=0)
[1] TRUE
> f <- as.matrix( x );  all.equal(f, as.matrix( f ), tol=0)
[1] TRUE
> f <- as.matrix.POSIXlt( x );  all.equal(f, as.matrix.POSIXlt( f ), tol=0)
[1] TRUE
> f <- as.matrix.data.frame( x );  all.equal(f, as.matrix.data.frame( f ), tol=0)
[1] TRUE
> f <- as.matrix.default( x );  all.equal(f, as.matrix.default( f ), tol=0)
Error in "dimnames<-.data.frame"(*tmp*, value = dimnames) : 
	invalid dimnames given for data frame
> f <- as.matrix.noquote( x );  all.equal(f, as.matrix.noquote( f ), tol=0)
[1] TRUE
> f <- as.name( x );  all.equal(f, as.name( f ), tol=0)
Error in as.name(x) : invalid type/length (1/1) in vector allocation
> f <- as.null( x );  all.equal(f, as.null( f ), tol=0)
[1] TRUE
> f <- as.null.default( x );  all.equal(f, as.null.default( f ), tol=0)
[1] TRUE
> f <- as.numeric( x );  all.equal(f, as.numeric( f ), tol=0)
[1] TRUE
> f <- as.ordered( x );  all.equal(f, as.ordered( f ), tol=0)
Error in unique(x) : unique() applies only to vectors
> f <- as.pairlist( x );  all.equal(f, as.pairlist( f ), tol=0)
[1] TRUE
> f <- as.qr( x );  all.equal(f, as.qr( f ), tol=0)
Error in as.qr(x) : you cannot be serious
> f <- as.real( x );  all.equal(f, as.real( f ), tol=0)
[1] TRUE
> f <- as.single( x );  all.equal(f, as.single( f ), tol=0)
[1] TRUE
> f <- as.single.default( x );  all.equal(f, as.single.default( f ), tol=0)
[1] TRUE
> f <- as.symbol( x );  all.equal(f, as.symbol( f ), tol=0)
Error in as.symbol(x) : invalid type/length (1/1) in vector allocation
> f <- as.table( x );  all.equal(f, as.table( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.table.default( x );  all.equal(f, as.table.default( f ), tol=0)
Error in as.table.default(x) : cannot coerce into a table
> f <- as.table.ftable( x );  all.equal(f, as.table.ftable( f ), tol=0)
Error in as.table.ftable(x) : x must be an `ftable'
> f <- as.ts( x );  all.equal(f, as.ts( f ), tol=0)
Error in ts(x) : ts object must have one or more observations
> f <- as.vector( x );  all.equal(f, as.vector( f ), tol=0)
[1] TRUE
> f <- as.vector.factor( x );  all.equal(f, as.vector.factor( f ), tol=0)
[1] TRUE
> cat('Time elapsed: ', proc.time() - .proctime00,'\n')
Time elapsed:  1.98 0.04 2.02 0 0 
> 
>