Obtain information about a protracker module or embedded samples.
Usage
pt2_length(mod, ...)
pt2_length(mod, ...) <- value
pt2_n_pattern(mod, ...)
pt2_pattern_table(mod, ...)
pt2_name(x, ...)
# S3 method for class 'pt2mod'
pt2_name(x, ...)
# S3 method for class 'pt2samp'
pt2_name(x, ...)
pt2_n_sample(mod, ...)
Examples
mod <- pt2_read_mod(pt2_demo())
pt2_length(mod)
#> [1] 9
pt2_n_pattern(mod)
#> [1] 4
pt2_n_sample(mod)
#> [1] 4
pt2_pattern_table(mod)
#> [1] 0 0 1 1 2 2 3 3 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
#> [38] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
#> [75] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
#> [112] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
pt2_name(mod)
#> [1] "intro"