https://github.com/cran/GsymPoint
Tip revision: 48978493006d9009b92388f7dddf92e9ab78b98d authored by Mü¾¶¼nica Lü¾¶¼pez-Ratü¾¶¼n on 08 February 2017, 15:54:09 UTC
version 1.1
version 1.1
Tip revision: 4897849
empirical_dist.R
empirical_dist <-
function(x,t)
{
x_logico = (x<=t)
y = sum(x_logico)/length(x)
res <- y
return(res)
}