nActors <- 5
numericVector <- c(rep(0, nActors%/%2), rep(1, nActors - nActors%/%2))
attributeContainer1 <- create_attribute_container(numericVector)
attributeContainer2 <-
create_scale_attribute_container(numericVector, min = 0, max = 2, by = 1)
attributeContainer1 <- set_value(attributeContainer1, i = 0, value = 5)
# does not change anything as 5 is out of range
attributeContainer2 <- set_value(attributeContainer2, i = 0, value = 5)
as.numeric(attributeContainer1)
as.numeric(attributeContainer2)
Run the code above in your browser using DataLab