Расчет только ненулевого уклона в кадре данных R

Question

Я вычисляю наклон каждой точки в кадре данных. Я хочу только положительные склоны снова их соответствующие значения. вот моя функция наклона d<-apply(data,1, function(x) coef(lm(I(1:4)~x)) )