This function computes the EAF given a set of points and a vector set
that indicates to which set each point belongs.
eafs(points, sets, groups = NULL, percentiles = NULL)
A data frame (data.frame
) containing the exact representation
of EAF. The last column gives the percentile that corresponds to each
point. If groups is not NULL
, then an additional column
indicates to which group the point belongs.
Either a matrix or a data frame of numerical values, where each row gives the coordinates of a point.
A vector indicating which set each point belongs to.
Indicates that the EAF must be computed separately for data belonging to different groups.
(numeric()
) Vector indicating which percentiles are computed.
NULL
computes all.
Manuel López-Ibáñez
read_datasets()
extdata_path <- system.file(package="eaf", "extdata")
x <- read_datasets(file.path(extdata_path, "example1_dat"))
# Compute full EAF
str(eafs(x[,1:2], x[,3]))
# Compute only best, median and worst
str(eafs(x[,1:2], x[,3], percentiles = c(0, 50, 100)))
x <- read_datasets(file.path(extdata_path, "spherical-250-10-3d.txt"))
y <- read_datasets(file.path(extdata_path, "uniform-250-10-3d.txt"))
x <- data.frame(x, groups = "spherical")
x <- rbind(x, data.frame(y, groups = "uniform"))
# Compute only median separately for each group
z <- eafs(x[,1:3], sets = x[,4], groups = x[,5], percentiles = 50)
str(z)
# library(plotly)
# plot_ly(z, x = ~X1, y = ~X2, z = ~X3, color = ~groups,
# colors = c('#BF382A', '#0C4B8E')) %>% add_markers()
Run the code above in your browser using DataLab