Create objects of class profile
Examples
library(tibble)
library(tiltIndicator)
product <- company <- tibble(companies_id = 1)
data <- nest_levels(product, company)
class(data)
#> [1] "tbl_df" "tbl" "data.frame"
new <- tilt_profile(data)
class(new)
#> [1] "tilt_profile" "tbl_df" "tbl" "data.frame"
tilt_profile(new)
#> # A tibble: 1 × 3
#> companies_id product company
#> * <dbl> <list> <list>
#> 1 1 <tibble [1 × 0]> <tibble [1 × 0]>
is_tilt_profile(new)
#> [1] TRUE