Flag aggregation by the frequency count method

Flag aggregation by the frequency count method

flag_frequency(f)

Arguments

f	A vector of flags containing the flags of a series for a given period.

Value

flag_frequency returns a character with a single character flag in case the highest frequency count is unique, or multiple character in case there are several flags with the highest frequency count.

Examples

flag_frequency(c("pe","b","p","p","u","e","d"))
#> [1] "p"
flag_frequency(c("pe","b","p","p","eu","e","d"))
#> [1] "e" "p"


flags <- tidyr::spread(test_data[, c(1:3)], key = time, value = flags)
flag_frequency(flags[,5])
#> [1] "e" "u"
apply(flags[, c(2:ncol(flags))],2, flag_frequency)
#> $`2009-01-01`
#> [1] "p"
#> 
#> $`2010-01-01`
#> [1] "p"
#> 
#> $`2011-01-01`
#> [1] "e"
#> 
#> $`2012-01-01`
#> [1] "e" "u"
#> 
#> $`2013-01-01`
#> [1] "u"
#> 
#> $`2014-01-01`
#> [1] "p"
#> 
#> $`2015-01-01`
#> [1] "p"
#>