set.seed(57) # 相関がお互いに.7の3変数を作成 mu <- rep(0, 3) Sigma <- matrix(.7, nrow = 3, ncol = 3) + diag(3)*.3 seven <- mvrnorm(n = 1000, mu = mu, Sigma = Sigma) # 相関がお互いに.4の3変数を作成 mu <- rep(0, 3) Sigma <- matrix(.4, nrow = 3, ncol = 3) + diag(3)*.6 four <- mvrnorm(n = 1000, mu = mu, Sigma = Sigma) # 二つを結合して...