48616_ko-KR

liliconcom

문자열 변수를 사용하여 디스패치를 통해 ANOVA 보고서 출력 제어

여보세요,

문자열 변수를 참조하려고합니다. colname ) 파견에서, 그러나 그것을 지키지 않는다. 아웃 라인 박스, {닫기 (0)} (또는 닫기 (1) ) 문자열이 명시 적으로 작성된 것과 반대입니다.

도와 주셔서 감사합니다.

리바이탈

 

다음은 코드입니다.

For( i = 1, i <= N Items( ColumnNames ), i++,
colname = "Response " || char(colnameames[i]);
Cobj = dt << Fit Model(
Y( colnameames[i] ),
Effects( :Visit, :Group, :Group * :Visit ),
Random Effects( :SubjectNumber[:Group] ),
Personality( "Standard Least Squares" ),
Method( "REML" ),
Emphasis( "Minimal Report" ),
Run(
colnameames[i] << {Analysis of Variance( 0 ), Lack of Fit( 0 ),
Plot Actual by Predicted( 0 ), Plot Regression( 0 ),
Plot Residual by Predicted( 0 ), Plot Effect Leverage( 0 ), {:Visit <<
{LSMeans Plot( 1 ), LSMeans Contrast( [1 0 0 -1] )}, :Group << {LSMeans Plot( 1 ),
LSMeans Contrast( [1 0 0 -1] )}, :Group * :Visit << {LSMeans Plot( 1 )}}
),
SendToReport(
Dispatch(
{colname , "Effect Details", "Visit", "Contrast"},
"Test Detail",
OutlineBox,
{Close( 0 )}
),
Dispatch(
{colname , "Effect Details", "Group", "Contrast"},
"Test Detail",
OutlineBox,
{Close( 0 )}
),
Dispatch(
{colname , "Effect Details"},
"SubjectNumber[Group]",
OutlineBox,
{Close( 1 )}
)
)
);

문자열 변수를 사용하여 디스패치를 통해 ANOVA 보고서 출력 제어

도와 줘서 고마워. 당신의 예제에서와 같은 솔루션을 사용했고 그것은 효과가있었습니다 !!

레프 탈 

 

문자열 변수를 사용하여 디스패치를 통해 ANOVA 보고서 출력 제어

나머지 표현식을 평가하기 전에 개요 상자의 이름이 포함 된 문자열을 작성해야합니다.  문자열을 사용하여 여러 가지 방법으로이를 수행 할 수 있습니다. Parse (Substitute ()) 및 Eval Insert ()를 확인하는 것이 더 나은 선택이 될 수 있습니다.  한 가지 방법은 아래와 같이 Eval Expr ()을 사용하는 것입니다.

 

Eval을 Write (Char (그리고 실제로 로그를 조사하여 어떤 코드가 실제로 평가되는지 확인하십시오. 로그에서 복사하여 스크립트 창에 붙여 넣은 다음 '형식 재 지정 스크립트'버튼을 사용할 수 있습니다.

 

Names default to here( 1 );

dt = Open( "$Sample_data/Iris.jmp" );

targets = {"Sepal length", "Petal length"};

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

 //Here is a Fit Model expression with some parts contained in Expr()
 //First the Fit model 'code' goes to Eval Expr() to evalute only those parts
 //contained in Expr().  Then it goes to Eval() to actually run the code.
 Eval( Eval Expr(
  Fit Model(
   Y( targets[i] ),
   Effects( :Sepal width, :Petal width ),
   Random Effects( :Species ),
   NoBounds( 1 ),
   Personality( "Standard Least Squares" ),
   Method( "REML" ),
   Emphasis( "Minimal Report" ),
   Run(
    :Sepal length << {Summary of Fit( 1 ), Analysis of Variance( 0 ),
    Parameter Estimates( 1 ), Lack of Fit( 0 ), Plot Actual by Predicted( 0 ),
    Plot Regression( 0 ), Plot Residual by Predicted( 0 ),
    Plot Studentized Residuals( 0 ), Plot Effect Leverage( 0 )}
   ),
   SendToReport(
    Dispatch(
     { Expr( "Response" ||  targets[i] ) }, //This is evaluated first
     "Parameter Estimates",
     OutlineBox,
     {Close( 1 )}
    ),
    Dispatch(
     { Expr( "Response" ||  targets[i] ) }, //This is evaluated first
     "REML Variance Component Estimates",
     OutlineBox,
     {Close( 1 )}
    ),
    Dispatch(
     { Expr( "Response" ||  targets[i] ) }, //This is evaluated first
     "Fixed Effect Tests",
     OutlineBox,
     {Close( 1 )}
    )
   )
  )
 ) );
);