Menu główne
Ocena prawdopodobieństwa zdarzenia rzadkiegoN=10^3y=rexp(N)+4.8waga=dnorm(y)/dexp(y-4.8)sum(waga)/N### Graficzna prezentacja wynikówplot(cumsum(waga)/1:N, type='l')abline(a=pnorm(-4.8),b=0, col='red')