2021-06-20 12:32:25 +02:00
|
|
|
x1<-rexp(30,5)
|
|
|
|
|
x2<-rnorm(30,2,2)
|
|
|
|
|
x3<-rnorm(30,10,1)
|
|
|
|
|
gen<-c(x1,x2,x3)
|
2021-06-20 10:42:15 +02:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2021-06-20 12:32:25 +02:00
|
|
|
# wykresy gęstości jądrowych przy różnych szerokościach okna
|
|
|
|
|
par(mfrow=c(2,2))
|
|
|
|
|
plot(density(gen,bw=0.1))
|
|
|
|
|
plot(density(gen,bw=0.5))
|
|
|
|
|
plot(density(gen,bw=3))
|
|
|
|
|
plot(density(gen,bw=5)) #na trzecim
|
