how to apply an equation to one column having in consideration other columns of a dataframe in r?

Question

Here is how my data looks like:

tibble [1,702,551 x 4] (S3: tbl_df/tbl/data.frame)
$ date   : Date[1:1702551], format: "2011-04-12" "2011-04-12