## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>", fig.width = 6.5,
                      fig.height = 4.2, dpi = 120)

## ----setup--------------------------------------------------------------------
library(trialSizing)

## ----cvtable------------------------------------------------------------------
grid1 <- as.matrix(uniformity_trial[uniformity_trial$trial == "T1",
                                    grep("^col", names(uniformity_trial))])
cv_tab <- calc_cv_shapes(grid1)

cmp <- compare_methods(data.frame(x = cv_tab$x, cv = cv_tab$cv), step = 0.05)
cmp

## ----grid---------------------------------------------------------------------
compare_methods(grid1, step = 0.05)

## ----weights------------------------------------------------------------------
compare_methods(grid1, step = 0.05, weights = TRUE)$summary

## ----bootstrap----------------------------------------------------------------
set.seed(1)
compare_methods(grid1, step = 0.05, bootstrap = TRUE, n_boot = 200)

## ----multi--------------------------------------------------------------------
grids <- lapply(split(uniformity_trial, uniformity_trial$trial),
                function(d) as.matrix(d[, grep("^col", names(d))]))

compare_methods(grids, step = 0.05)$summary

## ----subset-------------------------------------------------------------------
compare_methods(grid1, step = 0.05, methods = c("lrp", "qrp"))$summary