从vignette源代码'vignettes/pRoloc/inst/doc/pRoloc-ml。Rnw ' ################################################### ### 代码块1号:env ################################################### 库(knitr) opts_chunk美元设置(图。align = 'center'， fig.show = 'hold'， par = TRUE, prompt = TRUE, eval = TRUE, comment = NA)assign = TRUE, width = 55) suppressPackageStartupMessages(库("MSnbase")) suppressWarnings(suppressPackageStartupMessages(库("pRoloc"))) suppressPackageStartupMessages(库("pRolocdata")) ## suppressPackageStartupMessages(库("class")) suppressPackageStartupMessages(库("xtable")) ################################################### ###代码块2:pRolocdata ################################################### 图书馆(“pRolocdata”)的数据(tan2009r1) tan2009r1 ################################################### ### 代码块3号:svmParamOptim ################################################### 参数< - svmOptimisation (tan2009r1 * = 10, xval = 5, verbose = FALSE)参数 ################################################### ### 代码块4号:svmRes ################################################### tan2009r1 < - svmClassification tan2009r1 (tan2009r1, params) ################################################### ### 代码块5号:weigths (eval = FALSE ) ################################################### ## w < -表(fData (dunkley2006)标记美元)# # w < - 1 / w [5] # # wpar < - svmOptimisation (dunkley2006、类。## wres <- svmClassification(dunkley2006, pw, class. weight = w)重量= w ) ################################################### ### 代码块6号:getmlfunction ################################################### ## 添加x ^ 2。tab <- data.frame('parameter optimisation' = grep(" optimisation "， ls("package:pRoloc")， value = TRUE)， 'classification' = grep(" classification "， ls("package:pRoloc")， value = TRUE)) tab$algorithm <- c("最近邻"，"支持向量机"，"朴素贝叶斯"，"神经网络"，"PerTurbo"， "偏最小二乘"，"随机森林"，"支持向量机")tab$package <- c("class"， "kernlab"， "e1071"， "nnet"， "pRoloc"， "插入符号"，"randomForest"，"e1071") colnames(tab)[1] <- c("参数优化")