if (interactive() && requireNamespace("EBImage")) {
library(pliman)
ef <-
contours[[1]] |>
efourier(nharm = 30)
efourier_error(ef)
efourier_error(ef,
nharm = 30,
type = "outline")
efourier_error(ef,
nharm = c(1, 4, 20),
type = "deviations")
}
Run the code above in your browser using DataLab