added r journal paper