daroczig

## 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

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

#!/usr/bin/env r

library(miniCRAN)
library(data.table)
library(pander)
library(logger)
library(magrittr)
library(docopt)

## #############################################################################

daroczig

## 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

## intro slides: http://bit.ly/r-intro-slide

## basic operations
1 + 3
3*2
3^2

## constants
pi
"pi"

daroczig

---
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

## #############################################################################
## 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

#!/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

## #############################################################################
## intro slides: http://bit.ly/CRUNCH-R-2018

## #############################################################################
## intro to R

## basic operations
1 + 3
3 * 2

daroczig

## 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,