# NOT RUN {
# }
# NOT RUN {
#20-point minimax design on the hypercube [0,1]^2
library(jpeg)
n <- 25
img <- readJPEG(system.file("img", "gamap.jpg", package="minimaxdesign"))[,,1]
image(t(img)[,nrow(img):1],col=gray.colors(12,start=0.6),main="Georgia")
img <- t(img)[,nrow(img):1] #Invert image due to reading distortion
des <- minimax.map(n,img)
points(des,pch=16)
# }
Run the code above in your browser using DataLab