Nothing
## Subsets xy so that residuals appear only once
## Should probably be renamed subsetXY
subsetV <- function(v, f, by, lev, type) {
## Calculate distance
if (is.numeric(f[, by])) {
D <- matrix(NA, nrow(f), length(v))
for (i in 1:length(v)) {
D[,i] <- (f[, by]-lev[i])^2
}
}
for (i in 1:length(v)) {
if (is.factor(f[, by])) {
ind <- as.character(f[, by])==as.character(lev[i])
} else {
ind <- (apply(D, 1, which.min)==i)
}
v[[i]]$x$D <- v[[i]]$x$D[ind,]
v[[i]]$x$x <- v[[i]]$x$x[ind]
v[[i]]$y$r <- if (v[[i]]$y$n == 1) v[[i]]$y$r[ind] else v[[i]]$y$r[ind,]
v[[i]]$y$pos <- if (v[[i]]$y$n == 1) v[[i]]$y$pos[ind] else v[[i]]$y$pos[ind,]
}
v
}
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.