# Bayes otazka = 0 (pstC_H = c(1,0.8,0.65,0.5)) (pstH = c(0.2,0.35,0.25,0.2)) # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # otazka = otazka + 1;(soucin = pstC_H*pstH) cat("otazka:",otazka," P(C)=",sum(soucin),"\n") pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") # # M = 20 (pstC_H = c(1,0.8,0.65,0.5)) (pstH = c(0.2,0.35,0.25,0.2)) for (otazka in 1:M){ soucin = pstC_H*pstH cat(paste("otazka:",otazka," P(C)=",sum(soucin),"\n")) pstH = soucin/sum(soucin); cat("aposteriorní psti: ",pstH,"\n") } #