40367_es-ES

liliconcom

Iterar a través de múltiples columnas y reemplazar celdas

Hola a todos,

 

Estoy intentando iterar a través de varias tablas y reemplazar cualquier valor> 6 sigma con un ".". A continuación se muestra mi intento de iterar a través de la clase grande y reemplazar los valores de peso y altura superiores a 1 sigma con a. Sin embargo, no está funcionando como se esperaba. Creo que me estoy confundiendo con las dos cuerdas. 

 

Names Default To Here( 1 );
Clear Globals();



dt = Open("...\SAS\JMP\13\Samples\Data\Big Class.jmp");


mycol = J( N Rows( dt ), 1 );
list_col_names = dt << Get Column Names( String );


For( i = 1, i <= N Items( list_col_names ), i++, 

 cur_col = (list_col_names[i]);
 
 
 If( Left( cur_col,1 ) == "ei", 
 
  mycol = dt << get as matrix( cur_col );
   
  q25 = Quantile( 0.25, mycol );
  q50 = Quantile( 0.50, mycol );
  q75 = Quantile( 0.75, mycol );
  
  mycol1 = ((mycol - q50) / ((q75 - q25) / 1.35));
  
  For( r = 1, r <= N Rows( dt ), r++,
   If(
    mycol1[r] > 1, mycol1[r] = .,
    mycol1[r] < -1, mycol1[r] = .
   ));
  
 );
);

¡Gracias!

 

Re: Iterar a través de múltiples columnas y reemplazar celdas

Ahí es donde estaba mi problema, funciona muy bien! ¡Gracias por tu ayuda!

Re: Iterar a través de múltiples columnas y reemplazar celdas

Los principales problemas que veo son que no identificó las columnas Hieght y Weight y que una vez que encontró las filas por encima o por debajo de 1 sigma, los valores no se volvieron a escribir en la tabla de datos.

Aquí hay una modificación a su código que corrige esos problemas.

Names Default To Here( 1 );
Clear Globals();

dt = Open("$SAMPLE_DATA\Big Class.jmp");

mycol = J( N Rows( dt ), 1 );
list_col_names = dt << Get Column Names( String );

For( i = 4, i <= N Items( list_col_names ), i++, 
 cur_col = (list_col_names[i]); 
 If( Contains(cur_col,"ei") > 0,  
  mycol = dt << get as matrix( cur_col );   
  q25 = Quantile( 0.25, mycol );
  q50 = Quantile( 0.50, mycol );
  q75 = Quantile( 0.75, mycol );  
  mycol1 = ((mycol - q50) / ((q75 - q25) / 1.35));
  
  For( r = 1, r <= N Rows( dt ), r++,
   If(
    mycol1[r] > 1, column(dt,cur_col)[r] = .,
    mycol1[r] < -1, column(dt,cur_col)[r] = .
   ));
    
 );
);