Operation for each row of data frame in R