R/update.r

Defines functions update

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)
}

Try the BoolFilter package in your browser

Any scripts or data that you put into this service are public.

BoolFilter documentation built on May 2, 2019, 1:27 p.m.