##Einlesen der Daten
lamps<-read.table("LAMPS.DAT")
##Erzeugen von Daten für Histogramm
#Müssen gemäß Haüfigkeit in Klassen wiederholt werden um Urliste zu erstellen
#Definiere Klassen durch rechte Grenzen
klassengrenzen<-seq(1000,2100,50)
lampen_ur<-rep(klassengrenzen,lamps[,2])
##Histogramm
hist(lampen_ur,breaks=seq(950,2100,50),include.lowest=T)