Pakillo

https://stackoverflow.com/a/58679929

See also 

http://latex-beamer-class.10966.n7.nabble.com/Hiding-frames-td907.html

https://tex.stackexchange.com/questions/200151/remove-frame-from-presentation

https://tex.stackexchange.com/questions/200151/remove-frame-from-presentation

Pakillo

diverge0 <- function(p, ramp) {
  # p: a trellis object resulting from rasterVis::levelplot
  # ramp: the name of an RColorBrewer palette (as character), a character 
  #       vector of colour names to interpolate, or a colorRampPalette.
  require(RColorBrewer)
  require(rasterVis)
  if(length(ramp)==1 && is.character(ramp) && ramp %in% 
     row.names(brewer.pal.info)) {
    ramp <- suppressWarnings(colorRampPalette(brewer.pal(11, ramp)))
  } else if(length(ramp) > 1 && is.character(ramp) && all(ramp %in% colors())) {

Pakillo

## Working with Sentinel-2 bands in R


# Crear proyecto de RStudio


## Cargar paquetes necesarios

library(raster)

Pakillo

## Working with Sentinel-2 bands in R


## Primeros pasos

# - Crear proyecto de RStudio
#
# - Guardar capas (ZIP) en la misma carpeta

Pakillo

library(ggplot2)
library(cowplot)
library(latex2exp)


#### PALEOTEMPERATURES ####

## Data from Hansen: http://www.columbia.edu/~jeh1/mailings/2012/20120508_ClimateSensitivity.pdf
## Available here: http://www.columbia.edu/~mhs119/Sensitivity+SL+CO2/Table.txt

Pakillo

library(sf)
library(ggspatial)
library(ggthemes)

coast <- rnaturalearth::ne_coastline(scale = "small", returnclass = "sp")

forests <- st_read("data/forestmap/cfc_gen.shp")
forest.redux <- rmapshaper::ms_simplify(forests)
forest.redux.sp <- as(forest.redux, "Spatial")

Pakillo

Precipitation: Worldclim vs Iberian Climatic Atlas

Francisco Rodriguez-Sanchez 2017-05-16

library(knitr)
opts_chunk$set(cache = TRUE, message = FALSE)
library(raster)

Pakillo

## from: https://logfc.wordpress.com/2017/03/15/adding-figure-labels-a-b-c-in-the-top-left-corner-of-the-plotting-region/

fig_label <- function(text, region="figure", pos="topleft", cex=NULL, ...) {
 
  region <- match.arg(region, c("figure", "plot", "device"))
  pos <- match.arg(pos, c("topleft", "top", "topright", 
                          "left", "center", "right", 
                          "bottomleft", "bottom", "bottomright"))
 
  if(region %in% c("figure", "device")) {

Pakillo

`simulate.gamm` <- function(object, nsim = 1, seed = NULL, newdata,
                            freq = FALSE, unconditional = FALSE, ...) {
    if (!exists(".Random.seed", envir = .GlobalEnv, inherits = FALSE))
        runif(1)
    if (is.null(seed))
        RNGstate <- get(".Random.seed", envir = .GlobalEnv)
    else {
        R.seed <- get(".Random.seed", envir = .GlobalEnv)
        set.seed(seed)
        RNGstate <- structure(seed, kind = as.list(RNGkind()))

Pakillo

https://github.com/brentthorne/posterdown

https://github.com/rstudio/pagedown

https://github.com/GerkeLab/betterposter

https://github.com/pzhaonet/postr

https://github.com/odeleongt/postr