R/angular.r

"angular" <- function(proportions, n)
{180/pi*asin(sqrt(proportions + (proportions==0)/(4*n) + (proportions==1)*((n-0.25)/n-1)))}
"angular.mod" <- function(count, n)
{180/pi*asin(sqrt((count+0.375)/(n+0.75)))}
briencj/asremlPlus documentation built on June 10, 2025, 10:35 p.m.