248266_es-ES

liliconcom

Extraiga R2 en varios informes y guárdelo en un archivo .txt o .CSV

Hola, 

Ejecuté un script que automatiza múltiples análisis de redes neuronales (NN). En cada ejecución, el script guarda un informe NN como un archivo PDF, incluidos los valores R ^ 2 de Capacitación y Validación. Se convierte en un problema ya que, finalmente, tengo alrededor de 1000 archivos PDF. 

Por favor vea el guión a continuación

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

¿Hay algún método para extraer R2 en varios informes y guardarlos en un archivo?

Gracias de antemano. Cualquier sugerencia es bienvenida. 

 

 

Re: Extraiga R2 en múltiples informes y guárdelo en un archivo .txt o .CSV

Usando la capacidad de JMP para analizar cualquier elemento dentro de la salida de la pantalla, a través de los árboles de la pantalla, puede tomar cualquiera de las salidas que desee.  Aquí hay un ejemplo simple de obtener la Validación RSquare de una salida Neural

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>

La documentación sobre los árboles de visualización se puede encontrar en la Guía de secuencias de comandos

     Ayuda => Biblioteca de documentación JMP

luego mira en la Guía de secuencias de comandos 

Re: Extraiga R2 en múltiples informes y guárdelo en un archivo .txt o .CSV

Intento guardar el valor de rSquare usando Guardar texto. Sin embargo, no puede crear un archivo de texto.

Según tengo entendido (tal vez incorrecto), el script obtiene el valor rSquare y lo guarda en algún lugar de JMP. Luego usé Guardar texto para guardar el valor en un archivo .txt. 

El mensaje de error de JMP es "rSquare << / * ### * / Save Text (" /GYST_ERIK/pdm.txt ") / * ### * /;
{} "

¿Puedes ayudarme por favor?

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>

 

Re: Extraiga R2 en múltiples informes y guárdelo en un archivo .txt o .CSV

La función que quieres usar es

     Guardar archivo de texto ()

Mire en el Editor de secuencias de comandos y tiene un ejemplo y opciones adicionales que se pueden usar.

 

Como su variable es una cadena, puede usar

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

o tal vez

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