Nothing
# PMM algorithm for BBPMM
# Version: 0.1-6
# Date: 2011-02-24
# Author: F.M.
PMMsearchMet <- function(yHatMis, yHatObs) {
posNear <- which(abs(yHatMis-yHatObs) == min(abs(yHatMis-yHatObs)))
posNear <- ifelse(length(posNear) > 1, sample(posNear,1), posNear)
return(posNear)
}
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.