Nothing
#' @export
#'
Tground<-function(Ta=20, SE=100){
# Empirical relationship of measured Tg vs. SE allow for a Delta T (Tg - T) to be
# estimated.
# Bartlett et al's results claiming a slope of 0.0121
# Compare to my own empirical measurements with a slope of 0.0187127
Tground<-0.0121*SE+Ta
#names(Tground)<-"Tground"
Tground
}
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.