R markdown script added