Black Lives Matter. Please consider donating to Black Girls Code today.

Create volume using equations

Hi folks.

I’m trying to get a 3D volume based on equations similar to Matlab and Mathematica…

Something along the lines of the picture attached.
Untitled

My code would look something like this

x <- y <- seq(-1, 1, length.out = 20)
z = matrix(c(x %% y), nrow = length(x), ncol =length(x) )
cone <- function(x, y){
(11.9174 - 2.18121
x - 0.381032*y)/+ 0.7177868
}
z=outer(x,y, cone)

I’ve tried several plot types but to no avail…
Can anyone provide some insight on how to do this with plotly in R?

BR.
RCS