seemsS4Object <- function(object)
  is.character(attr(class(object), "package"))