Code: Alles auswählen
read_stations <- function(Daten) {
+stationen <-
read.table(
Daten,
header = TRUE,
sep = ';',
na.strings = NA,
stringsAsFactors = FALSE
)
+ stationen$MDA803 <-
ifelse(stationen$Flag == '1', stationen$MDA803, NA)
+ stationen <-
subset(stationen,
stationen$Date >= '2000-01-01' & stationen$Date <= '2010-12-31')
+ if ((nrow(statioen) == 0) == TRUE) {
+next+
}
+ if ((stationen$Date[1] == '2000-01-01') == FALSE |
(stationen$Date[length(stationen$Date)] == '2010-12-31') == FALSE) {
+next+
}
+ NA_perc = (nrow(subset(
stationen, is.na(stationen$MDA803) == TRUE
))) / nrow(stationen)
+ if ((NA_perc <= 0.25) == TRUE) {
+write.table(
stationen,
paste('Daten_final/', basename(Daten), sep = ''),
sep = ';',
row.names = FALSE
)
+
}
+
}
Code: Alles auswählen
daten_original <- list.files('Daten',all.files = FALSE,full.names = TRUE,pattern = 'IT')
lapply(daten_original,read_stations)
Kennt jemand mögliche Lösungsansätze?