Skip to content

Instantly share code, notes, and snippets.

Maarten Hermans mhermans

Block or report user

Report or block mhermans

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View gist:bdb1b9f973e994048de3dbbe9fb2a66d
library(sf)
library(mapview)
library(tmap)
library(dplyr)
bodemkaart <- st_read('/home/rstudio/var/data/20170710_bodemkaart_2_0_download/shape/20170710_bodemkaart_2_0.shp')
#mapview(bodemkaart) => laat te traag
bebouwing <- bodemkaart %>%
filter(Type == 'bebouwde zones')
mapview(bebouwing)
@mhermans
mhermans / upython_daan.md
Last active Apr 4, 2020
Linkdump micropython / ciruitpython voor daan
View upython_daan.md
@mhermans
mhermans / ess_w9_wealth_inequality_fair.md
Last active Nov 3, 2019
Rating of (un)fairness of level of wealth inequality (ESS W9)
View ess_w9_wealth_inequality_fair.md

ESS W9 (2018): "In your opinion, are differences in wealth in [country] unfairly small, fair, or unfairly large?"

   cntry fair  unfairly_large unfairly_small
 1 SI    8%    81%            11%           
 2 AT    14%   75%            11%           
 3 HU    8%    75%            17%           
 4 IT    6%    75%            19%           
 5 CY    9%    75%            16%           
 6 RS    5%    74%            22%           
 7 EE    12%   71%            17%           
@mhermans
mhermans / zotero_debian_notes.md
Last active Oct 30, 2019
zotero installation debian
View zotero_debian_notes.md
@mhermans
mhermans / rayrender_hiva.r
Last active Oct 11, 2019
generate R rayrender scene with HIVA logo
View rayrender_hiva.r
devtools::install_github('tylermorganwall/rayrender')
library(rayrender)
# generate rayrender scene with HIVA logo
generate_ground(depth=-1000, spheresize = 100000000, material = diffuse(color="#529fd3")) %>%
# H
add_object(cube(x = 0, y = 0, z = -600,
xwidth = 50, ywidth = 400, zwidth = 50, angle = c(0, 0, 0),
material = diffuse())) %>%
View gist:30281e9ec88faa0542b931b0699347eb
https://github.com/Zendaug/Mplus-Tools
https://github.com/istellar/LCA2xl
https://github.com/danielbkatz/MplusLCA/
https://github.com/martscht/MplusComparisons
https://github.com/anchorlytics/anchorMplus
https://github.com/danielbkatz/MPlus-LCA-auto
https://github.com/paul-buerkner/thurstonianIRT
https://www.tandfonline.com/doi/abs/10.1080/13645579.2019.1632026?journalCode=tsrm20
@mhermans
mhermans / brother_dcp7070dw_config
Created Jun 20, 2019
Brother DCP7070DW configuration on Debian Linux
View brother_dcp7070dw_config
apt-get install brscan4
brsaneconfig4 -q
Devices on network
0 DCP-7070DW "DCP-7070DW" I:192.168.1.102
brsaneconfig4 -a name=brother model=DCP-7070DW ip=192.168.1.102
brscan-skey -l
View gist:4e1e09b21b0fe6d9ceae50f80dab7ed9
library(eurostat)
eu_nuts0 <- eurostat::get_eurostat_geospatial(resolution = "60", nuts_level = "0")
ggplot(eu_nuts0) + geom_sf()
qtm(eu_nuts0)
ggplot(eu_nuts0, aes(fill = id)) +
geom_sf() +
coord_sf(xlim = c(2500000, 6000000), ylim =c(1500000, 5300000), crs = 3035)
@mhermans
mhermans / snippet_trend_generate_smooth.r
Created Jun 3, 2017
R snippet: generate exaple trend data and fit loess smooth
View snippet_trend_generate_smooth.r
library(dplyr)
library(ggplot2)
set.seed(1234)
d.trend <- data.frame(
year = seq(as.Date("1911/1/1"), as.Date("2010/1/1"), "years"),
female = seq(1,100)*runif(100,0,1),
male = seq(1,100)*runif(100,0,1))
d.trend$total = d.trend$male + d.trend$female
You can’t perform that action at this time.