if (FALSE) {
x <- randomGrid()
x[1, 1] <- 2
x[1, ] <- 4
x[, 2] <- 3
# settings values outside defined rating scale
# range throws an error
x[1, 1] <- 999
# removing scale range allows arbitary values to be set
x <- setScale(x, min = NA, max = NA)
x[1, 1] <- 999
}
Run the code above in your browser using DataLab