add get data peer assessment R file