r code colletcted from other people or by myself