Added preliminary R files