# NOT RUN {
## set seed (for replication purposes)
set.seed(206195)
## create data set
d <- data_set(
w = rnorm(100, 0, 0.0),
v = rnorm(100, 0, 0.5),
x = rnorm(100, 0, 1.0),
y = rnorm(100, 0, 2.0),
z = rnorm(100, 0, 3.0)
)
## minimum var of 1.0 (default)
min_var(d)
## min variance of 0.1
min_var(d, 0.1)
## min var of 2.0
min_var(d, 2.0)
## min var of 6.0
min_var(d, 6.0)
# }
Run the code above in your browser using DataLab