#' @title RV Summary
#' @author Mark Otto (FWS)
#'
#' @description This summarizes the quantiles of an RV output.
#' @param Names Input series names
#' @param Lat Data series
#' @param probs quantiles to be summarized
#' @export
RVSmry<-function(Names,Series,probs=c(0.5,0.05,0.95)){
Smry<-data.frame(
Mean=as.vector(rvmean(Series)),SD=as.vector(rvsd(Series)),
# rvquantile(Series,probs=probs),
matrix(rvquantile(Series,probs=probs),ncol=length(probs)),
row.names=rownames(Names)
)
colnames(Smry)[2+1:length(probs)]<-paste("CI",format(100*probs),sep="")
return(data.frame(Names,Smry))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.