Nothing
#transform dataset to specified m and sd
dtrans <- function(data, m, sd, rnd = FALSE){
#basic checking
x <- dim(data)[2] #getting number of vars
cat("Number of variables in dataset:", x,"\n")#number of vars
cat("Number of means specified:", length(m),"\n")
cat("Number of standard deviations in dataset:", length(sd),"\n")
if(length(m) != length(sd)){stop("Number of means/SDs should match.")}
if(length(m) != dim(data)[2]){stop("Incorrect number of means/SDs")}
for (i in 1:x){
xrange <- range(data[,1])
if(xrange[1] - xrange[2] == 0){stop("Constant value detected")}
}
#transforming
for (i in 1:x){
data[i] = m[i] + sd[i] * data[i]
}
if(rnd == TRUE){return(round(data, 0))
} else {
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.