# NOT RUN {
data(dfISO7730AppE)
head(dfISO7730AppE)
PMV <- sapply(seq(nrow(dfISO7730AppE)), function(x) { calcPMV(dfISO7730AppE$top[x],
dfISO7730AppE$top[x], dfISO7730AppE$vel[x], dfISO7730AppE$rh[x], dfISO7730AppE$clo[x],
dfISO7730AppE$met[x]) } )
plot(PMV~dfISO7730AppE$pmv)
# }
Run the code above in your browser using DataLab