Я хочу бросить 200 чисел из распределения 0,6N (0,1) + 0,4N (4,5), и построить на одном графике pdf и ядро распределить оценку.
Оценка распределения ядра, где K - функция ядра:
** Моя работа **
g=function(x) {ifelse(x<1&-1<=x, 3/4*(1-x^2), 0)}
# I will use this kernel
y=0.6*rnorm(200,0,1)+0.4*rnorm(200,4,5)
#Rolling 200 numbers of my distribution
plot(density(y))
#plotting density of y
f=function(x){1/100*sum(g(x-y))}
#defining my kernel distribute estimate (with h=$\frac{1}{100})$
И у меня есть тробле с графиком построения функции f .
Такие функции, как сюжет, кривая, линии не работают. Как я могу нарисовать график f ?