powered by
the product of coefficients decision function
prodCoef(x, m, y, p.value = 0.1, dir = TRUE)
# NOT RUN { # generate data dat <- generateMed(n = 100, a = 0.4, b = -0.8) cmfilter:::prodCoef(dat$x, dat$M, dat$y) # }
Run the code above in your browser using DataLab