分離比解析をやっている たくさんの家系データを作りたい 結構面倒くさい グラフではなくて家系図的にすれば n.init <- 1 trio <- matrix(0,n.init,5) m <- length(trio[1,]) trio[1,1] <- 1 trio[1:n.init,4] <- sample(c(-1,1),n.init,replace=TRUE) trio[…