library(HITHATStats)
sos_url="http://waterservices.usgs.gov/nwis/dv/?format=rdb,1.0&sites="
offering='00003'
property='00060'
drainage_url="http://waterservices.usgs.gov/nwis/site/?siteOutput=Expanded&site="
startdate<-"1900-01-01"
enddate<-"2012-10-01"
sites="01463500"
drain_url<-paste(drainage_url,sites,sep="")
drain_area<-getDrainageArea(drain_url)
url2<-paste(sos_url,sites,'&startDT=',startdate,'&endDT=',enddate,'&statCd=',offering,'¶meterCd=',property,'&access=3',sep='')
x_obs <- retrieveNWISData(url2)
obs_data <- get_obsdata(x_obs)
ma1(obs_data)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.