#Vorlesung "Statistische Methoden" #================================= #Kapitel 2.4 #=========== # #Indexzahlen bei einem Merkmal #============================= # #load(.../Index.rda) #Änderungen von Periode 0 auf Periode 1 bei Merkmal Bier #======================================================= #(Beginn der Indizierung in R ist immer 1. Somit hat Periode 0 den Index 1) # #Preisänderung Bier Index$BierPreis[2]/Index$BierPreis[1] # #Mengenänderung Bier Index$BierMenge[2]/Index$BierMenge[1] # #Umsatzänderung Bier unten<-Index[1,1]*Index[1,2] oben<-Index[2,1]*Index[2,2] oben/unten # # #Preisindezes bei mehreren Merkmalen #=================================== # #Wertindizes #=========== #W01 unten<-prod(Index[1,1:2])+prod(Index[1,3:4]) oben<-prod(Index[2,1:2])+prod(Index[2,3:4]) W01<-oben/unten # #W12 unten<-prod(Index[2,1:2])+prod(Index[2,3:4]) oben<-prod(Index[3,1:2])+prod(Index[3,3:4]) W12<-oben/unten # # #Preisindizes Laspeyres #====================== # #PL01 unten<-prod(Index[1,1:2])+prod(Index[1,3:4]) oben<-Index[2,2]*Index[1,1]+Index[2,4]*Index[1,3] PL01<-oben/unten # #PL12 unten<-prod(Index[2,1:2])+prod(Index[2,3:4]) oben<-Index[3,2]*Index[2,1]+Index[3,4]*Index[2,3] PL12<-oben/unten # # #Preisindizes Paasche #==================== # #PP01 unten<-Index[1,2]*Index[2,1]+Index[1,4]*Index[2,3] oben<-prod(Index[2,1:2])+prod(Index[2,3:4]) PP01<-oben/unten # #PP12 unten<-Index[2,2]*Index[3,1]+Index[2,4]*Index[3,3] oben<-prod(Index[3,1:2])+prod(Index[3,3:4]) PP12<-oben/unten # # #Mengenindizes Laspeyres #======================= # #QL01 unten<-prod(Index[1,1:2])+prod(Index[1,3:4]) oben<-Index[1,2]*Index[2,1]+Index[1,4]*Index[2,3] QL01<-oben/unten # #QL12 unten<-prod(Index[2,1:2])+prod(Index[2,3:4]) oben<-Index[2,2]*Index[3,1]+Index[2,4]*Index[3,3] QL12<-oben/unten # # #Mengenindizes Paasche #===================== # #QP01 unten<-Index[2,2]*Index[1,1]+Index[2,4]*Index[1,3] oben<-prod(Index[2,1:2])+prod(Index[2,3:4]) QP01<-oben/unten # #QP12 unten<-Index[3,2]*Index[2,1]+Index[3,4]*Index[2,3] oben<-prod(Index[3,1:2])+prod(Index[3,3:4]) QP12<-oben/unten # # #Verkettung #========== # W02<-W01*W12 PL02<-PL01*PL12 QL02<-QL01*QL12 # # ###