R/cOpt_gsym2_empirical.R

Defines functions cOpt_gsym2_empirical

cOpt_gsym2_empirical <-
function(t, parameters)
{
  cte = parameters[1]
  x0b = parameters[2:length(parameters)]
  ROCt = 1-cdf_empirical_dist(x0b, 1-t)
  res <- (1/cte)*(1-t)-ROCt
  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.