## Highlighting cases near the first observation
vw <- visualweight(mtcars[1, ], mtcars, sigma = 2)
print(vw)
## Its use in an interactive ceplot
library(mgcv)
library(e1071)
data(powerplant)
model <- list(gam = gam(PE ~ s(AT) + s(V) + s(AP) + s(RH), data = powerplant),
svm = svm(PE ~ ., data = powerplant))
interactiveceplot(data = powerplant, model = model, S = "V",
height = 6, width = 10, sigma = 0.2)
Run the code above in your browser using DataLab