new("InheritsTypeTest",  c("A", "B"))
  m = array(1:60, c(3, 4, 5))
  tt = new("StrictIsTypeTest",  c("matrix"))
  TypeInfo:::checkType(m, tt)
  tt = new("StrictIsTypeTest",  c("array"))
  TypeInfo:::checkType(m, tt)
Run the code above in your browser using DataLab