Some codes about R