回归插补法_用均值替换、 回归插补及多重插补进行插补

##设置工作空间

#把“数据及程序” 文件夹复制到F盘下， 再用setwd设置工作空间

setwd("F： /数据及程序/chapter4/示例程序")

#读取销售数据文件， 提取标题行

inputfile=read.csv('./data/catering_sale.csv'， he=T)

#变换变量名

inputfile=data.frame(sales=inputfile$'销量'， date=inputfile$'日期')

#数据截取

inputfile=inputfile［5： 16， ］

#缺失数据的识别

is.na(inputfile) #判断是否存在缺失

n=sum(is.na(inputfile) ) #输出缺失值个数#异常值识别

par(mfrow=c(1， 2) ) #将绘图窗口划为1行两列， 同时显示两图

dotchart(inputfile$sales) #绘制单变量散点图

boxplot(inputfile$sales， horizontal=T) #绘制水平箱形图

#异常数据处理

inputfile$sales［5］ =NA #将异常值处理成缺失值

fix(inputfile) #表格形式呈现数据

#缺失值的处理

inputfile$date=as.numeric(inputfile$date) #将日期转换成数值型变量

sub=which(is.na(inputf