Nothing
#' @title Adjusted Predicted Mean Votes with Expectancy Factor
#' @description Function to calculate Predicted Mean Votes (PMV) adjusted by the expectancy factor.
#' @aliases ePMV
#' @aliases epmv
#' @usage calcePMV(ta, tr, vel, rh, clo = 0.5, met = 1, wme = 0, epCoeff)
#' @usage ePMV(ta, tr, vel, rh, clo = 0.5, met = 1, wme = 0, epCoeff)
#' @usage epmv(ta, tr, vel, rh, clo = 0.5, met = 1, wme = 0, epCoeff)
#' @param ta a numeric value presenting air temperature in [degree C]
#' @param tr a numeric value presenting mean radiant temperature in [degree C]
#' @param vel a numeric value presenting air velocity in [m/s]
#' @param rh a numeric value presenting relative humidity [\%]
#' @param clo a numeric value presenting clothing insulation level in [clo]
#' @param met a numeric value presenting metabolic rate in [met]
#' @param wme a numeric value presenting external work in [met]
#' @param epCoeff expectancy factor e
#' @details \code{epCoeff} can be derived using \code{calcepCoeff}.
#' @details \code{calcePMV} requires the actual sensation vote related to the physical data as it is required to alter the metabolic rate.
#' @returns \code{calcePMV} returns the predicted mean vote adjusted by the expectancy factor.
#' @examples
#' ## Note. Due to random generated asv values. The values for the coefficients will not be meaningful.
#' ## Create sample data
#' ta <- 20:24 # vector with air temperature values
#' tr <- ta # vector with radiant temperature values
#' vel <- rep(.1,5) # vector with air velocities
#' rh <- rep(50,5) # vector with relative humidity values
#' clo <- rep(1.0,5) # vector with clo values
#' met <- rep(1.1,5) # vector with metabolic rates
#' asv <- rnorm(5) # vector with actual sensation votes
#' lsCond <- as.list(data.frame(ta,tr,vel,rh,clo,met,asv))
#' ## Calculate coefficient epCoeff for data set
#' epCoeff <- calcepCoeff(lsCond)
#' ## calculate epmv
#' epmv <- NULL
#' for (i in 1:length(ta)){
#' epmv[i] <- calcePMV(ta[i], tr[i], vel[i], rh[i], clo[i], met[i], epCoeff = epCoeff)$epmv}
#' epmv
#' @author Code implemented in to R by Marcel Schweiker. Further contribution by Sophia Mueller and Shoaib Sarwar.
#' @note In case one of \code{epCoeff} is not given, a standard value will be taken from a list (see \code{\link{createCond}} for details.
#' @seealso \code{\link{calcComfInd}}, \code{\link{calcepCoeff}}
#' @references epmv is based on Fanger & Toftum (2002) <doi:10.1016/S0378-7788(02)00003-8>
#' @export
calcePMV <- function(ta, tr, vel, rh, clo = .5, met = 1, wme = 0, epCoeff){
pmv <- as.numeric(calcPMVPPD(ta, tr, vel, rh, clo, met, wme)[1])
met <- ifelse (pmv > 0, met * (1 + pmv * (-.067)), met)
pmv <- calcPMVPPD(ta, tr, vel, rh, clo, met, wme)[1]
epmv <- epCoeff * pmv
names(epmv) <- "epmv"
data.frame(epmv = epmv)
}
ePMV <- calcePMV
epmv <- calcePMV
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.