rsq$\_$metric$\_$vec $<-$ metric$\_$set$($rsq$)[[1]]$

best$\_$penalty $<-$ select$\_$best$($tune$\_$res, rsq$\_$metric$\_$vec, optimize $=$ "maximize"$)$

metrics$($tune$\_$res$)$