Having problems updating do() function

Question

I am trying to update my function using the new version of dplyr. First, I had this function (old version):

slope.k <- function(data, Treatment, Replicate,