set.seed(46)
gt.data <- gtSim(type = "sp", par = c(-12, 0.2),
size1 = 700, size2 = 5)
x1 <- sort(runif(100, 0, 30))
x2 <- rgamma(100, shape = 17, scale = 1.5)
gt.data <- gtSim(type = "sp", x = cbind(x1, x2),
par = c(-14, 0.2, 0.3), size2 = 4,
sens = 0.98, spec = 0.98)
set.seed(46)
gt.data <- gtSim(type = "halving", par = c(-6, 0.1),
gshape = 17, gscale = 1.4, size1 = 5000,
size2 = 5, sens = 0.95, spec = 0.95)
# 5x6 and 4x5 matrix
set.seed(9128)
sa1a <- gtSim(type = "array", par = c(-7, 0.1),
size1 = c(5, 4), size2 = c(6, 5),
sens = 0.95, spec = 0.95)
sa1a$dframe
Run the code above in your browser using DataLab