发帖
雷达卡
> ##设置工作空间
> #把“数据及程序”文件夹复制到F盘下，再用setwd设置工作空间
> setwd（"D:/QQ/870019374/FileRecv/数据挖掘实训/数据挖掘实训/chapter5/上机实验"/data1）
> data=read.csv（"./data/water_heater.csv"，header=TRUE）
> data$"发生时间"=strptime（data$"发生时间"，"%Y%m%d%H%M%S"）
> data$eventnum=as.numeric（row.names（data））
> whdata=data[data$"水流量"！=0，]
> t1=whdata$“发生时间”
> m=length（t1）#得到读取的表格的数据维数
> Tm=240
> #阀值设置为4分钟（240秒）
> t2=c（t1[1]，tl[1：（m-1）]）
> t3=c（t1[2：m]，tl[m]）
> tdl=difftime（t1，t2，units="secs"）生成向前时差列（单位为秒）
> td2=difftime（t1，t3，units="secs"）#生成向后时差列（单位为秒）
> headornot=rep（0，m）
> endornot=rep（0，m）
> if（whdata$"水流量"[1]！=0）headornot[1]=1
> if（whdata$"水流量"[m]！=0）endornot[m]=1
> for（i in 2：1ength（headornot））{ #寻找连续用水起点
> if（abs（tdl）>=Tm）{
> headornot=1
Error in headornot = 1 : 找不到对象'headornot'
> }else{
错误: 意外的'}' in "}"
> headornot=0
Error in headornot = 0 : 找不到对象'headornot'
> }
错误: 意外的'}' in "}"
> }
错误: 意外的'}' in "}"
> for（i in 1：（1ength（endornot）-1））{#寻找连续用水终点
> if（abs（td2）>=Tm）{
> endornot=1
Error in endornot = 1 : 找不到对象'endornot'
> }else{
错误: 意外的'}' in "}"
> endornot=0
Error in endornot = 0 : 找不到对象'endornot'
> }
错误: 意外的'}' in "}"
> }
错误: 意外的'}' in "}"
> dividsequence=data.frame（matrix（NA，sum（headornot==1），3））
> colnames（dividsequence）=c（"事件序号”，“事件起始编号”，“事件终止编号"）
> dividsequence[，1]=c（1：sum（headornot==1））
> dividsequence[，2]=whdata$eventnuml[which（headornot==1）]
> dividsequence[，3]=whdata$eventnum[which（endornot==1）]
> write.csv（file="/tmp/dividsequence.csv"，dividsequence，row.names=F）
Error in endornot = 0 : 找不到对象'endornot'
这个错误是怎么回事
京公网安备 11010802022788号
