r语言 支持向量机分类_支持向量机原理_envi支持向量机分类(9)

m

summary(m)

pred<-fitted(m)

table(pred,label)

setwd("D:/R/data/digits/testDigits")

name<-list.files("D:/R/data/digits/testDigits")

data1<-paste("train",1:1934,sep="")

for(i in 1:length(name))

assign(data1,as.matrix(read.fwf(name,widths=rep(1,32))))

feature<-matrix(rep(0,length(name)*25),length(name),25)

for(i in 1:length(name)){

feature[i,1]<-sum(get(data1)[,16])

feature[i,2]<-sum(get(data1)[,8])

feature[i,3]<-sum(get(data1)[,24])

feature[i,4]<-sum(get(data1)[16,])

feature[i,5]<-sum(get(data1)[11,])

feature[i,6]<-sum(get(data1)[21,])

feature[i,7]<-sum(diag(get(data1)))

feature[i,8]<-sum(diag(get(data1)[,32:1]))

feature[i,9]<-sum((get(data1)[17:32,17:32]))

feature[i,10]<-sum((get(data1)[1:8,1:8]))

feature[i,11]<-sum((get(data1)[9:16,1:8]))

feature[i,12]<-sum((get(data1)[17:24,1:8]))

feature[i,13]<-sum((get(data1)[25:32,1:8]))

feature[i,14]<-sum((get(data1)[1:8,9:16]))

feature[i,15]<-sum((get(data1)[9:16,9:16]))

feature[i,16]<-sum((get(data1)[17:24,9:16]))

feature[i,17]<-sum((get(data1)[25:32,9:16]))

feature[i,18]<-sum((get(data1)[1:8,17:24]))

feature[i,19]<-sum((get(data1)[9:16,17:24]))

feature[i,20]<-sum((get(data1)[17:24,17:24]))

feature[i,21]<-sum((get(data1)[25:32,17:24]))

feature[i,22]<-sum((get(data1)[1:8,25:32]))

feature[i,23]<-sum((get(data1)[9:16,25:32]))

feature[i,24]<-sum((get(data1)[17:24,25:32]))

feature[i,25]<-sum((get(data1)[25:32,25:32]))

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-32507-9.html