Skip to content

Instantly share code, notes, and snippets.

View ScientificProgrammer's full-sized avatar

Eric Milgram ScientificProgrammer

  • Applied Scientific Consulting
  • Crestview, Florida, USA
View GitHub Profile
@tylermorganwall
tylermorganwall / humanity_globe.R
Created August 17, 2021 14:37
3D Humanity Globe
library(rayshader)
library(rayrender)
popdata = raster::raster("gpw_v4_population_density_rev11_2020_15_min.tif")
population_mat = rayshader:::flipud(raster_to_matrix(popdata))
above1 = population_mat > 1
above5 = population_mat > 5
above10 = population_mat > 10
@jwalanta
jwalanta / OpenWrt detect new device and send text message.md
Last active July 2, 2024 18:37
Detect new network devices connecting to OpenWrt and send text message
convolution <- function(A, B) {
# Computes the convolution of two vectors.
#
# Args:
# A, B: column vectors representing polynomial coefficients.
#
# Returns:
# The coefficient vector resulting from multiplying the polynomial
# represented by A by the polynomial represented by B.
Ap <- c(A, B*0)