Skip to content

Instantly share code, notes, and snippets.

@dieghernan
dieghernan / ht-index.md
Last active March 15, 2020 11:42
Head / tails 1.0 - rendered reprex
rm(list = ls())


initrun <- Sys.time()
#Implementation of head/tails 1.0


#1. Characterization of heavy-tail distributions----
set.seed(1234)
@dieghernan
dieghernan / ht-index.R
Last active March 15, 2020 11:41
Head / tails 1.0 - R script
rm(list = ls())
initrun <- Sys.time()
#Implementation of head/tails 1.0
#1. Characterization of heavy-tail distributions----
set.seed(1234)
#Pareto distribution a=2 b=6 n=1000
/* cran Theme
*
* Based on https://cran.r-project.org/
* Copyright 2020, All rights reserved
*
* Code licensed under the MIT license
*
* @author Diego H <https://github.com/dieghernan/>
*/
@dieghernan
dieghernan / input.scss
Created December 12, 2020 01:42
Generated by SassMeister.com.
$primary: teal !default;
$white: mix(#fff, $primary, 95%) !default;
$gray-100: mix(#f8f9fa, $primary, 85%) !default;
$gray-200: mix(#e9ecef, $primary, 85%) !default;
$gray-300: mix(#dee2e6, $primary, 85%) !default;
$gray-400: mix(#ced4da, $primary, 85%) !default;
$gray-500: mix(#adb5bd, $primary, 85%) !default;
$gray-600: mix(#6c757d, $primary, 85%) !default;
$gray-700: mix(#495057, $primary, 85%) !default;
$gray-800: mix(#343a40, $primary, 85%) !default;
@dieghernan
dieghernan / input.scss
Last active December 12, 2020 01:43
Generated by SassMeister.com.
$primary: teal !default;
$white: mix(#fff, $primary, 95%) !default;
$gray-100: mix(#f8f9fa, $primary, 85%) !default;
$gray-200: mix(#e9ecef, $primary, 85%) !default;
$gray-300: mix(#dee2e6, $primary, 85%) !default;
$gray-400: mix(#ced4da, $primary, 85%) !default;
$gray-500: mix(#adb5bd, $primary, 85%) !default;
$gray-600: mix(#6c757d, $primary, 85%) !default;
$gray-700: mix(#495057, $primary, 85%) !default;
$gray-800: mix(#343a40, $primary, 85%) !default;
# Setup----
library(rtweet)
source("~/R/Projects/environment_vars.R") # secrets
api_key <- Sys.getenv("TWITTER_API_KEY")
api_secret_key <- Sys.getenv("TWITTER_API_SECRET")
access_token <- Sys.getenv("TWITTER_ACCESS_TOKEN")
access_token_secret <- Sys.getenv("TWITTER_ACCESS_TOKEN_SECRET")
@dieghernan
dieghernan / input.scss
Created September 7, 2021 19:36
Generated by SassMeister.com.
.ca {
color: red;
}
@dieghernan
dieghernan / munic_con_costa_df.csv
Last active March 9, 2022 17:07
Extraer municipios con costa en España
codauto ine.ccaa.name cpro ine.prov.name cmun name LAU_CODE
01 Andalucía 04 Almería 003 Adra 04003
01 Andalucía 04 Almería 013 Almería 04013
01 Andalucía 04 Almería 032 Carboneras 04032
01 Andalucía 04 Almería 035 Cuevas del Almanzora 04035
01 Andalucía 04 Almería 041 Enix 04041
01 Andalucía 04 Almería 049 Garrucha 04049
01 Andalucía 04 Almería 064 Mojácar 04064
01 Andalucía 04 Almería 066 Níjar 04066
01 Andalucía 04 Almería 075 Pulpí 04075
library(ggplot2)
library(sf)
download.file(paste0("https://inspire.navarra.es/services/CP/wfs?",
"&request=Getfeature",
"&typenames=CP:CadastralParcel",
"&SRSname=EPSG:25830",
"&bbox=609758.580940066,4740059.01117674,611758.580940066,4742059.01117674"),
"cp.gml")
We can't make this file beautiful and searchable because it's too large.
date,lat_bin,lon_bin,flag,geartype,vessel_hours,fishing_hours,mmsi_present
2015-12-11,-1024,1288,AGO,trawlers,0.3041666666666667,0.3041666666666667,1
2015-12-11,-1024,1289,AGO,trawlers,0.30708333333333337,0.30708333333333337,1
2015-12-11,-1023,1289,AGO,trawlers,0.32777777777777778,0.32777777777777778,1
2015-12-11,-1022,1288,AGO,trawlers,5.2265277777777781,5.2265277777777781,1
2015-12-11,-1021,1288,AGO,trawlers,1.6055555555555556,1.6055555555555556,1
2015-12-11,-1018,1287,AGO,trawlers,4.8891666666666662,4.8891666666666662,1
2015-12-11,-505,270,AGO,purse_seines,3.4811111111111113,0,1
2015-12-11,-1013,1285,AGO,trawlers,1.5944444444444443,1.5944444444444443,1
2015-12-11,-1011,1285,AGO,trawlers,0.38083333333333336,0.38083333333333336,1