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)
r paste(fid)
on r paste(dim)
Dr}, 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'))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.