AgeMatters/models.R at master · hestiri/AgeMatters · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
# list of models
#Building formulas
Model1 <- as.formula("BTUTOT.sqrt~age05+age05to09+age10to14+age15to19+age20to24+age25to29+
                     age30to34+age35to39+age40to44+age45to49+age50to54+age55to59+
                     age60to64+age65to69+age70to74+age75to79+age80p"
)
Model2 <- as.formula("BTUTOT.sqrt~age05+age05to09+age10to14+age15to19+age20to24+age25to29+
                     age30to34+age35to39+age40to44+age45to49+age50to54+age55to59+
                     age60to64+age65to69+age70to74+age75to79+age80p+
                     HDD65+CDD65"
)
Model3 <- as.formula("BTUTOT.sqrt~age05+age05to09+age10to14+age15to19+age20to24+age25to29+
                     age30to34+age35to39+age40to44+age45to49+age50to54+age55to59+
                     age60to64+age65to69+age70to74+age75to79+age80p+
                     HDD65+CDD65+
                     inc10"
)


Model4 <- as.formula("BTUTOT.sqrt~age05+age05to09+age10to14+age15to19+age20to24+age25to29+
                     age30to34+age35to39+age40to44+age45to49+age50to54+age55to59+
                     age60to64+age65to69+age70to74+age75to79+age80p+
                     HDD65+CDD65+
                     TYPEHUQ"
)

Model5 <- as.formula("BTUTOT.sqrt~age05+age05to09+age10to14+age15to19+age20to24+age25to29+
                     age30to34+age35to39+age40to44+age45to49+age50to54+age55to59+
                     age60to64+age65to69+age70to74+age75to79+age80p+
                     HDD65+CDD65+
                     YEARMADE10"
                     )

Model6 <- as.formula("BTUTOT.sqrt~age05+age05to09+age10to14+age15to19+age20to24+age25to29+
                     age30to34+age35to39+age40to44+age45to49+age50to54+age55to59+
                     age60to64+age65to69+age70to74+age75to79+age80p+
                     HDD65+CDD65+
                     HOMEAREA.sqrt"
)

Model7 <- as.formula("BTUTOT.sqrt~age05+age05to09+age10to14+age15to19+age20to24+age25to29+
                     age30to34+age35to39+age40to44+age45to49+age50to54+age55to59+
                     age60to64+age65to69+age70to74+age75to79+age80p+
                     HDD65+CDD65+
                     inc10+
                     HOMEAREA.sqrt"
)

Model8 <- as.formula("BTUTOT.sqrt~age05+age05to09+age10to14+age15to19+age20to24+age25to29+
                     age30to34+age35to39+age40to44+age45to49+age50to54+age55to59+
                     age60to64+age65to69+age70to74+age75to79+age80p+
                     HDD65+CDD65+
                     inc10+
                     TYPEHUQ+HOMEAREA.sqrt+YEARMADE10"
)