Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.