how can I print values of x and y for the minimum value of z of this 3d plot

cone<- function(x,y){   ((x^2)+(y^2)-(x*y)) } x<- y<-
seq(-0.5,0.5,length=50) z<- outer(x,y,cone) z library(plotly) fig <-
plot_ly(x = x, y = y, z = z) %>% add_surface() fig min(z) print(x,y)