#ocena gustine podataka iz normalne N(0,1) raspodele #gausovo jezgro Kn<-function(t){ return(exp(-t^2/2)/sqrt(2*pi)) } #bikvadratno jezgro Kd<-function(t){ if(abs(t)<1) return((15/16)*(1-t^2)^2) else return(0) } #trougaono jezgro Kt<-function(t){ if(abs(t)<1) return(1-abs(t)) else return(0) } #Epanehnikovo jezgro Ke<-function(t){ if(abs(t)