# NOT RUN {
print(bo09_toy(c(0.5,0.25)))
n <- 100
a <- seq(0,1,length.out = n)
x <- expand.grid(a,a)
z <- matrix(apply(x,1,bo09_toy),n,n)
graphics::contour(a,a,z, xlab = expression(x[1]), ylab = expression(x[2]))
# }
Run the code above in your browser using DataLab