#Two probability distributions to combine
x1<-c(A = .5, AA = .9, AAA = .6)
x2<-c(A = .3, AA = NA, AAA = .5)
z1 <- ncomb.prob(x = x1,y= x2,independent=TRUE)
z2 <- ncomb.prob(x = list(X1=x1,X2=x2),independent=FALSE)
Run the code above in your browser using DataLab