# eafs: Exact computation of the EAF In eaf: Plots of the Empirical Attainment Function

## Description

This function computes the EAF given a set of points and a vector `set` that indicates to which set each point belongs.

## Usage

 `1` ```eafs(points, sets, groups = NULL, percentiles = NULL) ```

## Arguments

 `points` Either a matrix or a data frame of numerical values, where each row gives the coordinates of a point. `sets` A vector indicating which set each point belongs to. `groups` Indicates that the EAF must be computed separately for data belonging to different groups. `percentiles` (`numeric()`) Vector indicating which percentiles are computed. `NULL` computes all.

## Value

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.

## Note

There are several examples of data sets in `system.file(package="eaf","extdata")`.

## Author(s)

Manuel López-Ibáñez

`read_datasets()`
 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19``` ```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() ```