tem <- tem # the raster stack with 12 different layers
    max_t <- for (i in 1:nlayers(tem)) {
    e <- calc(tem[[i]], function(x){min(x, na.rm = T)})

   }