데이터 테이블 스크립트에 평가 된 목록을 저장하는 방법여보세요,
사용자가 나중에 테이블을 열고 스크립트를 실행할 수 있도록 데이터 테이블에 스크립트를 저장하고 싶습니다.
내 문제는 내가 데이터 테이블 스크립트에서 원래 스크립트에서 사용하는 변수의 값을 인쇄하는 방법을 모르겠다. 나는 expr, eval로 시도했다 ...
아래 예제에서는이를 명확하게 보여줍니다. "mylist"를 기반으로 간단한 그래프를 생성하는 DataTableScript를 저장하려고합니다. "mylist"에 포함 된 실제 문자열을 저장하는 방법은 무엇입니까?
당신의 도움을 주셔서 감사합니다.
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
mylist = {"sex" , "age"};
Graph = Variability Chart(
Y( :weight ),
X( eval(mylist) ),
Max Iter( 100 ),
Std Dev Chart( 0 ),
Show Range Bars( 0 ),
Show Grand Median( 0 ),
Std Dev Chart( 1 ),
Points Jittered( 1 ),
Show Box Plots( 1 ),
);
dt << New Script(
"Test",
Variability Chart(
Y( :weight ),
X( Eval(mylist) ),
Max Iter( 100 ),
Std Dev Chart( 0 ),
Show Range Bars( 0 ),
Show Grand Median( 0 ),
Std Dev Chart( 1 ),
Points Jittered( 1 ),
Show Box Plots( 1 ),
);
);제목 : Re : 데이터 테이블 스크립트에 평가 목록을 저장하는 방법표현식을 함께 사용할 수있는 한 가지 방법이 있습니다.
NamesDefaultToHere(1);
CurrentDataTable(Open( "$SAMPLE_DATA/Big Class.jmp" ));
// Expression that makes a variability chart
makeVC =
Expr(
vc = CurrentDataTable() << Variability Chart(
Y(:weight),
X(TBD),
Max Iter( 100 ),
Std Dev Chart( 0 ),
Show Range Bars( 0 ),
Show Grand Median( 0 ),
Std Dev Chart( 1 ),
Points Jittered( 1 ),
Show Box Plots( 1 )
);
);
makeBiv = Expr(Bivariate( Y( :height ), X( :weight ) ));
// Put the required 'x' values in 'makeVC'
mylist = {"sex" , "age"};
SubstituteInto(makeVC, Expr(TBD), Eval(myList));
newexpr = expr(tbd; tbd2);
substituteinto(newexpr, expr(tbd), nameexpr(makevc),
expr(tbd2), nameexpr(makeBiv)
);제목 : Re : 데이터 테이블 스크립트에 평가 목록을 저장하는 방법안녕하세요,
이 문제에 대해 추가 질문이 있습니다.
몇 가지 이유 때문에 saveScript 표현식을 약간 수정해야합니다.
몇 줄의 코드를 추가하고 싶습니다.
dt << Clear Select;
dt << Clear Row States;
dt << Select Where( ...);
dt2 = dt << subset ....;
그런 다음 dt2에 새 스크립트를 저장합니다.
추가하려고했거나 2 개의 표현식을 연결했지만 작동하지 않았습니다.
어떤 도움?
제목 : Re : 데이터 테이블 스크립트에 평가 목록을 저장하는 방법SubstitueInto는 일을합니까 !!!
많은 감사합니다
제목 : Re : 데이터 테이블 스크립트에 평가 목록을 저장하는 방법나는 그 목록이 대본의 결과라고 할 수 없다.
제목 : Re : 데이터 테이블 스크립트에 평가 목록을 저장하는 방법목록 정의를 테이블 스크립트의 일부로 포함 시키십시오.
dt << New Script(
"Test",
mylist = {"sex" , "age"};
Variability Chart(
Y( :weight ),
X( Eval(mylist) ),
Max Iter( 100 ),
Std Dev Chart( 0 ),
Show Range Bars( 0 ),
Show Grand Median( 0 ),
Std Dev Chart( 1 ),
Points Jittered( 1 ),
Show Box Plots( 1 ),
);
);제목 : Re : 데이터 테이블 스크립트에 평가 목록을 저장하는 방법나는 (어떤 프로그래밍 언어로든 코드의 유지 보수성을 위해 나쁜 것으로 여겨지는) 코드 중복을 피하려고하는 경향이있다. 그리고 익숙한 몇 가지 디자인 패턴을 고수한다. 그래서,이 정신에서 나는 아래와 같이 그것을 할 것입니다. 그러나 나는 다른 많은 방법들이있을 것이라고 확신합니다.
NamesDefaultToHere(1);
CurrentDataTable(Open( "$SAMPLE_DATA/Big Class.jmp" ));
// Expression that makes a variability chart
makeVC =
Expr(
vc = CurrentDataTable() << Variability Chart(
Y(:weight),
X(TBD),
Max Iter( 100 ),
Std Dev Chart( 0 ),
Show Range Bars( 0 ),
Show Grand Median( 0 ),
Std Dev Chart( 1 ),
Points Jittered( 1 ),
Show Box Plots( 1 )
);
);
// Put the required 'x' values in 'makeVC'
mylist = {"sex" , "age"};
SubstituteInto(makeVC, Expr(TBD), Eval(myList));
// Make the chart
makeVC;
// Now save the script that makes the chart using a similar method to the above
saveScript = Expr(CurrentDataTable() << New Script("My Variability Chart", TBD));
SubstituteInto(saveScript, Expr(TBD), NameExpr(makeVC));
saveScript;
