278008_ja-JP

liliconcom

数式内の変数をループする

こんにちは、

作業中のプロジェクトで、データテーブル列（Animal No.Avg）を作成しました。ここでは、テーブルGroupAvgのベースライン値（治療C）に基づいて、VO2のいくつかの相対値を計算しています。

 

この場合、groupAvgで見られるように、評価（VO2、RQ、EE）ごとにベースライン値は1つしかありません。そのために私はうまく機能する以下を作成しました：

 

VarVehicleVo2 = :Name( "Mean(Mean(VO2-[ml/min]))" )[Data Table( "GroupAvg" ) <<
Get rows Where( Contains( :Treatment, "C" ))];

Animal No.Avg << New Column( "VO2 absolute relative (%)",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Formula(
   Local( {t0 = VarVehicleVo2()},
    (:Name( "Mean(Mean(VO2-[ml/min]))" ) / t0) * 100
   )
  )
 );

データテーブル（GroupAvgSEM）にも日数が含まれており、相対値は日ごとに計算する必要があります（-6から30まで）。 

 

もちろん、上記と同じようにしてすべての日にわたって繰り返すことができるため、毎日ローカル変数を使用して非常に長いスクリプトを作成できますが、それは少し極端に思えます。

 

数式内でループするために、治療Cのデータをサブセット化して分割（日単位）することを検討していました。

VarTable = GroupAvgSEM << select where(
 Contains( :Treatment, "ehicle" )) << subset( 
  output table name( "VarTable" ), selected rows( 1 ), selected columns( 0 ));

VarVO2 = VarTable << split(
   Output table name("VarVO2"),
   Split By( :Day no ),
   Split( :Name( "Mean(Mean(VO2-[ml/min]))" ) ),
   Remaining Columns( Drop All ),
   Sort by Column Property
  );


Animal No.Avg << New Column("VO2 absolute relative (%)",
    Numeric, <BR />    Formula(
  Local( {//loop through VarVO2 column values},
   (:Name( "Mean(Mean(VO2-[ml/min]))" ) / /*VarVO2 column values*/) * 100
  ))
 );

それは可能ですか、これを別の方法で行うべきですか？

 

ジュリー

 

 

分析スクリプティングRe：数式内の変数をループする

これを試して

dt = Data Table("Animal No.Avg");
tb = dt <<
Tabulate(
 Show Control Panel( 0 ),
 Add Table(
  Column Table(
   Analysis Columns( :Name( "Mean(VO2-[ml/min])" ) ),
   Statistics( Mean )
  ),
  Row Table( Grouping Columns( :Day no ) )
 ),
 Local Data Filter(
  Add Filter( columns( :Treatment ), Where( :Treatment == "C" ) )
 )
);
dt1 = tb << make into data table;

dt2 = dt << Join(
 With( dt1 ),
 Select(
  :Treatment,
  :Animal No.,
  :Day no,
  :N Rows,
  :Name( "Mean(VO2-[ml/min])" ),
  :Name( "Mean(RQ)" ),
  :Name( "Mean(EE-[kcal/h])" )
 ),
 SelectWith( :Name( "Mean(Mean(VO2-[ml/min]))" ) ),
 By Matching Columns( :Day no = :Day no ),
 Drop multiples( 0, 0 ),
 Include Nonmatches( 0, 0 ),
 Preserve main table order( 1 )
);

dt2 << New Column("Relative VO2",
 Formula(:Name( "Mean(VO2-[ml/min])" )/:Name( "Mean(Mean(VO2-[ml/min]))" ) * 100)
);

tb << Close Window;

close(dt1, NoSave);