40367_zh-CN

liliconcom

遍历多列并替换单元格

大家好，

 

我正在尝试遍历多个表并用“。”替换任何> 6 sigma的值。 下面是我尝试遍历大类并将大于 1 sigma 的体重和身高值替换为 .;但是，它没有按预期工作。 我想我对这两个字符串感到困惑。

 

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] = .
   ));
  
 );
);

谢谢！

 

回复：遍历多列并替换单元格

这就是我的问题所在，效果很好！ 谢谢您的帮助！

回复：遍历多列并替换单元格

我看到的主要问题是您没有识别 Hieght 和 Weight 列，并且一旦找到高于或低于 1 sigma 的行，这些值就不会写回数据表。

这是对您的代码的修改，可纠正这些问题。

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] = .
   ));
    
 );
);