data(LATHYPPISTON)
library(DiceEval)
Dice <- km(design=LATHYPPISTON[, !names(LATHYPPISTON) %in% "seconds"],
response=LATHYPPISTON[,"seconds"])
#library(DiceView)
#sectionview(Dice,
# center=colMeans(LATHYPPISTON[, !names(LATHYPPISTON) %in% "seconds"]),
# conf_lev=c(0.5, 0.9, 0.95),
# title="", col_sur="darkgrey", lwd=2,
# Xname=colnames(LATHYPPISTON[, !names(LATHYPPISTON) %in% "seconds"]))
#
#
#layout(1)
Run the code above in your browser using DataLab