mirror of
https://github.com/ArthurDanjou/ArtStudies.git
synced 2026-01-14 13:54:06 +01:00
Remove extra blank lines in M2/Statistiques Non Paramétrique/TP1.Rmd
This commit is contained in:
@@ -4,7 +4,6 @@ n = 100
|
|||||||
Z = sample.int(3, n, replace=T)
|
Z = sample.int(3, n, replace=T)
|
||||||
```
|
```
|
||||||
|
|
||||||
|
|
||||||
```{r}
|
```{r}
|
||||||
mu1 = -3
|
mu1 = -3
|
||||||
mu2 = 0
|
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))
|
X[Z == 3] = rnorm(sum(Z == 3), mu3, sqrt(sigma32))
|
||||||
```
|
```
|
||||||
|
|
||||||
|
|
||||||
```{r}
|
```{r}
|
||||||
plot(density(X, bw = 0.1), ylim = c(0, 0.85), main = 'Estimation de la densité')
|
plot(density(X, bw = 0.1), ylim = c(0, 0.85), main = 'Estimation de la densité')
|
||||||
rug(X)
|
rug(X)
|
||||||
@@ -69,7 +67,6 @@ legend(
|
|||||||
|
|
||||||
La validation croisée non biaisée (UCV) semble donner les meilleurs résultats..
|
La validation croisée non biaisée (UCV) semble donner les meilleurs résultats..
|
||||||
|
|
||||||
|
|
||||||
```{r}
|
```{r}
|
||||||
kmax = 50
|
kmax = 50
|
||||||
H = (1:kmax)^2 / (n * sqrt(2 * pi))
|
H = (1:kmax)^2 / (n * sqrt(2 * pi))
|
||||||
|
|||||||
Reference in New Issue
Block a user