合成データからランダムに100個選び標本を
作る
x2 <- rnorm(100000, mean=5, sd=5)
y2 <- rnorm(100000, mean=5, sd=0.1)
d10 <- data.frame( xx=x2[floor( runif(100, 1, 100000+1) )],
yy=y2[floor( runif(100, 1, 100000+1) )] )
d10$yy <- 0.1 * d10$xx + d10$yy
library(ggplot2)
ggplot(d10, aes(x=xx)) +
geom_point( aes(y=yy), size=3 ) + xlim(-5, 15) + ylim(-5, 15) +
theme_bw()
cor(d10$xx, d10$yy) 10
合成データ
タイプ:数値(整数化しない)
サイズ:100,000
サイズ100
の標本を2セット
合成データに,
正の相関関係をもたせる