Random scripts from my learning experience in R