diff --git a/M2/Statistiques Non Paramétrique/TP1.Rmd b/M2/Statistiques Non Paramétrique/TP1.Rmd index 67fa78e..a442ea7 100644 --- a/M2/Statistiques Non Paramétrique/TP1.Rmd +++ b/M2/Statistiques Non Paramétrique/TP1.Rmd @@ -4,7 +4,6 @@ n = 100 Z = sample.int(3, n, replace=T) ``` - ```{r} mu1 = -3 mu2 = 0 @@ -17,7 +16,6 @@ X[Z == 2] = rnorm(sum(Z == 2), mu2, sqrt(sigma22)) X[Z == 3] = rnorm(sum(Z == 3), mu3, sqrt(sigma32)) ``` - ```{r} plot(density(X, bw = 0.1), ylim = c(0, 0.85), main = 'Estimation de la densité') rug(X) @@ -69,7 +67,6 @@ legend( La validation croisée non biaisée (UCV) semble donner les meilleurs résultats.. - ```{r} kmax = 50 H = (1:kmax)^2 / (n * sqrt(2 * pi))