# create a simple object
myobj <- "This is an object"
sr.class(myobj) <- c("temp.class", "character")
# observe the characteristics of myobj
myobj
sr.class(myobj) # returns: "temp.class" "character"
inherits(myobj, "character") # returns TRUERun the code above in your browser using DataLab