correc syntax typo again!

R/kafino.R

@@ -502,7 +502,7 @@ kafino_fit<-function(datain,Tvar,Yvar,
                            prediction,label_pred,lwr,upr,flag)
   
   # join dt.pred with the initial datain containing all the observations
-  dt.out<-left_join(datain,dt.pred,by=c(.data$rowNum))
+  dt.out<-left_join(datain,dt.pred,by="rowNum")
   
   dt.out<-mutate(dt.out,flag=if_else(.data$flag1 == "Bad", .data$flag1, .data$flag))
   dt.out<-arrange(dt.out,.data$rowNum)