set.seed(8675309)
# NOTE: following inverts rstream::rstream.sample using stats::qt
vt(3, df = 3, ncp = 2)
set.seed(8675309)
# NOTE: following inverts rstream::rstream.sample using stats::qt
vt(3, 2, stream = 1)
vt(3, 2, stream = 2)
set.seed(8675309)
# NOTE: following inverts rstream::rstream.sample using stats::qt
vt(1, 2, stream = 1)
vt(1, 2, stream = 2)
vt(1, 2, stream = 1)
vt(1, 2, stream = 2)
vt(1, 2, stream = 1)
vt(1, 2, stream = 2)
set.seed(8675309)
variates <- vt(100, 2, stream = 1)
set.seed(8675309)
variates <- vt(100, 2, stream = 1, antithetic = TRUE)
Run the code above in your browser using DataLab