## Some mid() function examples
## With IntervalData objects
interval <- IntervalData(0, 1)
mid(interval)
mid(interval) <- 0.75
mid(interval)
## With IntervalList objects
list <- IntervalList(c(1, 3, 5), c(2, 4, 6))
mid(list[c(1, 3)])
mid(list[c(1, 3)]) <- c(1, 3)
mid(list[c(1, 3)])
## With IntervalMatrix objects
m <- IntervalMatrix(matrix(c(1, 5, 2, 6, 6, 2,
7, 3, 3, 4, 4, 5), 2, 6))
mid(m[1, 1])
mid(m[1, 1]) <- 2
mid(m[1, 1])
mid(m[1, 1:2])
mid(m[1, 1:2]) <- c(2, 3)
mid(m[1, 1:2])
mid(m[, c(1, 3)])
mid(m[, c(1, 3)]) <- matrix(1:4, 2, 2)
mid(m[, c(1, 3)])
Run the code above in your browser using DataLab