remove(list=ls())
set.seed(23514)

indat <- read.csv(file="./wasserstand_10026301.csv",header=F,sep=";",dec=",",skip=11,col.names=c("Datum","Mittel","Max","Min","Status"))

#konvertiere Daten 
wasserdaten <- as.Date(indat[,1],format="%Y-%m-%d")
wasserdaten <- as.POSIXlt(wasserdaten)
#unlist(unclass(wasserdaten))

#jetzt Matrix mit Daten anlegen
#Spalten: Jahr, Monat, Tag, Mittel, Max, Min
#wasserstand <- matrix(NA,nrow=dim(indat)[1],ncol=6)
wasserstand <- cbind(wasserdaten$year+1900, wasserdaten$mon+1,wasserdaten$mday,indat[,2:4])
names(wasserstand) <- c("Jahr","Monat","Tag","Mittel","Max","Min")

write.table(wasserstand,file="./wasserstand.dat",row.names=F)