| #### --------------------------------------------- | |
| ## Edit via: RStudio > Tools > Edit Code Snippets | |
| # Released under a MIT license | |
| snippet fragment | |
| [${1:text}]{.${2:type}} | |
| snippet aside | |
| [${1:text}]{.aside} | |
| library(tidyverse) | |
| color_palette <- thematic::okabe_ito(8) | |
| flights <- nycflights13::flights | |
| counts <- flights %>% | |
| mutate( | |
| date = lubridate::make_date(year = year, month = month, day = day) | |
| ) %>% | |
| count(date) %>% | |
| mutate( |
| library(sf) | |
| library(terra) | |
| ## Define area | |
| coords <- data.frame(x = c(-5.5, -5.5, -5.3, -5.3), | |
| y = c(36.7, 36.8, 36.7, 36.8)) | |
| coords.sf <- st_as_sf(coords, coords = c("x", "y"), crs = 4326) | |
| ## Download elevation data |
| 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 |
| library(deSolve) | |
| library(rayrender) | |
| parameters = c(a = 0.2, b = 4, c = 8, d = 1) | |
| state = c(X = 1, Y = 0, Z = 1) | |
| Lorenz = function(t, state, parameters) { | |
| with(as.list(c(state, parameters)), { | |
| dX = -Y^2 - Z^2 - a*X + a*c | |
| dY = X * Y - b * X * Z - Y + d | |
| dZ = b * X * Y + X * Z - Z |
| library(arrow) | |
| library(tidyverse) | |
| library(tictoc) | |
| # create a parent directory | |
| dir.create("nflfastr") | |
| # create function for partition directories and download parquet files | |
| get_data <- function(year){ | |
| dir.create(file.path("nflfastr", year)) |
| library(tidyverse) | |
| # Download Fira Sans Condensed from | |
| # https://fonts.google.com/specimen/Fira+Sans+Condensed | |
| high_mean <- 12 | |
| high_sd <- 4 | |
| flat_mean <- 35 | |
| flat_sd <- 12 |
People
 :bowtie: |
😄 :smile: |
😆 :laughing: |
|---|---|---|
😊 :blush: |
😃 :smiley: |
:relaxed: |
😏 :smirk: |
😍 :heart_eyes: |
😘 :kissing_heart: |
😚 :kissing_closed_eyes: |
😳 :flushed: |
😌 :relieved: |
😆 :satisfied: |
😁 :grin: |
😉 :wink: |
😜 :stuck_out_tongue_winking_eye: |
😝 :stuck_out_tongue_closed_eyes: |
😀 :grinning: |
😗 :kissing: |
😙 :kissing_smiling_eyes: |
😛 :stuck_out_tongue: |