Skip to content

Instantly share code, notes, and snippets.

View SimonCoulombe's full-sized avatar

Simon Coulombe SimonCoulombe

40 followers · 8 following
View GitHub Profile
@SimonCoulombe
SimonCoulombe / original.gpx
Created January 29, 2020 03:30
<?xml version="1.0"?>
<gpx version="1.1" creator="pgirbric">
<trk>
<name>pouet.gpx</name>
<trkseg>
<trkpt lat="45.5069" lon="-73.57748">
<ele></ele>
</trkpt>
<trkpt lat="45.50692" lon="-73.57751">
<ele></ele>
@SimonCoulombe
SimonCoulombe / fst_wakefield.R
Last active January 18, 2020 04:59
library(tidyverse)
library(microbenchmark)
library(wakefield)
simulated_df <- r_data_frame(
n=10000000,
id,
r_series(race, 30, name = "myfactor" ),
r_series(dob, 30, name = "date"),
r_series(iq, 30, name = "double")
@SimonCoulombe
SimonCoulombe / tidymodels_tidypredict_sql.R
Created August 26, 2019 15:41
# titanic data wrangling from https://rstudio-pubs-static.s3.amazonaws.com/324727_11ac0b6dbc77464da7b9de8c0f347463.html
# IMPORTANT: Only objectives 'binary:logistic', 'reg:linear', 'reg:logistic', 'binary:logitraw' are supported yet.
library(titanic) # data
library(tidypredict) # convert model to sql string
library(dummies)
library(dplyr)
library(dbplyr)
@SimonCoulombe
SimonCoulombe / cant_detect_water.R
Created June 18, 2019 00:49
cant detect water
require(tidyverse)
ex.df <- data.frame(x=seq(from= -70.5813 , to= -70.36120, length.out=100),
y=seq(from= 47.80355 , to= 47.96210, length.out=100))
elev_raster <- elevatr::get_elev_raster(
ex.df,
prj = "+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs",
z = 10,
clip = "bbox")
@SimonCoulombe
SimonCoulombe / kud3d_shark.R
Created June 16, 2019 00:19
plot shark telemetry on lake
#plot shark telemetry in lake
# https://rdrr.io/github/vinayudyawer/KUD3D/f/README.md
sapply(c("ks",
"rgl",
"raster",
"tidyverse",
"lubridate",
"sf",
"rayshader",
@SimonCoulombe
SimonCoulombe / mlr_xgboost.R
Created April 25, 2019 14:32
#ça c'est mon programme où j'essaie de modifier le package mlr pour qu'il prenne base_margin
# comme option
library(xgboost)
library(insuranceData) # example dataset https://cran.r-project.org/web/packages/insuranceData/insuranceData.pdf
library(tidyverse)
#install.packages("mlr")
library(mlr)
set.seed(1234)
data(dataCar)
@SimonCoulombe
SimonCoulombe / raster_global_human_settlement.R
Created April 25, 2019 14:31
#idée : https://pudding.cool/2018/12/3d-cities-story/index.html
# how to https://docs.google.com/document/d/1Us_1QBHShdMe8-laKhGh_mjkXxOw-74-9mxJAx_DvKE/edit
# GHS population grid 2015 aux 250m téléchargé ici
#https://ghslsys.jrc.ec.europa.eu/datasets.php#2016public
# alternative à 100m vs 100 m ,world pop , mais pas canada :A http://www.worldpop.org.uk/data/get_data/
# comment importer un raster- https://geocompr.robinlovelace.net/read-write.html
@SimonCoulombe
SimonCoulombe / rayshader_malbaie.R
Created January 28, 2019 16:51
# rayshader.com
#sudo apt-get install libfftw3-dev libtiff5-dev
#sudo apt-get install libcairo2-dev
#sudo apt-get install libglu1-mesa-dev freeglut3-dev mesa-common-dev
# install.packages("tiff")
# sudo R , install.packages("rgl")
#devtools::install_github("tylermorganwall/rayshader")
@SimonCoulombe
SimonCoulombe / get_blob_data.R
Created January 17, 2019 16:57
system("bash src/get_blob_data.sh")
@SimonCoulombe
SimonCoulombe / rtweet.R
Created October 31, 2018 14:29
## install rtweet from CRAN
install.packages("rtweet")
## load rtweet package
library(rtweet)
create_token(
app = "my_twitter_research_app",
consumer_key = Sys.getenv("twitter_consumer_key"),
consumer_secret = Sys.getenv("twitter_consumer_secret"),
access_token = Sys.getenv("twitter_access_token"),