comf (version 0.1.7)

calcPMVPPD: Calculating PMV and PPD

Description

Functions to calculates PMV and/or PPD indices according to Fanger.

Usage

calcPMVPPD(ta, tr, vel, rh, clo = 0.5, met = 1, wme = 0, basMet = 58.15)
calcPMV(ta, tr, vel, rh, clo = 0.5, met = 1, wme = 0, basMet = 58.15)
calcPPD(ta, tr, vel, rh, clo = 0.5, met = 1, wme = 0, basMet = 58.15)

Arguments

ta

a numeric value presenting air temperature in [degree C]

tr

a numeric value presenting mean radiant temperature in [degree C]

vel

a numeric value presenting air velocity in [m/s]

rh

a numeric value presenting relative humidity [%]

clo

a numeric value presenting clothing insulation level in [clo]

met

a numeric value presenting metabolic rate in [met]

wme

a numeric value presenting external work in [met]

basMet

a numeric value presenting basal metabolic rate [w/m2]

Value

calcPMVPPD returns a data.frame with the following items:

pmv

Predicted mean vote

ppd

Predicted percentage dissatisfied

calcPMV and calcPPD return a single value of PMV or PPD.

Details

All variables must have the same length 1. For the calculation of several values use function calcComfInd or a loop. Note that the adjustments in the value for basMet need to be made with great cautiousness as the PMV calculation is an empirical model and might not be valid for other values of basMet than the one commonly used.

References

Fanger, P. O. Thermal Comfort Analysis and Applications in Environmental Engineering McGraw-Hill, New York, 1970.

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.

See Also

see also calcComfInd

Examples

# NOT RUN {
## Calculating PMV and PPD
calcPMVPPD(25, 20, .2, 50)

## Using several rows of data:
ta <- c(20,22,24)
tr <- ta
vel <- rep(.15,3)
rh <- rep(50,3)

maxLength <- max(sapply(list(ta, tr, vel, rh), length))
PMV <- sapply(seq(maxLength), function(x) { calcPMV(ta[x], tr[x], vel[x], rh[x]) } ) 
# }