aCollie <- "woof"
class(aCollie) <- c("Collie", "Dog", "Animal")