In databrew/saint: SAINT

# Basic knitr options
library(knitr)
opts_chunk$set(comment = NA, 
               # echo = FALSE, 
               warning = FALSE, 
               message = FALSE, 
               error = TRUE, 
               cache = FALSE,
               fig.width = 9.64,
               fig.height = 5.9,
               fig.path = 'figures/')
options(scipen=999)

## Load libraries
library(bohemia)
library(ggplot2)
library(lubridate)
library(dplyr)
library(ggplot2)
library(sp)
library(raster)
library(ggthemes)
library(sf)
library(RColorBrewer)
library(readr)
library(tidyr)
library(leaflet)
library(rgeos)
# options(scipen = '999')
theme_set(databrew::theme_simple())

saint <- read_csv('SAINTPERU_results.csv')
saint2 <- read_csv('SAINTPERU2_results.csv')

joined <- bind_rows(
  saint %>% mutate(form = 'Saint'),
  saint2 %>% mutate(form = 'Saint2')
)
write_csv(joined, 'saintperu.csv')

databrew/saint documentation built on May 13, 2021, 10:56 a.m.