es <- function(temp_dC) {
   temp_dC
   es<-6.11*10^((7.48*temp_dC/(237+temp_dC)))
   Einheit <- "hPa"
   res <- data.frame(es,Einheit)
   return(res)
}
res <- es(15)
res
esv <- res[1]
esu <- res[2]
esv
esu