---
title: "FV_ECDF_Single_Function"
author: "IOHprofiler"
date: "7/5/2019"
output: pdf_document:
  fig_caption: yes
graphics: yes
---

```{r, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
dsl_sub <- subset(dsl, DIM == dim && funcId == fid && algId %in% algs)
name <- get_data_id(dsl_sub)
rts <- get_runtimes(dsl_sub)
tryCatch(
  {
  fmin <- as.numeric(REG$FCEECDF.Mult.Min[name])
  fmax <- as.numeric(REG$FCEECDF.Mult.Max[name])
  fstep <- as.numeric(REG$FCEECDF.Mult.Step[name])

  if (is.null(fmin) || is.na(fmin)) fmin <- min(rts)
  if (is.null(fmax) || is.na(fmax)) fmax <- max(rts)
  if (is.null(fstep) || is.na(fstep)) fstep <- NULL

},
error = function(e) {
    fmin <- min(rts)
    fmax <- max(rts)
    fstep <- NULL
  }
)
p <- Plot.FV.ECDF_Single_Func(dsl_sub, rt_min = fmin,
                              rt_max = fmax, rt_step = fstep,
                              scale.xlog = input$FCEECDF.Mult.Logx,
                              scale.reverse = !attr(dsl_sub[[1]],'maximization'))
save_plotly(p, paste0('FV_ECDF_single_function_F', fid, '-', dim, 'D.pdf'), 'pdf', width = 1000, height = 500)
```
## ECDF plot of F`r paste(fid)` on `r paste(dim)`D

```{r {{name_figure}}, results='asis', fig.align='center', fig.cap="TEsting", fig.width=500, fig.height=300, fig.pos='!hbt'}
include_graphics(paste0('FV_ECDF_single_function_F', fid, '-', dim, 'D.pdf'))
```
