Skip to content

Instantly share code, notes, and snippets.

View BERENZ's full-sized avatar

Maciej Beręsewicz BERENZ

View GitHub Profile
{
"error": null,
"data": {
"_id": 85816722,
"type": "ELECTIONS-LOCAL-PROVINCE",
"title": "Wyniki",
"image": null,
"image_logo": null,
"image_different": null,
"show_more": null,
{
"error": null,
"data": {
"_id": 85815311,
"type": "ELECTIONS-LOCAL-DEMOGRAPHIC-FREQUENCY",
"title": "DANE DEMOGRAFICZNE",
"image": null,
"image_logo": null,
"image_different": null,
"show_more": null,
{
"error": null,
"data": {
"_id": 85815263,
"type": "ELECTIONS-LOCAL-PROVINCE-FREQUENCY",
"title": "Województwa",
"image": null,
"image_logo": null,
"image_different": null,
"show_more": null,
{
"error": null,
"data": {
"_id": 85815311,
"type": "ELECTIONS-LOCAL-DEMOGRAPHIC-FREQUENCY",
"title": "DANE DEMOGRAFICZNE",
"image": null,
"image_logo": null,
"image_different": null,
"show_more": null,
{
"error": null,
"data": {
"_id": 85816722,
"type": "ELECTIONS-LOCAL-PROVINCE",
"title": "Wyniki",
"image": null,
"image_logo": null,
"image_different": null,
"show_more": null,
{
"0": {
"name": "Polska",
"candidates": [
{
"support": 30.8,
"key": "TRZASKOWSKI"
},
{
"support": 29.1,
library(rvest)
library(stringr)
library(data.table)
library(writexl)
noc <- read_html("https://nocmuzeow.poznan.pl")
noc |>
html_nodes("div[id='muzeum']") |>
html_nodes("li > a") |>
#html_nodes("a") |>
@BERENZ
BERENZ / weightit-examples.R
Last active August 21, 2024 16:17
weightit examples about coverage
## packages
library(WeightIt)
library(mvnfast)
library(marginaleffects)
######## ATE
## function taken from the paper Sant'Anna, P. H., Song, X., & Xu, Q. (2022). Covariate distribution balance via propensity scores. Journal of Applied Econometrics, 37(6), 1093-1120.
## in particular from here: http://qed.econ.queensu.ca/jae/datasets/santanna001/
cbps_sim_data <- function(n, dgp, scale.ps = 1, y_nonlin = FALSE){
@BERENZ
BERENZ / misclass-example.R
Created June 21, 2024 07:19
An example code for the misclassification and misclassGLM
library("misclassGLM")
library("data.table")
library("simex")
## population definition
set.seed(2024)
N <- 100000
pop_data <- data.table(age = sample(c("Young", "Middle-aged", "Old"), size = N, c(0.40, 0.35, 0.25), replace = T),
ethnic = sample(c("Native", "Nonnative"), size = N, prob = c(0.85, 0.15), replace = T))
@BERENZ
BERENZ / example-code-hnsw-rnn.R
Created May 5, 2024 20:16
RcppHNSW vs rnndescent
library(RcppHNSW)
library(rnndescent)
library(tokenizers)
library(text2vec)
library(igraph)
## read and process data
census <- read.csv("https://raw.githubusercontent.com/djvanderlaan/tutorial-reclin-uros2021/main/data/census.csv")
cis <- read.csv("https://raw.githubusercontent.com/djvanderlaan/tutorial-reclin-uros2021/main/data/cis.csv")