Adatfile: atm.csv

Betöltése:

df <- read.csv('http://ppke.snowl.net/files/2012/11/atm.csv')

L. előző óra anyaga, abból is kiemelten:

f <- function(x) 75000-75000/30*x