>>144
それくらいの数ならひたすら列挙して数えれば( ・∀・)ｲｲ!!

gender=c('男','女')
> days=c('日','月','火','水','木','金','土')
> (kids<-as.matrix(expand.grid(gender,days,gender,days))) |> noquote()
Var1 Var2 Var3 Var4
[1,] 男 日 男 日
[2,] 女 日 男 日
[3,] 男 月 男 日
[4,] 女 月 男 日
...
[194,] 女 金 女 土
[195,] 男 土 女 土
[196,] 女 土 女 土
> (boyTue <- kids[(kids[,1]=='男'& kids[,2]=='火') | (kids[,3]=='男' & kids[,4]=='火'),]) |> noquote()
Var1 Var2 Var3 Var4
[1,] 男 火 男 日
[2,] 男 火 女 日
[3,] 男 火 男 月
[4,] 男 火 女 月
...
[24,] 男 火 男 金
[25,] 男 火 女 金
[26,] 男 火 男 土
[27,] 男 火 女 土
> is.2boys =\(x) x[1]=='男' & x[3]=='男'
> (twoboys<-boyTue[apply(boyTue,1,is.2boys),]) |> noquote()
Var1 Var2 Var3 Var4
[1,] 男 火 男 日
[2,] 男 火 男 月
[3,] 男 日 男 火
[4,] 男 月 男 火
[5,] 男 火 男 火
[6,] 男 水 男 火
[7,] 男 木 男 火
[8,] 男 金 男 火
[9,] 男 土 男 火
[10,] 男 火 男 水
[11,] 男 火 男 木
[12,] 男 火 男 金
[13,] 男 火 男 土
> nrow(twoboys)/nrow(boyTue) |> MASS::fractions()
[1] 13/27