ntox <- matrix(c(0, 0, 2, 0, 0,
0, 2, 7, 0, 0,
0, 2, 0, 0, 0),
nrow = 3, ncol = 5, byrow = TRUE)
npts <- matrix(c(3, 0, 12, 0, 0,
3, 12, 24, 0, 0,
3, 3, 0, 0, 0),
nrow = 3, ncol = 5, byrow = TRUE)
selmtd <- CFO2d.selectmtd(target=0.3, npts=npts, ntox=ntox)
summary(selmtd)
plot(selmtd)
Run the code above in your browser using DataLab