Проверить, является ли объект S4 экземпляром

Как проверить, является ли объект экземпляром класса S4 (не уверен, что это правильная терминология)? Я знаю о функции isS4, однако она также возвращает true для определений классов и т. д. Например:

traj <- setClass(
  Class="Trajectories",
  representation=representation(
    times = "numeric",
    traj = "matrix"
  )
)

trajclass <- getClass("Trajectories")
trajobject <- new(Class="Trajectories",times=c(1,3),traj=matrix(1:4,ncol=2))

isS4(traj)
isS4(trajclass)
isS4(trajobject)

Меня интересуют только объекты, содержащие данные, trajobjectв данном случае; не столько в методах или определениях классов. Есть ли собственная функция, которую я могу использовать для проверки того, является ли объект S4 реальным объектом? т.е. при использовании print(object)вывод начинается с:

Объект класса "foo".....