R/Farina.R

Defines functions Farina

Documented in Farina

Farina <- function(Z,R) {
acos(sum(Z*R)/(sum(Z^2)*sum(R^2))^.5)
}

Try the polrep package in your browser

Any scripts or data that you put into this service are public.

polrep documentation built on Jan. 5, 2024, 3:01 a.m.