19
Ich bin neu in R, und nachdem ich diesen Fehler ausführlich untersucht habe, bin ich immer noch nicht in der Lage, eine Lösung dafür zu finden. Hier ist der Code. Ich habe mein Arbeitsverzeichnis überprüft und sichergestellt, dass sich die Dateien im richtigen Verzeichnis befinden. Bin dankbar. DankFehler in der Datei (Datei, "rt"): kann die Verbindung nicht öffnen
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))
}
}
Der Fehler, den ich habe, ist unten bekommen:
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
Es sieht so aus als hätten Sie ein Verzeichnis 'specdata' mit den Dateien' 001.csv', usw. Der richtige Pfad ist './Specdata/001.csv', * not *'./ specdata001.csv'. Versuchen Sie, 'sep =" "' in 'sep ="/"' in der Zeile 'specdatapaths' zu ändern. – jlhoward
Oder versuchen Sie Degugging 101 Taktiken wie Drucken der Werte, die der Funktion gegeben werden, die den Fehler wirft. –
Vielen Dank für Ihre Antworten. Ich konnte den offenen Verbindungsfehler beheben, aber jetzt bekomme ich einen Fehler "nicht identifizierte Spalten ausgewählt". Irgendwelche Vorschläge? Danke pollutantmean ("specdata", "sulfat", 1:10) Fehler in '[.data.frame' (curr_file,, pollutant): undefinierte Spalten ausgewählt 6 stop (" undefined columns selected ") 5' [ .data.frame' (curr_file,, schadstoff) 4 curr_file [, schadstoff] 3 '[.data.frame' (curr_file,! is.na (curr_file [, schadstoff]), schadstoff) 2 curr_file [! is .na (curr_file [, Schadstoff]), Schadstoff] 1 pollutantmean ("specdata", "Sulfat", 1:10) – ldeassis