powered by
fctrep_Meth(X)
F[i]= (1/n)*Sum(V[i])
V[i]= 1 if x[i] <= x="" else="" v[i]="0
hist_meth
Kern_meth
X <- rexp(1000,2) Y <- rgamma(1000,1,2) Z <- rweibull(1000,1,1) G <- rnorm(1000,mean(X),sd(X)) par(mfrow=c(2,2)) fctrep_Meth(X) fctrep_Meth(Y) fctrep_Meth(Z) fctrep_Meth(G)
Run the code above in your browser using DataLab