53833_ja-JP

liliconcom

ループ内で行操作を実行するにはどうすればよいですか?

こんにちは、

以下のようなテーブルがあります。

ABC ..n 列

1 2 3

7 6 4

3 7 9

。

。

m行

すべての列に対して「n行目の値= n行目の値 - 1行目の値」となり、最終的に1行目を0にリセットするようなスクリプトを書きたいと考えています。 最終的にテーブルは次のようになります

ABC

0 0 0..

6 4 1

2 5 6

。

。

誰かがそのような操作のスクリプトを手伝ってくれませんか? ありがとう

 

Re: ループ内で行操作を実行するにはどうすればよいですか?ありがとうテキネルソン。 完璧に機能します。Re: ループ内で行操作を実行するにはどうすればよいですか?

ループ処理を行う方法がいくつかあります。......もっと多くの方法がありますが、他の人に説明してもらいます。

Names Default To Here( 1 );

// Open the data table
dt1 = Open( "$SAMPLE_DATA\Blood Pressure.jmp" );

// Create a second copy
dt2 = dt1 << subset( selected columns( 0 ), selected rows( 0 ) );

// Get all numeric, continuous column names 
colList = dt1 << get column names( string, numeric, continuous );

// Loop across all numeric, continuous columns and use a 
// matrix operation to handle the math
For( i = 1, i <= N Items( colList ), i++,
 mat = Column( dt1, colList[i] ) << get values;
 mat = mat - mat[1];
 Column( dt1, colList[i] ) << set values( mat );
);


// Now do the same thing looping with the data in place
// Loop across all numeric, continuous columns
For( i = 1, i <= N Items( colList ), i++, 

 // Go through each row, from the bottom to the top to subtract
 // the value of the first row from each rows value
 For( k = N Rows( dt2 ), k >= 1, k--,
  Column( dt2, colList[i] )[k] = Column( dt2, colList[i] )[k] - Column( dt2, colList[i] )[1]
 )
);