ISUW programmer præsenteret ved forelæsningerne.

---------------------------------------------------------------------------
READ.ISU
(indlæsning af data fra 06-1-1.txt)

del
var uge PrisGev PrisKar PrisMer PrisDiv SalgGev SalgKar SalgMer SalgDiv 122
open 06-1-1.txt
skipline
read uge PrisGev PrisKar PrisMer PrisDiv SalgGev SalgKar SalgMer SalgDiv *
lpg=ln(PrisGev)
lpm=ln(PrisMer)
lpk=ln(PrisKar)
lpd=ln(PrisDiv)
lsg=ln(SalgGev)
lsm=ln(SalgMer)
lsk=ln(SalgKar)
lsd=ln(SalgDiv)
save data122 uge lpg lpm lpk lpd lsg lsm lsk lsd
---------------------------------------------------------------------------
TRANSF.ISU
(transformation til datasæt af længde 488)

del
get data122
del uge

fac uge 488 122
fac brand 488 4
var logsalg logpris 488

transfer lpg 1 122 logpris 1 122
transfer lpm 1 122 logpris 123 244
transfer lpk 1 122 logpris 245 366
transfer lpd 1 122 logpris 367 488
transfer lsg 1 122 logsalg 1 122
transfer lsm 1 122 logsalg 123 244
transfer lsk 1 122 logsalg 245 366
transfer lsd 1 122 logsalg 367 488
gen uge 1
gen brand 122

% Til udvidet model:
logpg=lpg(uge)*(brand<>1)
logpm=lpm(uge)*(brand<>2)
logpk=lpk(uge)*(brand<>3)
logpd=lpd(uge)*(brand<>4)

save data488 logpris logsalg uge brand logpg logpm logpk logpd

% Til illustration:
del
get data488
exclude (uge>2)*(uge<121)
list
show
---------------------------------------------------------------------------
REGR.ISU
(indledende regressionsanalyser)

del
get data488

fitlin logsalg=uge+brand+brand*(logpg+logpm+logpk+logpd)
listp

fitlin logsalg=uge+brand+brand*logpris
test
% OBS: Fejl i artikel.

fitlin logsalg=uge+brand+logpris
test

show

---------------------------------------------------------------------------
REGR1.ISU
(analyser på reduceret datasæt af længde 366)

del
get data488
exclude brand=4
ren brand bbb
fac brand 488 3
brand=bbb
del bbb
save data366

del
get data366

fitlin logsalg=uge+brand+brand*(logpg+logpm+logpk)
listp

fitlin logsalg=uge+brand+brand*logpris
test

fitlin logsalg=uge+brand+brand*(logpris+logpd)

fitlin logsalg=uge+brand+brand*logpris
fitlin logsalg=uge+brand+logpris
test

fitlin logsalg=uge+brand+brand*logpris
listp

show

---------------------------------------------------------------------------
LAG.ISU
(tilføjelse af laggede log(priser) som forklarende variabel)

del
get data366
var logpris1 366
exclude uge=1
logpris1=logpris(#-1)
save data366l logpris logpris1 logsalg uge brand

%Check
exclude (uge>4)*(uge<120)
l uge brand logpris logpris1

del
get data366l

fitlin logsalg=uge+brand+brand*logpris+logpris1+brand*logpris1

show