R codes of various purpose and value