I am new to R and trying replicate work from research I come across.I am looking to replicate this flo