made a start at adding R