setClass("NumericNotStructure", contains = c("numeric","nonStructure"))
xx <- new("NumericNotStructure", 1:10)
xx + 1 # vector
log(xx) # vector
sample(xx) # vector
removeClass("NumericNotStructure")
Run the code above in your browser using DataCamp Workspace