Nothing
wpct <- function(x, weight=NULL, na.rm=TRUE, ...){
if(is.null(weight)){
weight <- rep(1, length(x))
}
y <- wtd.table(x, weight, na.rm=na.rm, ...)$sum.of.weights/sum(wtd.table(x, weight, na.rm=na.rm, ...)$sum.of.weights)
names(y) <- wtd.table(x, weight, na.rm=na.rm, ...)$x
z <- as.vector(y)
names(z) <- names(y)
if(is.logical(x))
z <- rev(z)
z
}
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.