数据来源:以扫描字符的识别为例,[Letter Recognition Dataset](https://archive.ics.uci.edu/ml/datasets/Letter+Recognition)
install.packages("knitr")
install.packages("kernlab")
library(kernlab)
library(knit)
### 数据读取并处理
letters<-read.table("letter.txt",sep=",")
str(letters)
dim(letters)
colnames(letters)=c("letter","xbox","ybox","width","height ","onpix","xbar","ybar","x2bar","y2bar","xybar","x2ybar","xy2bar","xege","xedgey","yege","yedgex")
### 构建测试集和训练集
ind<-sample(2,nrow(letters),replace=TRUE,prob=c(0.8,0.2))
traindata<-letters[ind==1,]
testdata<-letters[ind==2,]
dim(testdata)
### 构建分类器
classifier = ksvm(l