New R funs added