Nothing
#reverse coding
revcode <- function(data, vars){
x <- length(vars)
for (i in 1:x){
mx <- max(data[,vars[i]])
mn <- min(data[,vars[i]])
data[,vars[i]] <- (mx) - data[,vars[i]] + (mn)
}
return(data)
}
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.