R语言笔记之线性回归及其衍生（续）

> library(lattice)
Warning message:
程辑包‘lattice’是用R版本3.4.3 来建造的 
> library(caret)
载入需要的程辑包：ggplot2
Warning messages:
1: 程辑包‘caret’是用R版本3.4.3 来建造的 
2: 程辑包‘ggplot2’是用R版本3.4.3 来建造的 
> library(dplyr)

载入程辑包：‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

Warning message:
程辑包‘dplyr’是用R版本3.4.3 来建造的 
> library(elasticnet)
载入需要的程辑包：lars
Loaded lars 1.2

> library(lars)
> sim.dat=read.csv("https://raw.githubusercontent.com/happyrabbit/DataScientistR/master/Data/SegData.csv")
> 
> ymad=mad(na.omit(sim.dat$income))
> 
> zs=(sim.dat$income-mean(na.omit(sim.dat$income)))/ymad
> 
> idex=c(which(na.omit(zs>3.5)),which(is.na(zs)))
> 
> sim.dat=sim.dat[-idex,]
> 
> xtrain=dplyr::select(sim.dat,Q1:Q10)
> 
> ytrain=sim.dat$income
> 
> set.seed(100)
> 
> ctr1=trainControl(method="cv",number=10)
> 
> plsTune=train(xtrain,ytrain,method="pls",tuneGrid=expand.grid(.ncomp=1:10))
> 
> plsTune=train(xtrain,ytrain,method=