# NOT RUN {
data(eurotempforecast)
d.silverman <- DressEnsemble(ens)
d.akd <- DressEnsemble(ens, dressing.method="akd",
parameters=list(r1=0, r2=0, a=1,
s1=0, s2=0))
d.akd.fit <- DressEnsemble(ens, dressing.method="akd.fit",
parameters=list(obs=obs))
# }
Run the code above in your browser using DataLab