bootridge: function name added to the output structure

Author: acp29

inst/bootridge.m

@@ -973,6 +973,7 @@
   end
 
   % Pack results
+  S.function = 'bootridge';
   if (c < 1); S.coefficient = Beta; else; S.estimate = mu; end;
   S.CI_lower = CI_lower;
   S.CI_upper = CI_upper;
@@ -1451,9 +1452,11 @@
 %! % tasks can predict performance on some measures of aptitude and achievement.
 %!
 %! % Load the dataset
-%! [group, SES, SAT, PPVT, Raven, n, s, ns, na, ss] = textread ...
-%!                 ('rohwer_data.csv', '%f %s %f %f %f %f %f %f %f %f', ...
-%!                  'Delimiter', ',', 'HeaderLines', 1);
+%! fid = fopen ('rohwer_data.csv', 'r', 'l');
+%! dat =  textscan ...
+%!                 (fid, '%f %s %f %f %f %f %f %f %f %f', ...
+%!                   'Delimiter', ',', 'HeaderLines', 1);
+%! [group, SES, SAT, PPVT, Raven, n, s, ns, na, ss] = dat{:};
 %! % Define model terms - all main effects and two-way interactions with SES
 %! mdl = [1 0 0 0 0 0; ...
 %!        0 1 0 0 0 0; ...