Je suis nouveau dans R, et après avoir fait de nombreuses recherches sur cette erreur, je n’ai toujours pas trouvé de solution. Voici le code. J'ai vérifié mon répertoire de travail et je me suis assuré que les fichiers se trouvent dans le bon répertoire. Je vous en remercie. Merci
pollutantmean <- function(directory, pollutant = "nitrate", id= 1:332)
{ if(grep("specdata",directory) ==1)
{
directory <- ("./specdata")
}
mean_polldata <- c()
specdatafiles <- as.character(list.files(directory))
specdatapaths <- paste(directory, specdatafiles, sep="")
for(i in id)
{
curr_file <- read.csv(specdatapaths[i], header=T, sep=",")
head(curr_file)
pollutant
remove_na <- curr_file[!is.na(curr_file[, pollutant]), pollutant]
mean_polldata <- c(mean_polldata, remove_na)
}
{
mean_results <- mean(mean_polldata)
return(round(mean_results, 3))
}
}
L'erreur que je reçois est la suivante :
Error in file(file, "rt") : cannot open the connection
file(file, "rt")
read.table(file = file, header = header, sep = sep, quote = quote,
dec = dec, fill = fill, comment.char = comment.char, ...)
read.csv(specdatapaths[i], header = T, sep = ",")
pollutantmean3("specdata", "sulfate", 1:10)
In addition: Warning message:
In file(file, "rt") :
cannot open file './specdata001.csv': No such file or directory
Vous devez changer le répertoire <- (" ;./specdata" ;)
en répertoire <- (" ;./specdata/" ;)
.
Par rapport à votre répertoire de travail actuel, vous recherchez le fichier 001.csv, qui se trouve dans votre répertoire specdata.
Il est presque impossible de répondre à cette question sans contexte, puisque vous ne nous avez pas fourni ici la structure de votre répertoire de travail. Heureusement pour vous, j'ai déjà suivi le cours R Programming sur Coursera, et j'ai donc déjà répondu à cette question de devoir.