Different more and less usable R scripts