Check if object is a survey object (either standard or replicate design)
is_survey(x)
x
object to be tested
logical
Tom Elliott