Collection of random scripts from my R learning experience