Skip to content

Instantly share code, notes, and snippets.

library(tidyverse)
library(gutenbergr)
constitution_raw <- gutenberg_download(5)
constitution <- constitution_raw |>
slice(36:546) |>
filter(text != "") |>
mutate(text_lc = str_to_lower(text)) |>
mutate(is_article = str_starts(text_lc, "article")) |>
@skkzsh
skkzsh / alert.org
Last active November 19, 2024 16:59
org-mode syntax

Note

Note

Tip

Tip

@dceddia
dceddia / bench.sh
Created November 15, 2024 18:30
Language benchmarks
#!/bin/bash
# Function to measure execution time
measure_time() {
start_time=$(date +%s.%N)
"$@"
end_time=$(date +%s.%N)
execution_time=$(echo "$end_time - $start_time" | bc)
echo "Execution time: $execution_time seconds"
}
library(magick)
library(lofifonts) # remotes::install_github('coolbutuseless/lofifonts')
library(purrr)
bitmap_text_coords("Hello", font = 'unifont') |>
head()
text <- glue::glue("It is a period of civil war.
Rebel spaceships, striking
from a hidden base, have won
@natzir
natzir / fuzzy-booster-by-natzir-mlforseo.ipynb
Created October 10, 2024 08:13
Fuzzy Booster by Natzir - MLforSEO
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
#' @export
new_schedule_builder <- function() {
builder <- list(
sec = "0",
min = "0",
hour = "0",
dom = "*",
month = "*",
dow = "*",
year = "*"
``` r
A <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12), nrow = 3, ncol = 4)
B <- matrix(c(13, 14, 15, 16, 17, 18, 19, 20), nrow = 4, ncol = 2)
dot_product <- function(x, y) {
mapply(\(x, y) sum(x * y), x, y)
}
rows_of <- function(m) purrr::array_tree(m, 1)
cols_of <- function(m) purrr::array_tree(m, 2)
@krlmlr
krlmlr / check_installed.R
Created October 23, 2023 04:03
Demo for rlang::check_installed()
my_fun <- function() {
rlang::local_interactive()
rlang::check_installed(c("DiagrammeR (>= 1.0.9)", "DiagrammeRsvg"))
stopifnot(requireNamespace("DiagrammeR", quietly = TRUE))
stopifnot(requireNamespace("DiagrammeRsvg", quietly = TRUE))
}
my_fun()
#> ℹ The packages "DiagrammeR" (>= 1.0.9) and "DiagrammeRsvg" are required.
#> ✖ Would you like to install them?
@mikemahoney218
mikemahoney218 / stack_rasters.R
Created July 28, 2023 17:43
Combine multiple multi-band rasters into a single VRT
stack_rasters <- function(rasters,
raster_path,
...,
reference_layer = 1,
resampling_method = "bilinear") {
check_type_and_length(
reference_layer = integer(1)
)
@primus852
primus852 / cuda_11.7_installation_on_Ubuntu_22.04
Last active February 10, 2025 12:11 — forked from Mahedi-61/cuda_11.8_installation_on_Ubuntu_22.04
Instructions for CUDA v11.7 and cuDNN 8.5 installation on Ubuntu 22.04 for PyTorch 1.12.1
#!/bin/bash
### steps ####
# verify the system has a cuda-capable gpu
# download and install the nvidia cuda toolkit and cudnn
# setup environmental variables
# verify the installation
###
### to verify your gpu is cuda enable check