remove duplicate lines

grlloyd · grlloyd · commit 255758a9d742 · 2019-11-19T10:10:59.000Z
diff --git a/R/forward_selection_by_rank_class.R b/R/forward_selection_by_rank_class.R
@@ -191,8 +191,6 @@ eval_loess=function(x,X,Y,k=10,p=0.66)
             smoothed=stats::predict(loessMod,newdata=xx2)
             residual[i]=sum((smoothed-yy2)^2)
         }
-        smoothed=stats::predict(loessMod,newdata=xx2)
-        residual[i]=sum((smoothed-yy2)^2)
     }
     return(sqrt(mean(residual)))
 }

Original file line number	Diff line number	Diff line change
`@@ -191,8 +191,6 @@ eval_loess=function(x,X,Y,k=10,p=0.66)`
`191`	`191`	`smoothed=stats::predict(loessMod,newdata=xx2)`
`192`	`192`	`residual[i]=sum((smoothed-yy2)^2)`
`193`	`193`	`}`
`194`		`- smoothed=stats::predict(loessMod,newdata=xx2)`
`195`		`- residual[i]=sum((smoothed-yy2)^2)`
`196`	`194`	`}`
`197`	`195`	`return(sqrt(mean(residual)))`
`198`	`196`	`}`