Nothing
## File Name: miceadds_weighted_scaling_y.R
## File Version: 0.02
miceadds_weighted_scaling_y <- function(y, w)
{
require_namespace("TAM")
y <- miceadds_weighted_centering(x=y, w=w)
y <- y / TAM::weighted_sd(y, w=w)
return(y)
}
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.