grupEin=matrix(c(50000,1,40000,1,45000,1,43000,1,60200,1,55000,1,47000,1,58000,1,42000,2,38000,2,50100,2,52000,2,48000,2,37000,2,25000,2,37500,2,41000,2,41000,3,39000,3,36000,3,43500,3,38000,3,37500,3,28000,3,50100,4,51000,4,38000,4,49000,4,45000,4,55000,4,
42000,4,48000,4,53000,4,48000,4), ncol=2,byrow=T)
grupEin=as.data.frame(grupEin) 
names(grupEin)=c("Einkommen","Region") #head(grupEin)



##################################################################################

ES=matrix(c(2,500,3,850,1,400,1,150,2,550,3,1500,2,750,1,700,3,1200,2,450,1,360,3,1100,3,1250,3,1050,1,800,1,550,1,200,2,800,1,600,2,720,2,500,
            3,1300,2,750,3,800,2,670,1,250,2,680,3,750,3,990,1,350,3,1700,2,770,1,300,3,950,3,1030), 
          ncol=2, byrow=T)
ES=as.data.frame(ES)
names(ES)=c("Egruppe","AusgabenS")