basics R scrips