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) |
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) |
View create-local-MRAN-snapshot.R
#!/usr/bin/env r | |
library(miniCRAN) | |
library(data.table) | |
library(pander) | |
library(logger) | |
library(magrittr) | |
library(docopt) | |
## ############################################################################# |
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 |
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. |
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) |
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: |
View Crunch-2018-R-workshop.R
## ############################################################################# | |
## intro slides: http://bit.ly/CRUNCH-R-2018 | |
## ############################################################################# | |
## intro to R | |
## basic operations | |
1 + 3 | |
3 * 2 |
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, |
NewerOlder