Nothing
anonymize <-
function(x){
if(length(x)>26){
# letters <-replicate(floor(length(x)/26),{letters <-c(LETTERS, paste(LETTERS, LETTERS, sep=""))})
}
names(x)<-paste(sample(letters[1:length(x)]))
level.x<-function(x){
level.obs<-function(i){
if(class(x[,i])=="factor" | class(x[,i])=="character"){
var <-paste(names(x)[i],as.numeric(as.factor(x[,i])), sep="")
}else if(is.numeric(x[,i])){
var <-x[,i]- mean(x[,i], na.rm=T)}else{var<-x[,i]}
return(var)}
x <- data.frame(sapply(seq_along(x), level.obs))
names(x) <- names(x)
return(x)}
x <-level.x(x)
return(x)}
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.