comf (version 0.1.7)

dfISO7730TableD1: Adjusted data from Table D1 of ISO 7730

Description

Callibration data for PMV / PPD model (used for calculation of PMVadj) from ISO 7730 Table D1

Usage

data(dfISO7730TableD1)

Format

A data frame with 13 rows on the following 8 variables.

ta

a numeric vector of air temperature [degree C]

tr

a numeric vector of radiant temperature [degree C]

vel

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

rh

a numeric vector of relative humidity [%]

met

a numeric vector of metabolic rate [MET]

clo

a numeric vector of clothing insulation level [CLO]

pmv

a numeric vector of Predicted mean vote (PMV)

ppd

a numeric vector of Predicted percentage dissatisfied (PPD)

References

ISO 7730 Ergonomics of the thermal environment analytical determination and interpretation of thermal comfort using calculation of the pmv and ppd indices and local thermal comfort criteria 2005.

Examples

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

PMV <- sapply(seq(nrow(dfISO7730TableD1)), function(x) { calcPMV(dfISO7730TableD1$ta[x], 
dfISO7730TableD1$tr[x], dfISO7730TableD1$vel[x], dfISO7730TableD1$rh[x], dfISO7730TableD1$clo[x], 
dfISO7730TableD1$met[x]) } ) 

PPD <- sapply(seq(nrow(dfISO7730TableD1)), function(x) { calcPPD(dfISO7730TableD1$ta[x], 
dfISO7730TableD1$tr[x], dfISO7730TableD1$vel[x], dfISO7730TableD1$rh[x], dfISO7730TableD1$clo[x], 
dfISO7730TableD1$met[x]) } ) 

plot(PMV~dfISO7730TableD1$pmv)
data.frame(pmv=dfISO7730TableD1$pmv, PMV)

plot(PPD~dfISO7730TableD1$ppd)
data.frame(ppd=dfISO7730TableD1$ppd, PPD)

# }