R/zv_function.R

In ratral/hyd4gpv: General Purpose Valve functions

#' Function Resistance Coefficient Zeta
#'
#' @param x valve position
#' @param b steepness
#' @param d upper value
#' @param e the effective dose
#' @param zvs Resistance Coefficient full open
#'
#' @return zv Resistance Coefficient
#' @export
#'
zv_function <- function( x, b, d, e, zvs ) {
  return(zvs/(drm_LL3( x, b, d, e ))^2)
}