# NOT RUN {
# generate some data
dat <- generateMed(a = (1:10)/20, b = (1:10)/20)
cmfilter:::cmfStep(dat$x, dat[,-c(1, 12)], dat$y,
decisionFunction = cmfilter:::prodCoef,
msel = c(1, 1, 1, 0, 0, 0, 0, 0, 0, 0),
medsamp = 1:10)
# }
Run the code above in your browser using DataLab