Test if object is a distfun object
is.distfun(x)
x
an R object to be tested
TRUE if x is a disfun object, FALSE otherwise