# NOT RUN {
## set up a 2 x 2 mean operator that takes the mean of a vector of 2 values
m <- matrix(rep(0.5,4), nrow=2)
## create an object of class projector
proj.m <- projector(m)
## check that it is a valid projector
is.projector(proj.m)
# }
Run the code above in your browser using DataLab