Michael Dorman michaeldorman
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(sf) | |
| library(osmdata) | |
| location = "Tel-Aviv, Israel" | |
| # Get data | |
| q = opq(bbox = location) | |
| dat = add_osm_feature(q, key = "highway") | |
| dat = osmdata_sf(dat) | |
| lines = dat$osm_lines |
michaeldorman
/ coord_sf_lim.R
Created
May 7, 2020 16:41
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(sf) | |
| library(ggplot2) | |
| # Data | |
| nc = st_read(system.file("shape/nc.shp", package="sf")) | |
| map = nc | |
| dat = nc[5, ] | |
| # Plot 1 | |
| ggplot() + |
michaeldorman
/ packages_proportion.R
Last active
April 25, 2020 09:12
Calculate top 15 commonly used R packages given a directory with R scripts
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Directory with R scripts | |
| setwd("~/Sync/BGU") | |
| # Prepare data | |
| files = list.files(pattern = "\\.R$", recursive = TRUE) | |
| dat = lapply(files, readLines) | |
| dat = lapply(dat, function(x) x[grepl("library\\(", x)]) | |
| dat = lapply(dat, function(x) gsub(".*library\\(", "", x)) | |
| dat = lapply(dat, function(x) gsub("\\).*", "", x)) | |
| dat = lapply(dat, function(x) gsub('"', '', x)) |
michaeldorman
/ map.geojson
Created
February 3, 2020 09:09
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
michaeldorman
/ index.html
Last active
November 18, 2016 14:26
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <!DOCTYPE html> | |
| <html> | |
| <head> | |
| <title>Simple Leaflet Map</title> | |
| <meta charset="utf-8" /> | |
| <link | |
| rel="stylesheet" | |
| href="http://cdn.leafletjs.com/leaflet-0.7/leaflet.css" | |
| /> | |
| </head> |
michaeldorman
/ loocv_lm.R
Last active
January 17, 2016 22:18
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| loocv = function(formula, data) { | |
| pred = rep(NA, nrow(data)) | |
| for(i in 1:nrow(data)) { | |
| fit = lm(formula = formula, data = data[-i, ]) | |
| pred[i] = predict(fit, data[i, ]) | |
| } |
michaeldorman
/ IMS_Map.R
Last active
August 29, 2015 14:14
R script to create and publish interpolated temperature map of Israel
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ############################################################### | |
| # Code to publish interpolated temperature map # | |
| # based on current observations from the # | |
| # Israel Meteorological Service (IMS) website # | |
| # Author: Michael Dorman # | |
| ############################################################### | |
| library(XML) | |
| library(httr) | |
| library(plyr) |
NewerOlder