R codes inerted

Follow same logic as an R statement.