cvitolo

Keybase proof

I hereby claim:

• I am cvitolo on github.
• I am claudia_vitolo (https://keybase.io/claudia_vitolo) on keybase.
• I have a public key ASBl1kkRS8y3i2xPVxG9mLP6lsdL4FZY_szXjy8IELGxsQo

To claim this, I am signing this object:

cvitolo

# devtools::install_github("lepennec/ggwordcloud")
library(ggwordcloud)
library(dplyr)
library(colorspace)

data("thankyou_words")

thankyou_words <- thankyou_words %>%
  mutate(angle = 45 * sample(-2:2, n(), replace = TRUE,
                             prob = c(1, 1, 4, 1, 1)))

cvitolo

---
title: "Big Data analytics using the rnrfa package"
author: "Claudia Vitolo"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, 
                      message = FALSE,
                      cache = FALSE,

cvitolo

---
title: "NRFA stations in EU-NUTS1 regions"
author: "Claudia Vitolo"
date: "13 March 2016"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, 
                      message = FALSE,

cvitolo

---
title: "RNRFA application for dynamic mapping and reporting"
author: "Claudia Vitolo"
runtime: shiny
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, 
                      message=FALSE,

cvitolo

---
title: "RNRFA: an R package to interact with the UK National River Flow Archive"
author: "Claudia Vitolo"
date: "18 November 2015"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(cache=TRUE)
```

cvitolo

#' This function generates parameter sets for FUSE (Clark et al., 2008).
#'
#' @param NumberOfRuns number of samples to generate, can be any integer
#' @param SamplingType sampling procedure to use, can be "URS" or "LHS"
#' @param rferr_add range of the additive rainfall error (mm), default is c(0,0)
#' @param rferr_mlt range of the multiplicative rainfall error (-), default is c(1,1)
#' @param maxwatr_1 range of the depth of the upper soil layer (mm), default is c(25,500)
#' @param maxwatr_2 range of the depth of the lower soil layer (mm), default is c(50,5000)
#' @param fracten range of the fraction total storage in tension storage (-), default is c(0.05,0.95)
#' @param frchzne range of the fraction tension storage in recharge zone (-), default is c(0.05,0.95)

cvitolo

#' This function returns information on model structure components and parameters used, given FUSE model.
#'
#' @param mid FUSE model structure ID number (integer from 1 to 1248).
#' @number default is TRUE (returns the model options numbers, if FALSE it returns model options names)
#'
#' @examples
#' # FUSEinfo(mid=60)
#'

FUSEinfo <- function(mid, number=TRUE) {

cvitolo

# Load library
library(xts)

# Generate dummy time series
from <- as.Date("1950-01-01")
to <- as.Date("1990-12-31")
myDates <- seq.Date(from=from,to=to,by="day")
myTS <- as.xts(runif(length(myDates)),order.by=myDates)

# SPLIT THE TIME SERIES INTO CALENDAR YEARS

cvitolo

#' Generate map of gauging stations.
#'
#' @author Claudia Vitolo <[email protected]>
#'
#' @description This function takes as input a table of UK NRFA stations (output of getStationSummary() function) and generates a map using leaflet javascript library. 
#'
#' @param selectedStationSummary This is the data.frame containing at least a column called "gridReference" (in which OS Grid references are stored) with 1 row for each station. Alternatively the table could contain 2 columns called "Latitude" and "Longitude" containing the coordinates of stations in WGS84, with 1 row for each station.
#'
#' @return displays a map 
#'