random scripts from my R learning experience