Elliptical Fourier transforms coefficients from bottles dataset

Obtained with bot2 %>% efourier(6) %>% dplyr::mutate(q=rnorm(40, 5)) %>% dplyr::select(coe, type, fake, q)

Format

A coe_tbl with:

  • coe (coe_list): eft coefficients

  • type (factor): bottle type

  • fake (factor): bottle type

Source

Borrowed default shapes from (c) Adobe Photoshop. Please do not send me to jail.

Examples

bot_eft
#> # A tibble: 40 x 4
#>    coe               type   fake      q
#>    <named list>      <fct>  <fct> <dbl>
#>  1 <tibble [1 × 24]> whisky a      5.76
#>  2 <tibble [1 × 24]> whisky a      5.87
#>  3 <tibble [1 × 24]> whisky a      4.48
#>  4 <tibble [1 × 24]> whisky a      4.30
#>  5 <tibble [1 × 24]> whisky a      3.82
#>  6 <tibble [1 × 24]> whisky a      4.58
#>  7 <tibble [1 × 24]> whisky a      4.69
#>  8 <tibble [1 × 24]> whisky a      6.17
#>  9 <tibble [1 × 24]> whisky a      4.88
#> 10 <tibble [1 × 24]> whisky a      4.49
#> # … with 30 more rows