# TRUE return
is.acid( Acid(1.245, 5.47, 3) )
is.acid( Acid(c(0.98, 1.1, 1.51), c(5.26, 5.68)) )
# Acid.SpecificPair-objects are also Acid-objects
is.acid( Acid.SpecificPair(list(c(0.98, 5.68), c(1.51, 5.26))) )
# FALSE return
is.acid(1)
is.acid( list(Acid(1.245, 5.47, 3), Acid(1.245, 5.47, 3)) )
Run the code above in your browser using DataLab