This is the collection of a bunch of R codes which are often used in my work