248266_zh-TW

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);