• 大小: 211KB
    文件类型: .zip
    金币: 1
    下载: 0 次
    发布日期: 2021-06-01
  • 语言: Matlab
  • 标签:

资源简介

随机森林matlab代码,可运行。可用于分类和回归。

资源截图

代码片段和文件信息

function printRF(out)
%!
%! Description:
%!
%!   Print summary for output object returned from RFReg and RFClass.
%! 
%! Usage:
%!
%!   out = RFReg(param x y);
%!   PrintRF(out);
%!
%! Arguments:
%!
%!   out      An output object returned from RFReg or RFClass.
%!

%
% Last update on Jun. 27 2003
% By Ting Wang   Merck & Co.
%
  nm = fieldnames(out);
  for i=1:length(nm)    % Print parameter settings
    if strcmp(nm(i)‘param‘)
       disp(‘ ‘);
       disp([‘  Number of Trees: ‘num2str(out.param(1))]);
       disp([‘  No. of Variables tried at each split: ‘ ...
               num2str(out.param(2))]);
    end;
  end;
  for i=1:length(nm)    % Print error rate for training/test set
    if strcmp(nm(i)‘errtr‘)
       disp([‘  OOB estimate error rate for training data: ‘ ...
          sprintf(‘%6.4f‘out.errtr(end))‘%‘]);      
    end;
    if strcmp(nm(i)‘errts‘)
       disp([‘  OOB estimate error rate for test data: ‘ ...
          sprintf(‘%6.4f‘out.errts(end))‘%‘]);      
    end;
  end;
  for i=1:length(nm)    % Print confusion matrix for training/test set
    if strcmp(nm(i)‘mtab‘)
       disp(‘ ‘);
       disp([‘        Confusion Matrix For Training Set‘]);
       k=size(out.mtab1);
       disp([‘       |‘sprintf(‘%6.0f‘(1:k))‘ |   err %‘]);
       disp([‘  -----|‘repmat([‘-‘]16*k)   ‘-|---------‘]);
       for i=1:k
          s=sum(out.mtab(i:));
          if s>0 err=100*(1-out.mtab(ii)/s);
          else   err=NaN; end;
       disp([sprintf(‘%6.0f‘i)‘ |‘ ...
            sprintf(‘%6.0f‘out.mtab(i:)) ‘ |‘ ...
            sprintf(‘%9.4f‘err)]);
       end;
    end;
    if strcmp(nm(i)‘mtabts‘)
       disp(‘ ‘);      
       disp([‘        Confusion Matrix For Test Set‘]);
       k=size(out.mtabts1);
       disp([‘       |‘sprintf(‘%6.0f‘(1:k))‘ |   err %‘]);
       disp([‘  -----|‘repmat([‘-‘]16*k)   ‘-|---------‘]);
       for i=1:k
          s=sum(out.mtabts(i:));
          if s>0 err=100*(1-out.mtabts(ii)/s);
          else   err=NaN; end;
       disp([sprintf(‘%6.0f‘i)‘ |‘ ...
            sprintf(‘%6.0f‘out.mtabts(i:)) ‘ |‘ ...
            sprintf(‘%9.4f‘err)]);
       end;
    end;
  end;
  disp(‘ ‘);

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件       36864  2003-08-21 12:42  RFRegression.dll
     文件       32726  2002-08-21 16:07  Examples\boshouse.txt
     文件        1194  2003-06-25 09:22  Examples\Example_Classification.m
     文件        1145  2003-03-03 11:51  Examples\Example_Regression.m
     文件      236745  2002-08-21 16:06  Examples\satimage_tes.txt
     文件      525830  2002-08-21 16:06  Examples\satimage_tra.txt
     目录           0  2003-08-21 12:43  Examples\
     文件       60909  2003-06-27 13:11  Fortran\RFClassification.f
     文件       24632  2003-06-30 12:08  Fortran\RFRegression.f
     目录           0  2003-08-21 12:44  Fortran\
     文件       97280  2003-09-15 10:55  Installation.doc
     文件       12564  2003-06-25 10:16  RFClass.m
     文件        2276  2003-06-27 16:02  PrintRF.m
     文件        7959  2003-06-30 11:47  RFReg.m
     文件       57344  2003-08-21 12:42  RFClassification.dll
     文件         847  2003-09-15 11:11  ReadMe

评论

共有 条评论

相关资源