my random R Code backups