Используя пакет rsm, я пытаюсь совместить на графике перспективу с контуром, на который будут проецироваться оценочные баллы.
Мне удалось объединить перспективный график с соответствующим контуром, но я не могу выяснить, как добавить оценочные значения на поверхность контура.
Вот мой код:
library (rsm)
set.seed(123)
x1 <- sample(seq(from = 1, to = 5), size = 50, replace = TRUE)
x2 <- sample(seq(from = 1, to = 5), size = 50, replace = TRUE)
gpa <-sample(seq(from = 1, to = 20), size = 50, replace = TRUE)
My_model <- rsm(gpa ~ SO(x1, x2))
summary(My_model)
persp (My_model, x2 ~ x1, contour=list(col="col", lwd=1),
theta = -25, phi = 15,zlab = "Gpa", main="Second-order
model")
Итак, я хотел бы создать график, который будет показывать приблизительные оценки в каждой области контура . Я благодарю всех вас за внимание.