数据集：
程序：library(kknn)
fabu1<-read.table('/Users/smzdm/Documents/fabu.txt',header = T,fill=T)
summary(fabu1)
attach(fabu1)
#**********数据预处理**********#
#加载用于获得分层抽样函数strata()的软件包sampling
library(sampling)
#按照训练集占总数据量70%的比例，计算每一等级中应抽取的样本量
n=round(0.7*nrow(fabu1)/2)
#显示训练集中class变量每一等级中需抽取样本量
n
#以class变量的两个等级划分层次，进行分层抽样
sub_train=strata(fabu1,stratanames = 'classname',size = rep(n,2),method = 'srswor')
#显示训练集抽取情况，包括class变量取值，该样本在数据集中的序号，被抽取到的概率，以及所在的层次
head(sub_train)
#获取如上ID_unit所对应的样本构成训练集
data_train=getdata(fabu1,sub_train$ID_unit)
#获取除ID_unit所对应样本之外的数据构成测试集
data_test=getdata(fabu1,-sub_train$ID_unit)
#显示训练集、测试集维度，检查抽样结果
dim(data_train);dim(data_test)
#显示测试集的前若干条数据
head(data_test)
#**********线性判别法**********#
library(MASS)
#**********以数据框格式执行线性判别**********#
#fit_lda1=lda(data_train[,-7],data_train[,7])
fit_lda1=lda(classname~.,data_train)
到这一步就出现问题了：
请问原因是什么啊？怎么解决呢？
扫码加好友，拉您进群
全部版块
我的主页
收藏
