Added some R scripts from Flora