>>378
まとめると

p=1/2 # 袋Aに赤2個の事前確率
q=1/2 # 袋Bに青2個の事前確率
P=4*p/(3*p+1) # 袋Aに赤2個の事後確率
Q=4*q/(3*q+1) # 袋Bに青2個の事後確率

Red = P+(1-P)*(1/2) # 赤のでる確率
Blue = Q+(1-Q)*(1/2) # 青のでる確率
BlackA = (1-P)*(1/2) # 袋Aから黒のでる確率
BlackB = (1-Q)*(1/2) # 袋Bから黒のでる確率

# 赤青
Red*Blue
# 赤黒
Red*BlackB
# 黒青
BlackA*Blue
# 黒々
BlackA*BlackB

結果は
> # 赤青
> Red*Blue
[1] 0.81
> # 赤黒
> Red*BlackB
[1] 0.09
> # 黒青
> BlackA*Blue
[1] 0.09
> # 黒々
> BlackA*BlackB
[1] 0.01
>