# NOT RUN {
## create a vector
x <- 1:10
## Extract a vector of length 6 from the central part of x.
y <- wkeep(x, 6, 'c')
## Extract two vectors of length 6, one from the left part of x, and the
## other from the right part of x.
y <- wkeep(x, 6, 'l')
y <- wkeep(x, 6, 'r')
## Create a 5-by-5 matrix.
x <- matrix(round(runif(25, 0, 25)), 5, 5)
## Extract a 3-by-2 matrix from the center of x
y <- wkeep(x, c(3, 2))
## Extract from x the 2-by-4 submatrix starting at x[3, 1].
y <- wkeep(x, c(2, 4), c(3, 1))
# }
Run the code above in your browser using DataLab