Skip to content

Instantly share code, notes, and snippets.

Avatar

Gergely Daróczi daroczig

View GitHub Profile
View exercise.R
## 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 Dec 3, 2019
Hungarian - German words tester
View nemet.R
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 Oct 7, 2019
Create or update a local MRAN snapshot for a list of packages
View create-local-MRAN-snapshot.R
#!/usr/bin/env r
library(miniCRAN)
library(data.table)
library(pander)
library(logger)
library(magrittr)
library(docopt)
## #############################################################################
@daroczig
daroczig / matek.R
Last active Nov 10, 2019
Math exercises for a 8 yrs old in Hungarian language
View matek.R
## 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 Apr 11, 2019
Visual Methods to Teach Multivariate Statistics with R (at) Challenges and Innovations in Statistics Education (Szeged, Hungary)
View szeged-2017-workshop.R
## intro slides: http://bit.ly/r-intro-slide
## basic operations
1 + 3
3*2
3^2
## constants
pi
"pi"
View iris demo.Rmd
---
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 Nov 19, 2018
BCE // Vállalati Pénzügyi Információs Rendszerek // 2018
View BCE-MDDA-2018.R
## #############################################################################
## 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 Nov 11, 2018
Argos script to print currently tracked tasked from Time ++ https://github.com/zagortenay333/timepp__gnome/issues/80
View print-tracked-tasks.py
#!/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 Nov 3, 2018
Code presented at the R workshop of the Crunch 2018 conference: http://crunchconf.com
View Crunch-2018-R-workshop.R
## #############################################################################
## intro slides: http://bit.ly/CRUNCH-R-2018
## #############################################################################
## intro to R
## basic operations
1 + 3
3 * 2
@daroczig
daroczig / exercises.R
Last active Apr 5, 2018
data.table joins
View exercises.R
## generate transactional tables
set.seed(42)
library(data.table)
tx <- data.table(
item = sample(letters[1:3], 10, replace = TRUE),
time = as.POSIXct(as.Date('2016-01-01')) - runif(10) * 36*60^2,
amount = rpois(10, 25))
prices <- data.table(
item = letters[1:3],
date = as.Date('2016-01-01') - 1:2,