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