x <- runif(10)
x <- SetAttr(x, 
             attr=c("some_attr", "other_attr"),
             attr_val=c("First attribute", "Second attribute"))
# strip only single
StripAttr(x, "other_attr")
# strip all attributes
StripAttr(x)
Run the code above in your browser using DataLab