Skip to content

Instantly share code, notes, and snippets.

View djhurio's full-sized avatar

Mārtiņš Liberts djhurio

View GitHub Profile
https://github.com/valinet/ExplorerPatcher
https://www.autohotkey.com/
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn ; Enable warnings to assist with detecting common errors.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
^!Insert::Send {Media_Play_Pause}
@djhurio
djhurio / piemers
Created March 29, 2021 10:32
Piemērs datu importam no Oficiālās statistikas portāla, izmantojot API un R pakotni 'pxweb'
# Piemērs CSP datu importam ar pxweb
# Vairāk lasīt:
# https://htmlpreview.github.io/?https://github.com/rOpenGov/pxweb/blob/test/vignettes/pxweb.html
library(pxweb)
# API URL
px_url <- "https://data.stat.gov.lv/api/v1/lv/OSP_PUB/START/VEK/IK/IKP/IKP020"
# Metadati
@djhurio
djhurio / code.R
Created December 6, 2020 19:09
Deaths by week
# Deaths by week
options("max.print" = 1e4)
library(eurostat)
library(data.table)
library(ggplot2)
library(ISOcodes)
cntry <- as.data.table(ISO_3166_1)
# n: Nodarbināto skaits uzņēmumā
# v: Vietējo vienību skaits uzņēmumā
# n <- 5
# v <- 3
rm(list = ls())
gc()
gen.all.matrix <- function(n, v) {
@djhurio
djhurio / a
Created August 13, 2017 20:31
Easy binary triangle
1
1 0 1
0 0 1 0 0
@djhurio
djhurio / test.R
Last active August 12, 2017 17:21
Test cases for code golf challenge "Disappearing Elements" for R
# https://codegolf.stackexchange.com/questions/138570/disappearing-elements
f=function(S,X)Reduce(`[`,-X-1,S,,T)
f(el(strsplit("codegolf", "")), c(1, 4, 4, 0, 2))
f(el(strsplit("abc", "")), 0)
f(el(strsplit("abc", "")), vector("integer"))
@djhurio
djhurio / SB2017-Pokaini-Buks
Created July 30, 2017 14:12
Grafiski attēlots ātrāko skrējēju laiks kontrolpunktos
# Stirnu buks
# 2017
# Pokaiņi
# Distance: Buks
require(rvest)
require(data.table)
require(ggplot2)
@djhurio
djhurio / LU-aps-stat-prakt-5.R
Created December 6, 2016 06:18
Mate5054 - Apsekojumu statistika (2KP). Piektais praktiskais darbs
### Apsekojumu statistika
### Praktiskie darbi 5
### Precizitātes novērtēšana
# Bibliotekas ####
require(data.table)
require(sampling)
require(foreach)
require(ggplot2)
@djhurio
djhurio / LU-aps-stat-prakt-4.R
Last active November 22, 2016 15:45
Mate5054 - Apsekojumu statistika (2KP). Ceturtais praktiskais darbs
### Apsekojumu statistika
### Praktiskie darbi 4
# Bibliotekas ####
require(data.table)
require(sampling)
require(foreach)
require(ggplot2)
require(tools)
@djhurio
djhurio / LU-aps-stat-prakt-3.R
Last active November 1, 2016 05:56
Mate5054 - Apsekojumu statistika (2KP). Trešais praktiskais darbs
### Apsekojumu statistika
### Praktiskie darbi 3
# Bibliotekas ####
# Bibliotēku instalācija, ja nepieciešams
# install.packages(c("Rcpp", "BalacedSampling", "sampling"))
require(data.table)
require(sampling)