# NOT RUN {
simplex <- exampleOptimization(surface = exampleSurfaceR2,
centroid = c(7, 340),
stepsize = c(1.2, 15))
p <- cntr(surface = exampleSurfaceR2)
p <- addSimplex2Surface(p = p, simplex = simplex)
print(p)
# }
Run the code above in your browser using DataLab