Menu główne
Generowanie wartości losowych z rozkładu chi-kwadrat z wykorzystaniem algorytmu Metropolisa-Hastingsan=1000x=c()x[1]=2a=1for (i in 1:n){
s=2*a*runif(1)-ax[i+1]=x[i]+swhile (dchisq(x[i+1],3)/dchisq(x[i],3)<runif(1)) { s=2*a*runif(1)-a; x[i+1]=x[i]+s}
}par(mfrow=c(1,2))plot(x,type="l")hist(x)