#install.packages("mlbench") #library("mlbench") #BostonHousing 一危磯 mlbench . library("party") fm2 <- mob(medv ~ lstat + rm + chas | zn + indus + nox + age + dis + rad, control = mob_control(minsplit = 100), data = BostonHousing, model = linearModel) #model = linearModel #model = glinearModel, family = binomial() plot(fm2)