# NOT RUN {
has.lut.error <- abind::abind(matrix(0, nrow = 2, ncol = 2),
matrix(1:4, nrow = 2),
matrix(0, nrow = 2, ncol = 2),
along = 3)
has.lut.error
FixLUTError(has.lut.error, 2)
has.lut.error3d <- abind::abind(has.lut.error, has.lut.error, along = 4)
FixLUTError(has.lut.error3d, 3)
# }
Run the code above in your browser using DataLab