oscarperpinan

library(solaR)
library(raster)

## Replace it with your data file(s) with global radiation on the
## horizontal plane
SIS <- brick('/home/datos/CMSAF/CMSAF_2010_2011_SISdm/SISd2010.grd')
## This line is only needed to make this example faster. You don't
## need in your code.
SIStoy <- crop(SIS, extent(-0.2, 0.2, 39.8, 40.2))
names(SIStoy) <- paste0('d', 1:365)

oscarperpinan

Áreas de Gobierno

Organigrama

Presidenta

Manuela Carmena

Primera Teniente de Alcalde y titular del Área de Gobierno de Equidad, Derechos Sociales y Empleo

Marta Higueras Garrobo

Segundo Teniente de Alcalde y titular del Área de Gobierno de Coordinación Territorial y Asociaciones

Ignacio Murgui Parra Segundo

oscarperpinan

### DATA SECTION

library(data.table)

## Read data with 'data.table::fread'
input <- fread("wu03ew_v1.csv", select = 1:3)
setnames(input, 1:3, new = c("origin", "destination","total"))
## Coordinates
centroids <- fread("msoa_popweightedcentroids.csv")
## 'Code' is the key to be used in the joins

oscarperpinan

library(sp)
## Grabar tabla excel en formato CSV usando ; como separador
## Leemos saltando dos primeras líneas
pts <- read.csv2('/tmp/listado-longitud-latitud-municipios-espana.csv', skip = 2)
## Transformamos a SPDF usando columnas de longitud-latitud como coordenadas
munPts <- SpatialPointsDataFrame(pts[, c(5, 4)], pts[,-c(4, 5)],
                                 proj4string = CRS('+proj=longlat +datum=WGS84'))
## Pintamos el resultado para comprobar
spplot(munPts["Altitud"])

oscarperpinan

library(raster)
library(rasterVis)
library(zoo)

## Download SPEI file
setwd(tempdir())
download.file('https://digital.csic.es/bitstream/10261/104742/5/SPEI_03.nc', 'SPEI_03.nc', method = 'wget')

## Read it with `raster`
SPEI <- brick('SPEI_03.nc')

oscarperpinan

## Ejemplo para leer netCDF con R
library(raster)
library(zoo)

## Coodinates of point (lat,lon)
latitude=37
longitude=-2
z=500
## lon ranges from 0 to 360, so correction for convention of lon <0
if (longitude < 0) longitude <- longitude + 360

oscarperpinan

library(raster)
library(zoo)

## Indice temporal completo
tt <- seq(as.Date('2015-01-01'), as.Date('2015-12-31'), by = 'month')
tt <- as.yearmon(tt)

## Datos disponibles: indice temporal incompleto
tt1 <- tt[-c(5, 8, 9)]
f <- system.file("external/test.grd", package="raster")

oscarperpinan

library(zoo)
library(rasterVis)

## DESCRIPTION: http://iridl.ldeo.columbia.edu/SOURCES/.CAC/.sst/
setwd(tempdir())
download.file('http://iridl.ldeo.columbia.edu/SOURCES/.CAC/.sst/data.nc', destfile = 'SST.nc')
SST <- stack('SST.nc')
idx <- seq(as.Date('1970-01-01'), as.Date('2003-03-01'), by='month')
tt <- as.yearmon(idx)
SST <- setZ(SST, tt)

oscarperpinan

\section{Code blocks}
\label{sec-1}
\label{sec:sectionA}

Code is enclosed within \texttt{\#+begin\_src/\#+end\_src}
\href{http://orgmode.org/manual/Structure-of-code-blocks.html}{blocks}. 
\lstset{language=R,numbers=none}
\begin{lstlisting}
x <- 1:10
y <- 1:10

oscarperpinan

\documentclass[smallroyalvopaper]{memoir}
\settypeblocksize{6.5in}{4.5in}{*}
\setlrmargins{*}{*}{1}
\checkandfixthelayout

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Misc packages
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\usepackage[english]{babel}
\usepackage[usenames,dvipsnames]{xcolor}