R/empirical_dist.R

Defines functions empirical_dist

empirical_dist <-
function(x,t)
{
  x_logico = (x<=t)
  y = sum(x_logico)/length(x)
  res <- y
  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.