comf (version 0.1.7)

dfASHRAETableG11: Data from Table G1-1 of ASHRAE 55-2013

Description

Callibration data for SET model (used for calculation of PMVadj) from ASHRAE 55-2013 Table G1-1

Usage

data(dfASHRAETableG11)

Format

A data frame with 22 rows on the following 11 variables.

ta

a numeric vector of air temperature [degree C]

taF

a numeric vector of air temperature [degree F]

tr

a numeric vector of radiant temperature [degree C]

trF

a numeric vector of radiant temperature [degree F]

vel

a numeric vector of indoor air velocity [m/s]

velFPM

a numeric vector of indoor air velocity [fpm]

rh

a numeric vector of relative humidity [%]

met

a numeric vector of metabolic rate [MET]

clo

a numeric vector of clothing insulation level [CLO]

set

a numeric vector of standard effective temperature (SET) [degree C]

setF

a numeric vector of standard effective temperature (SET) [degree F]

References

ASHRAE standard 55-2013. Thermal environmental conditions for human occupancy. American society of heating, Refrigerating and Air-Conditioning Engineering, Atlanta, Usa, 2013

Examples

# NOT RUN {
data(dfASHRAETableG11)
head(dfASHRAETableG11)

# using option obj="pmvadj" in order to compare with ASHRAE Table G1-1
SET <- sapply(seq(nrow(dfASHRAETableG11)), function(x) { calcSET(dfASHRAETableG11$ta[x], 
dfASHRAETableG11$tr[x], dfASHRAETableG11$vel[x], dfASHRAETableG11$rh[x], dfASHRAETableG11$clo[x], 
dfASHRAETableG11$met[x], obj="pmvadj") } ) 
plot(SET~dfASHRAETableG11$set)
data.frame(set=dfASHRAETableG11$set, SET)

# using option obj="set" (standard) in order to calculate values for original SET values
SET2 <- sapply(seq(nrow(dfASHRAETableG11)), function(x) { calcSET(dfASHRAETableG11$ta[x], 
dfASHRAETableG11$tr[x], dfASHRAETableG11$vel[x], dfASHRAETableG11$rh[x], dfASHRAETableG11$clo[x], 
dfASHRAETableG11$met[x], ) } ) 
plot(SET2~dfASHRAETableG11$set)
data.frame(set=dfASHRAETableG11$set, SET2)

# }