library(IRon)
data(accel)
ind <- sample(1:nrow(accel),0.75*nrow(accel))
train <- accel[ind,]
test <- accel[-ind,]
ph <- phi.control(train$acceleration)
phis <- phi(test$acceleration,phi.parms=ph)
plot(test$acceleration,phis,xlab="Y",ylab="Relevance")
Run the code above in your browser using DataLab