subset.prettyUsgs: Subset prettyUsgs objects.

In NCAR/rwrfhydro: R tools for the WRF Hydro Model

Description

subset.prettyUsgs subsets prettyUsgs objects and retains their attributes.

Usage

## S3 method for class 'prettyUsgs'
subset(prettyUsgs, ...)

Arguments

prettyUsgs	A dataframe of class c("prettyUsgs", "data.frame") returned from PrettyUsgs
...	additional arguments to subset.data.frame

Value

A dataframe of class c("prettyUsgs", "data.frame") # See vignette "Collect USGS stream observations and build a local database" for examples.

See Also

Other streamObs: FindUsgsStns, GetSiteHuc, GetUsgsHucData, GetUsgsIvProduct, ImproveHucMeta, LoadMetaDB, PlotPrettyUsgs, PrettyUsgs, QueryHaveSite, QuerySiteData, QuerySiteInfo, QuerySiteName, QuerySiteProd, SaveHucData, [.prettyUsgs

Examples

## Not run: 
dbPath <- '~/wrfHydroTestCases/usgsDb/'
threeSites <- QuerySiteInfo(path = dbPath, info = c("site_no"))[1:3,]$site_no
obs <- PrettyUsgs(QueryHaveSite(threeSites, path=dbPath, ret='00060', get=TRUE))
length(unique(obs$site_no))
df0 <- subset(obs,site_no==threeSites[1])
length(unique(df0$site_no))
ggplot2::ggplot(obs, ggplot2::aes(x=value,color=site_no)) + 
  ggplot2::geom_density() + ggplot2::scale_x_continuous(limits=c(0,7))
df1 <- subset(obs,value < 2)
length(unique(df1$site_no))
length(attr(df1,'siteInfo')$site_no)
plyr::ddply(obs, plyr::.(site_no), plyr::summarize, max=max(value))
df2 <- subset(obs,value > 9)
length(unique(df2$site_no))
length(attr(df2,'siteInfo')$site_no)

## End(Not run)

NCAR/rwrfhydro documentation built on Feb. 28, 2021, 12:47 p.m.