Deutsches R-Forum

Code: Alles auswählen

myAnalyse <- function(Datei) {
  ...
}

Code: Alles auswählen

# ... Arbeitsverzeichnis setzten
Dateien <- dir(pattern="*.csv")

Code: Alles auswählen

lapply(Dateien, FUN=myAnalyse)

Code: Alles auswählen

daten<-read.csv("C:/Users/Documents/Master/Projekt/data/AB_113.csv")
# Kürzen der Daten (ab 22.01.2007)
dat<-subset(daten,Date>="2007-01-22")
# umwandeln in Vektor
ze=dat$Date
gr=dat$GWL
# Zeitreihe 
zr<-ts(gr,start=c(2007,4),end=c(2015,52),frequency=52)
plot.ts(zr,xlab="Zeit",ylab="y",main="Testreihe")

Code: Alles auswählen

setwd("C:/Users/Documents/Master/Projekt/data") # Arbeitsverzeichnis setzten
Dateien <- dir(pattern="*.csv")

auswert <- function(Datei) {
  daten <- read.csv(Datei)
  dat <- subset(daten, Date>="2007-01-22") # Kürzen der Daten (ab 22.01.2007)
  list(ze=dat$Date, gr=dat$GWL, zr=ts(dat$GWL, start=c(2007,4), end=c(2015,52), frequency=52))
}

# erster Test:
L <- auswert("AB_113.csv")
plot.ts(L[[1]]$zr, xlab="Zeit", ylab="y", main="Testreihe")

L <- auswert(Dateien) ### alle Dateien