Lam Bhan bhanlam

## t.test.partial example 1.r
set.seed(1)

n <- 40
p <- 0.3
r <- 0.5

m <- MASS::mvrnorm(n, c(0, 0), matrix(c(1, r, r, 1), 2))
m <- t(t(m) * c(1, 2))
m <- t(t(m) + c(51, 50))
m <- round(m, 1)
	set.seed(1)

	n <- 40
	p <- 0.3
	r <- 0.5

	m <- MASS::mvrnorm(n, c(0, 0), matrix(c(1, r, r, 1), 2))
	m <- t(t(m) * c(1, 2))
	m <- t(t(m) + c(51, 50))
	m <- round(m, 1)