前スレhttps://rio2016.5ch.net/test/read.cgi/math/1567866548/975
の続き
6人を定員2人の3部屋にわける場合を考える
部屋割りのやり方を列挙すると

[,1] [,2] [,3] [,4] [,5] [,6]
[1,] 1 1 2 2 3 3
[2,] 1 1 2 3 2 3
[3,] 1 1 2 3 3 2
[4,] 1 1 3 2 2 3
[5,] 1 1 3 2 3 2
[6,] 1 1 3 3 2 2
で始まり
[,1] [,2] [,3] [,4] [,5] [,6]
[85,] 3 3 1 1 2 2
[86,] 3 3 1 2 1 2
[87,] 3 3 1 2 2 1
[88,] 3 3 2 1 1 2
[89,] 3 3 2 1 2 1
[90,] 3 3 2 2 1 1
で終わる　90通り

このうち、5番と6番が同じものは
[,1] [,2] [,3] [,4] [,5] [,6]
[1,] 1 1 2 2 3 3
[2,] 1 1 3 3 2 2
[3,] 1 2 1 2 3 3
[4,] 1 2 2 1 3 3
[5,] 1 3 1 3 2 2
[6,] 1 3 3 1 2 2
[7,] 2 1 1 2 3 3
[8,] 2 1 2 1 3 3
[9,] 2 2 1 1 3 3
[10,] 2 2 3 3 1 1
[11,] 2 3 2 3 1 1
[12,] 2 3 3 2 1 1
[13,] 3 1 1 3 2 2
[14,] 3 1 3 1 2 2
[15,] 3 2 2 3 1 1
[16,] 3 2 3 2 1 1
[17,] 3 3 1 1 2 2
[18,] 3 3 2 2 1 1
の18通り
> 18/90　=　0.2は直感に反する、90通りが同様に確からしいという前提が間違い
数えてみると6人からどの2人の組み合わせでも同室になる場合は18通りになっている。
> FUN <- function(x) sum(dat3[,x[1]]==dat3[,x[2]])
> combn(1:6,2,FUN)
[1] 18 18 18 18 18 18 18 18 18 18 18 18 18 18 18