Skip to content

Instantly share code, notes, and snippets.

View oscarperpinan's full-sized avatar

Oscar Perpiñán Lamigueiro oscarperpinan

View GitHub Profile
@oscarperpinan
oscarperpinan / mappingFlows.R
Created April 14, 2015 05:24
An alternative implementation of "Mapping Flows in R" (http://spatial.ly/2015/03/mapping-flows/) using `data.table` and `lattice`
### 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
oscarperpinan / ayMadrid.org
Last active August 29, 2015 14:23
Ayuntamiento de Madrid
@oscarperpinan
oscarperpinan / solarSpatial.R
Last active August 31, 2015 07:31
solaR and raster to compute monthly averages of solar radiation
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)
library(sp)
library(raster)
library(rgdal)
library(maptools)
library(gstat)
library(lattice)
library(latticeExtra)
library(rasterVis)
library(parallel)
library(solaR)
@oscarperpinan
oscarperpinan / inset.R
Created August 30, 2016 07:24
Inset graphics with rasterVis and grid
library(raster)
library(rasterVis)
library(grid)
r <- raster(system.file("external/test.grd", package="raster"))
## Main graphic
p1 <- levelplot(r)
## Inset graphic
p2 <- levelplot(r,
margin = FALSE,
@oscarperpinan
oscarperpinan / code_without_ggplot2.R
Last active December 20, 2019 10:43
beautiful-thematic-maps: alternative code without using ggplot2
## https://timogrossenbacher.ch/2016/12/beautiful-thematic-maps-with-ggplot2-only/
library(raster)
library(sp)
library(rgdal)
library(viridisLite)
library(rasterVis)
## Read age data
data <- read.csv("input/avg_age_15.csv", stringsAsFactors = F)
## Read shapefile
@oscarperpinan
oscarperpinan / q103_tema2.c
Last active February 12, 2017 22:40
Programación en C :: Tema 2 (Q103)
/* Hello World! */
#include <stdio.h>
void main()
{
printf("Hello World!\n");
}
/* Hello World! (2) */
@oscarperpinan
oscarperpinan / q103_tema3.c
Last active March 1, 2017 22:52
Sentencias de Control en C
/* Ejemplo =if= */
# include <stdio.h>
int main ()
{
int n;
printf("Escribe un número entero\n");
scanf("%d", &n);
if (n % 2 == 0) // Condición
@oscarperpinan
oscarperpinan / q103_tema6.c
Created March 6, 2017 06:15
Funciones en C
/* Prototipo de una función: */
/* 1. Tipo de valor que devuelve (=int=, =void=, ...) */
/* 2. Nombre de la función (debe ser un identificador válido y *útil*). */
/* 3. Lista de argumentos que emplea, por tipo y nombre (puede estar vacía). */
int main() {
tipo nombre_funcion(tipo1 arg1, tipo2 arg2, ...);
return 0;
}
@oscarperpinan
oscarperpinan / q103_tema4.c
Last active September 22, 2021 13:00
Tipos de datos avanzados en C
/* Código */
int main() {
tipo identificador[dimensión];
return 0;
}
/* Ejemplos */
int main() {