EcoHydRology (version 0.4.12.1)

get_cfsr_latlon: This is a funciton to grab daily summaries of the CFSR from the drfuka.org service

Description

This is a funciton to grab daily summaries of the CFSR from the drfuka.org service

Usage

get_cfsr_latlon(declat, declon, emailaddr, timeoff = 0, interppow = 2)

Arguments

declat

declon

emailaddr

timeoff

interppow

Examples

# NOT RUN {
hist_wx=get_cfsr_latlon(45,-72,"[e-mail]",timeoff=0,interppow=2)
plot(hist_wx$TMX)

# }
# NOT RUN {
## The function is currently defined as
function (declat, declon, emailaddr, timeoff = 0, interppow = 2) 
{
    library(XML)
    options(timeout = 120)
    url = paste("http://www.cfsr.tamu-cornell.drfuka.org/swat-cfsr-v02.pl?lat=", 
        declat, "&lon=", declon, "&timeoff=", timeoff, "&interppow=", 
        interppow, "&.submit=Submit", sep = "")
    hist_wx = readHTMLTable(url, which = 1, header = T, colClasses = c("character", 
        "numeric", "numeric", "numeric", "numeric", "numeric", 
        "numeric", "numeric", "numeric"))
    hist_wx$DATE = as.Date(hist_wx$DATE, format = "%Y-%m-%d")
    return(hist_wx)
  }
# }