NINAnor
diff --git a/‎R/truncate_bag.R‎
Lines changed: 1 addition & 1 deletion b/‎R/truncate_bag.R‎
Lines changed: 1 addition & 1 deletion
@@ -286,7 +286,7 @@ truncate_bag <- function(x,
         if(call == "fit_net_clogit") {
           if(new_bag$parms$kernel_vars[1] != "") {
             pred_vals_kernel <- kernel_prediction(f, validate_data,
-                                                  kernel_vars = kernel_vars,
+                                                  kernel_vars = new_bag$parms$kernel_vars,
                                                   coefs = coef[,1])
           }
         }
Original file line number	Diff line number	Diff line change
`@@ -286,7 +286,7 @@ truncate_bag <- function(x,`
`286`	`286`	`if(call == "fit_net_clogit") {`
`287`	`287`	`if(new_bag$parms$kernel_vars[1] != "") {`
`288`	`288`	`pred_vals_kernel <- kernel_prediction(f, validate_data,`
`289`		`- kernel_vars = kernel_vars,`
	`289`	`+ kernel_vars = new_bag$parms$kernel_vars,`
`290`	`290`	`coefs = coef[,1])`
`291`	`291`	`}`
`292`	`292`	`}`