A*********0
发帖数: 144 | 1 getwd()
pollutantmean<-function(getwd(),id=1:332){
for(i in id)
{ if(i<10){data<-read.csv(paste("0"，"0"，as.character(i),".csv",sep=""),
header=T, na.string=c("NA","NaN"," "))}
else if(i>=10 & i<100){data<-read.csv(paste("0",as.character(i),".csv",sep
=""),header=T, na.strings=c("NA","NAN",""))}
else{data<-read.csv(paste(as.character(i),".csv",sep=""),header=T,na.
string=c("NA","NaN”，" ")}
if(pollutant="sulfate"){total=total+sum(data$sulfate)}
else{total=total+sum(data$nitrate)}
}
setwd("..")
return(total/observation)
}, 请好心人指点我哪里错了？ | W**o
发帖数: 547 | 2 有一个引号是中文的引号
sep
～～～～" “
【在 A*********0 的大作中提到】
: getwd()
: pollutantmean<-function(getwd(),id=1:332){
: for(i in id)
: { if(i<10){data<-read.csv(paste("0"，"0"，as.character(i),".csv",sep=""),
: header=T, na.string=c("NA","NaN"," "))}
: else if(i>=10 & i<100){data<-read.csv(paste("0",as.character(i),".csv",sep
: =""),header=T, na.strings=c("NA","NAN",""))}
: else{data<-read.csv(paste(as.character(i),".csv",sep=""),header=T,na.
: string=c("NA","NaN”，" ")}
: if(pollutant="sulfate"){total=total+sum(data$sulfate)}
| a*z
发帖数: 294 | | A*********0
发帖数: 144 | 4 不过好像改了也一直运行不了，奇怪。初学者，谢谢！
【在 a*z 的大作中提到】
: 牛X
| W**o
发帖数: 547 | 5 把你改好的再贴一下
【在 A*********0 的大作中提到】
: 不过好像改了也一直运行不了，奇怪。初学者，谢谢！
| A*********0
发帖数: 144 | 6 Error in file(file, "rt") : cannot open the connection
In addition: Warning message:
In file(file, "rt") :
cannot open file 'specdata/001.csv': No such file or directory, 运行时出现
这个状况，如何解决。
【在 W**o 的大作中提到】
: 把你改好的再贴一下
| W**o
发帖数: 547 | 7 你的001.csv 不在你的工作目录下
【在 A*********0 的大作中提到】
: Error in file(file, "rt") : cannot open the connection
: In addition: Warning message:
: In file(file, "rt") :
: cannot open file 'specdata/001.csv': No such file or directory, 运行时出现
: 这个状况，如何解决。
|
|
