R scripts from my personal webpage