1 |
filename |
|
dimension |
|
per |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (filename, dimension = 2, per = c(TRUE, TRUE))
{
ifile <- read.table(filename)
rows <- sqrt(nrow(ifile))
fes <- matrix(ifile[, 3], nrow = rows)
fes <- max(fes) - fes
x <- min(ifile[, 1]) + (max(ifile[, 1]) - min(ifile[, 1])) *
0:(rows - 1)/(rows - 1)
y <- min(ifile[, 2]) + (max(ifile[, 2]) - min(ifile[, 2])) *
0:(rows - 1)/(rows - 1)
cfes <- list(fes = fes, rows = rows, dimension = dimension,
per = per, x = x, y = y)
class(cfes) <- "fes"
return(cfes)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.