Как построить буфер вокруг верхней половины эллипсоида?

Question

То, что я ищу, - это способ создания эллипсоида, который больше, чем тот, который изображен в примере. Таким образом, эллипсоид должен быть похож на буфер с определенной шириной нанесенного на график.

Кроме того, я бы хотел "отрезать" верхнюю часть эллипсоида.

Есть идеи, как это сделать?

пример взят из: http://www.sthda.com/english/wiki/a-complete-guide-to-3d-visualization-device-system-in-r-r-software-and-data-visualization

library("rgl")

data(iris)
head(iris)

x <- sep.l <- iris$Sepal.Length
y <- pet.l <- iris$Petal.Length
z <- sep.w <- iris$Sepal.Width


rgl_init()
plot3d(x, y, z, col="blue", box = FALSE,
       type ="s", radius = 0.15)
ellips <- ellipse3d(cov(cbind(x,y,z)), 
                    centre=c(mean(x), mean(y), mean(z)), level = 0.99)
plot3d(ellips, col = "blue", alpha = 0.2, add = TRUE, box = FALSE)