R/cOpt_gsym_empirical.R

Defines functions cOpt_gsym_empirical

cOpt_gsym_empirical <-
function(t, parameters)
{
  cte = parameters[1]
  x0b = parameters[2:length(parameters)]
  ROCt = 1-cdf_empirical_dist(x0b, 1-t)
  res <- 1-ROCt-cte*t
  return(res)
}

Try the GsymPoint package in your browser

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

GsymPoint documentation built on Nov. 2, 2023, 5:59 p.m.