PU
Size: a a a
PU
АК
A
EP
PU
EP
АК
PU
A
A
A
A
PU
A
A
AC
AC
y A B
1: A 0.4292037 0.4292037
2: B 0.9292037 0.9292037
AC
> data.table(x = rvm(500, pi, 0.5), y = c('A','B'))[,.(A = (mean(circular(x))), B = mean(circular(x))), by = y]
y A B
1: A 0.4813801 1.801382
2: B 0.4463868 2.067235
PU
PU