BoolFilter.Rcheck/00_pkg_src/BoolFilter/R/update.r

update <- function(Y, qn, Xk) {
temp <- vector('numeric')
s <- abs(Xk - matrix(rep(Y, nrow(Xk)), ncol = length(Y), byrow=TRUE))
tmp <- (s*qn + (1-s)*(1-qn))
temp <- apply(tmp, 1, prod)
return (temp)
}
levimcclenny/BoolFilter documentation built on May 21, 2019, 5:11 a.m.