cvitolo

#' Download and convert TRMM data
#' 
#' @author Claudia Vitolo
#' 
#' @description The TRMM dataset provide global historical rainfall estimation in a gridded format.  
#' 
#' @param fileLocation file path where to save the GeoTiff
#' @param url url where data is stored (e.g. "ftp://disc2.nascom.nasa.gov/data/TRMM/Gridded/3B43_V7/2012/")
#' @param product this is the code that identifies a product, default is "3B43"
#' @param version this is the version number, default is 7

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

### testRHydro.R ###
# Load library
library(RHydro)

# Load data
data(modlist)
data(mopex)

# Calculate instantaneous runoff
Qinst <- fusesma.sim (fuse.DATA,mid=5,modlist,deltim=1,

cvitolo

# Step A: install RHydro

if(!require(RHydro)) install.packages("RHydro",repos="http://R-Forge.R-project.org")
 

# Step B: prepare your data

library(RHydro)

temp <- read.csv("dummyData.csv")

cvitolo

if(!require(RHydro)) install.packages("RHydro",repos="http://R-Forge.R-project.org")

library(RHydro)
temp <- read.csv("dummyData.csv") 
DATA <- zooreg(temp[,2:4], order.by=temp[,1])
myDELTIM <- 1
myMID <- 60

# Sample parameter space using the Latin Hypercube Sampling method

cvitolo

if(!require(RHydro)) install.packages("RHydro",repos="http://R-Forge.R-project.org")

library(RHydro)

temp <- read.csv("dummyData.csv") 

DATA <- zooreg(temp[,2:4], order.by=temp[,1])

myDELTIM <- 1