The last thing you need is the values of penalty you are trying. This can be created using grid$\_$regular$()$ which creates a grid of evenly spaces parameter values. You use the penalty$()$ function from the dials package to denote the parameter and set the range of the grid you are searching for. Note that this range is log$-$scaled. Your output variable here is going to be penalty$\_$grid. For penalty use a range from $-5$ to $5,$ and $50$ values $($levels$).$

# Your code here

# penalty$\_$grid $<-$

penalty$\_$grid $<-$ grid$\_$regular$($penalty$($range $=$ c$(-5,5)),$ levels $=50)$

# your code here

$$

expect$\_$equal$($penalty$\_$grid$penalty$[1],1$e$-05)$

expect$\_$equal$($penalty$\_$grid$penalty$[25],0\mathrm{.}79060432109077,$ tolerance$=1$e$-5)$

expect$\_$equal$($penalty$\_$grid$penalty$[50],1$e$+05)$

$$

# Hidden Tests

Error in expect$\_$equal$($penalty$\_$grid$penalty$[1],1$e$-05)$: could not find function "expect$\_$equal"

Traceback: