fixed bug in olden default with output variable selection

fawda123 · Jan 4, 2018 · d4d843d · d4d843d
1 parent eb91ced
commit d4d843d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: NeuralNetTools
 Type: Package
 Title: Visualization and Analysis Tools for Neural Networks
 Version: 1.5.0.9000
-Date: 2016-11-28
+Date: 2018-01-04
 Author: Marcus W. Beck [aut, cre]
 Maintainer: Marcus W. Beck <[email protected]>
 Description: Visualization and analysis tools to aid in the interpretation of

diff --git a/R/NeuralNetTools_old.R b/R/NeuralNetTools_old.R
@@ -139,9 +139,9 @@ olden.default <- function(mod_in, x_names, y_names, out_var = NULL, bar_plot = T
   split_vals <- substr(names(inp_hid), 1, 8)
   inp_hid <- split(inp_hid, split_vals)
   inp_hid <- lapply(inp_hid, function(x) t(do.call('rbind', x))[-1, ])
-  
+
   # final layer weights for output
-  hid_out <- wts_in[[grep(paste('out', out_ind), names(wts_in))]][-1]
+  hid_out <- wts_in[[paste('out', out_ind)]][-1]
 
   # matrix multiplication of output layer with connecting hidden layer
   max_i <- length(inp_hid)