Nothing
rangenorm <-
function (data, method = c("znorm", "mmnorm", "dscale", "signorm",
"softnorm"), superv = TRUE)
{
data = as.matrix(data)
if (!superv) {
data = cbind(data, rep(1, dim(data)[1]))
}
if (!(method %in% c("znorm", "mmnorm", "dscale", "signorm",
"softnorm"))) {
cat("This normalization method is not supported by this function.\n")
return(method)
}
if (method == "znorm") {
datanorm = znorm(data)
}
if (method == "mmnorm") {
datanorm = mmnorm(data)
}
if (method == "signorm") {
datanorm = signorm(data)
}
if (method == "dscale") {
datanorm = decscale(data)
}
if (method == "softnorm") {
datanorm = softmaxnorm(data)
}
if (!superv)
datanorm = datanorm[, -dim(data)[2]]
return(datanorm)
}
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.