248266_zh-CN

liliconcom

在多个报告中提取R2并保存为.txt或.CSV文件

你好 

我运行了一个脚本，该脚本可以自动执行多个神经网络（NN）分析。在每次运行中，脚本都会将NN报告另存为PDF文件，其中包括Training and Validation的R ^ 2值。由于我最终拥有约1000个PDF文件，因此这成为一个问题。 

请参见下面的脚本

dt = Open( "E:/Subset of9Year.jmp" )
Summarize( locs = BY(dt:ID) );
//To create a subset of each ID for Neural Input
For(
 j=1, j<=NItems(locs), j++,
 file = dt << Select Where(locs[j] == Char (:ID)) << Subset(
  file,
  Output Table Name("Model Subset File")
 );
//Run Neural Network with 2 layers with 6/3 nodes
 NN = file << Neural(
 Y( :Name( "SoilMoisture(kg.m-2) or (mm)" ) ),
 X(
  :Name( "Tmax(K)" ),
  :Name( "Tmin(K)" ),
  :Name( "Precip(mm)" ),
 ),
 Informative Missing( 0 ),
 Transform Covariates( 1 ),
 Validation Method( "KFold", 7 ),
 Set Random Seed( 1234 ),
 Fit(
  NTanH( 1 ),
  NLinear( 1 ),
  NGaussian( 1 ),
  NTanH2( 3 ),
  NGaussian2( 3 ),
  Transform Covariates( 1 ),
  Robust Fit( 1 ),
  Penalty Method( "Absolute" ),
  Number of Tours( 10 ),
  //Show Estimates( 1 ),  //show estimates
  //Diagram( 1 ),
  //Plot Actual by Predicted( 1 ), // print plot obj vs predicted
  Save Formulas,
  //Get RSquare Test //Get RSquare Validation 
 )
);
 //Read and save each report as a PDF file<BR />    NNReport = NN << Report;
 NNReport << Save PDF("E:/result/model_"|| Char (j)||".pdf"); 
);

有没有一种方法可以在多个报告中提取R2并将其保存在文件中？

先感谢您。任何建议都欢迎。 

 

 

回复：在多个报告中提取R2并保存为.txt或.CSV文件

使用JMP通过显示树解析显示输出中任何项目的功能，您可以获取所需的任何输出。  这是一个从神经输出中获取验证RSquare的简单示例

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Boston Housing.jmp" );
obj = Neural(
 Y( :mvalue ),
 X( :crim, :indus, :chas, :nox, :rooms, :age, :distance, :radial ),
 Go
);
rSquare = (report(obj)["Validation"]["mvalue"][NumberColBox(1)]<<GET></GET>

可以在《脚本指南》中找到有关显示树的文档

     帮助=> JMP文档库

然后查看《脚本指南》 

回复：在多个报告中提取R2并保存为.txt或.CSV文件

我尝试通过使用保存文本来保存rSquare值。但是，它无法创建文本文件。

据我了解（可能是错误的），脚本获取rSquare值并将其保存在JMP中。然后，我使用“保存文本”将值保存到.txt文件。 

JMP错误消息是“ rSquare << / * ### * / Save Text（“ D：/GYST_ERIK/pdm.txt”）/ * ### * /;
{}”

你能帮我吗？

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Boston Housing.jmp" );
obj = Neural(
 Y( :mvalue ),
 X( :crim, :indus, :chas, :nox, :rooms, :age, :distance, :radial ),
 Go
);
rSquare = (report(obj)["Validation"]["mvalue"][NumberColBox(1)]<<GET></GET>

 

回复：在多个报告中提取R2并保存为.txt或.CSV文件

您要使用的功能是

     保存文本文件（）

在“脚本编辑器”中查看，它包含一个示例和可以使用的其他选项。

 

由于您的变量是字符串，因此您可以使用

Save Text File("D:/GYST_ERIK/pmd.txt", rSquare);

或许

Save Text File("D:/GYST_ERIK/pmd.txt", "Boston Results " || rSquare);