Random scripts from my R learning experience