R/derived.2.r

Defines functions derived.2

derived.2 <- function(b.x,b.y,retention,period) {
area<-abs(pi*b.x*retention)
coercion <- b.x/(sqrt(1+(b.y/retention)^2))
lag<-abs(atan2(retention,b.y))*period/(pi*2)
lag <- ifelse(lag > period,NA,lag)
z <- c(area,lag,coercion)
z
}

Try the hysteresis package in your browser

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

hysteresis documentation built on May 29, 2024, 5:27 a.m.