《algae海藻例子》.ppt

该【《algae海藻例子》 】是由【相惜】上传分享，beplayapp体育下载一共【81】页，该beplayapp体育下载可以免费在线阅读，需要了解更多关于【《algae海藻例子》 】的内容，可以使用beplayapp体育下载的站内搜索功能，选择自己适合的beplayapp体育下载，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此beplayapp体育下载到您的设备，方便您编辑和打印。*Algae(海藻)例子algaetrain<-('f:/讲课/SJM/',header=T,dec='.',=c('XXXXXXX'))整理课件首都经济贸易大学32021122125整理课件*algaetrain<-('f:/讲课/SJM/',header=T,dec='.',=c('XXXXXXX'))algaetest1<-('f:/讲课/SJM/',header=T,dec='.',=c('XXXXXXX'))algaetest2<-('f:/讲课/SJM/',header=T,dec='.',=c('XXXXXXX'))algaetest<-cbind(algaetest1,algaetest2)algae<-rbind(algaetrain,algaetest)summary(algae)##对algae数据集的根本信息特征的描述整理课件*par(mfrow=c(1,2))hist(algae$mxPH,prob=T)hist(algae$mxPH,prob=T,xlab='',main='HistogramofMaximumPHvalue',ylim=0:1)lines(density(algae$mxPH,=T))#在直方图中添加密度线rug(jitter(algae$mxPH))#画出变量mxPH在X轴附近的真实值整理课件*整理课件*library(lattice)bwplot(size~a1,data=algae,ylab='RiverSize',xlab='AlgaA1')#整理课件*缺失值的处理〔以对训练集algaetrain的缺失值处理为例〕整理课件*algaetrain[!(algaetrain),]##显示algaetrain数据集中含有缺失值项nrow(algaetrain[!(algaetrain),])##缺失值项的总行数整理课件*方法1:直接将含有缺失值项的水样删除algaetrain1<-(algaetrain)整理课件*方法2:运用常用的均值和中位数的方法进行插补整理课件