added readplink.r