0

In this code, the function addgrids3d is not working. It says, "could not find addgrids3d function". What can be the issue here?

EOS <- read.table(file = "clipboard", 
                      sep = "\t", header=TRUE)
install.packages("scatterplot3d") # Install
library("scatterplot3d") # load
EOS$Load[which(EOS$Load == 2)] <- '2N'
EOS$Load[which(EOS$Load == 7)] <- '7N'
shapes = c(14:15)
shapes <- shapes[as.factor(EOS$Load)]
s3d <- scatterplot3d(EOS[,1:3],angle = 40, cex.lab=1, cex.axis = .5,pch = shapes, color = "steelblue", grid = TRUE, type = "h", col.axis = "blue", col.grid = "light grey")
addgrids3d(EOS[, 1:3], grid = c("xy", "xz", "yz"))
my.lmEOS <- lm(EOS$Compression ~ EOS$Speed+EOS$Stress)
s3d$plane3d(my.lmEOS, col = "red", )
summary(my.lmEOS)
Shamimur
  • 1
  • 1
  • Please take a look at how to make a [great reproducible example](https://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example). – Martin Gal Jul 13 '21 at 17:50
  • `addgrids3d` does not seem to be from `scatterplot3d`. There is a reference to a function by that name in the `FactoClass` package. Is that perhaps the function you were trying to use? – MrFlick Jul 13 '21 at 17:53

0 Answers0