cat.a <- Category(name="First", id=1, numeric_value=1, missing=FALSE)
cat.b <- Category(name="Second", id=2)
cat.c <- Category(name="Third", id=3, missing=TRUE)
cats.1 <- Categories(cat.a, cat.b)
identical(cats.1, c(cat.a, cat.b))
identical(c(cats.1, cat.c), Categories(cat.a, cat.b, cat.c))
Run the code above in your browser using DataLab