added R sk code