Skip to content

Instantly share code, notes, and snippets.

View daroczig's full-sized avatar

Gergely Daróczi daroczig

View GitHub Profile
@daroczig
daroczig / demo.R
Last active January 26, 2022 22:28
Read and render shapefiles in R
## Download some shapefiles
download.file(
'https://biogeo.ucdavis.edu/data/diva/adm/HUN_adm.zip',
'Hungary_shapefile.zip')
unzip('Hungary_shapefile.zip')
## Look around what we have
library(rgdal)
ogrInfo('.')
## load data
df <- read.csv('http://bit.ly/CEU-R-numbers')
## analyze the association between x and y
summary(df)
cor(df)
## ..
## visualize the association between x and y
plot(df)
@daroczig
daroczig / nemet.R
Created December 3, 2019 16:40
Hungarian - German words tester
library(googlesheets)
library(logger)
library(crayon)
suppressPackageStartupMessages(library(data.table))
logpath <- '/tmp'
logpath <- getwd()
logfile <- file.path(logpath, paste0(as.integer(Sys.time()), '.log'))
log_appender(appender_file(logfile))
log_threshold(TRACE)
@daroczig
daroczig / create-local-MRAN-snapshot.R
Created October 7, 2019 06:12
Create or update a local MRAN snapshot for a list of packages
#!/usr/bin/env r
library(miniCRAN)
library(data.table)
library(pander)
library(logger)
library(magrittr)
library(docopt)
## #############################################################################
@daroczig
daroczig / matek.R
Last active November 10, 2019 13:52
Math exercises for a 8 yrs old in Hungarian language
## TODO R package
## TODO internation via yaml that also provides the list of languages for the UI
## TODO cli --ui hu --control en --number 1:20 ...
library(logger)
library(crayon)
library(reticulate)
num2words <- import('num2words')
## rich-iannone/UnidecodeR
@daroczig
daroczig / szeged-2017-workshop.R
Created April 11, 2019 11:40
Visual Methods to Teach Multivariate Statistics with R (at) Challenges and Innovations in Statistics Education (Szeged, Hungary)
## intro slides: http://bit.ly/r-intro-slide
## basic operations
1 + 3
3*2
3^2
## constants
pi
"pi"
---
title: "Iris teszt elemzés"
author: "Gergely"
date: "`r Sys.time()`"
output: html_document
---
Hello, markdown! Ez egy egyszerű szöveges dokumentum,
a szöveget a markdown jelölőnyelv segítségével tudunk formázni.
@daroczig
daroczig / BCE-MDDA-2018.R
Created November 19, 2018 09:07
BCE // Vállalati Pénzügyi Információs Rendszerek // 2018
## #############################################################################
## PCA demo on image processing
## #############################################################################
download.file('http://bit.ly/nasa-image-pca', 'image.jpg') # mode = »bw«
library(jpeg)
img <- readJPEG('image.jpg')
str(img)
@daroczig
daroczig / print-tracked-tasks.py
Last active November 11, 2018 22:19
Argos script to print currently tracked tasked from Time ++ https://github.com/zagortenay333/timepp__gnome/issues/80
#!/usr/bin/env python
import dbus, dbus.exceptions
import sys
import re
try:
bus = dbus.SessionBus()
timetracker = bus.get_object('org.gnome.Shell', '/timepp/zagortenay333/TimeTracker')
except dbus.exceptions.DBusException as e:
@daroczig
daroczig / Crunch-2018-R-workshop.R
Created November 3, 2018 23:34
Code presented at the R workshop of the Crunch 2018 conference: http://crunchconf.com
## #############################################################################
## intro slides: http://bit.ly/CRUNCH-R-2018
## #############################################################################
## intro to R
## basic operations
1 + 3
3 * 2