여러 보고서에서 R2를 추출하고 .txt 또는 .CSV 파일로 저장안녕하세요,
다중 신경망 (NN) 분석을 자동화하는 스크립트를 실행했습니다. 각 실행에서 스크립트는 NN 보고서를 Training and Validation의 R ^ 2 값을 포함하여 PDF 파일로 저장합니다. 마지막으로 약 1000 개의 PDF 파일이 있기 때문에 문제가됩니다.
아래 스크립트를 참조하십시오
dt = Open( "E:/Subset of9Year.jmp" )
Summarize( locs = BY(dt:ID) );
//To create a subset of each ID for Neural Input
For(
j=1, j<=NItems(locs), j++,
file = dt << Select Where(locs[j] == Char (:ID)) << Subset(
file,
Output Table Name("Model Subset File")
);
//Run Neural Network with 2 layers with 6/3 nodes
NN = file << Neural(
Y( :Name( "SoilMoisture(kg.m-2) or (mm)" ) ),
X(
:Name( "Tmax(K)" ),
:Name( "Tmin(K)" ),
:Name( "Precip(mm)" ),
),
Informative Missing( 0 ),
Transform Covariates( 1 ),
Validation Method( "KFold", 7 ),
Set Random Seed( 1234 ),
Fit(
NTanH( 1 ),
NLinear( 1 ),
NGaussian( 1 ),
NTanH2( 3 ),
NGaussian2( 3 ),
Transform Covariates( 1 ),
Robust Fit( 1 ),
Penalty Method( "Absolute" ),
Number of Tours( 10 ),
//Show Estimates( 1 ), //show estimates
//Diagram( 1 ),
//Plot Actual by Predicted( 1 ), // print plot obj vs predicted
Save Formulas,
//Get RSquare Test //Get RSquare Validation
)
);
//Read and save each report as a PDF file<BR /> NNReport = NN << Report;
NNReport << Save PDF("E:/result/model_"|| Char (j)||".pdf");
);여러 보고서에서 R2를 추출하여 파일로 저장하는 방법이 있습니까?
미리 감사드립니다. 어떤 제안이라도 환영합니다.
다시 : 여러 보고서에서 R2를 추출하고 .txt 또는 .CSV 파일로 저장JMP의 디스플레이 출력을 통해 디스플레이 출력의 항목을 구문 분석하는 기능을 사용하면 디스플레이 트리를 통해 원하는 출력을 얻을 수 있습니다. 다음은 신경 출력에서 Validation RSquare를 얻는 간단한 예입니다.
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Boston Housing.jmp" );
obj = Neural(
Y( :mvalue ),
X( :crim, :indus, :chas, :nox, :rooms, :age, :distance, :radial ),
Go
);
rSquare = (report(obj)["Validation"]["mvalue"][NumberColBox(1)]<<GET></GET>
디스플레이 트리에 대한 설명서는 스크립팅 안내서에서 찾을 수 있습니다.
도움말 => JMP 설명서 라이브러리
스크립팅 안내서를보십시오
다시 : 여러 보고서에서 R2를 추출하고 .txt 또는 .CSV 파일로 저장텍스트 저장을 사용하여 rSquare 값을 저장하려고합니다. 그러나 텍스트 파일을 만들 수 없습니다.
내가 이해하는 것처럼 (아마도) 스크립트는 rSquare 값을 가져 와서 JMP 어딘가에 저장합니다. 그런 다음 텍스트 저장을 사용하여 값을 .txt 파일에 저장했습니다.
JMP 오류 메시지는 "rSquare << / * ### * / Save Text ("D : /GYST_ERIK/pdm.txt ") / * ### * /;
{} "
도와 줄수있으세요?
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Boston Housing.jmp" );
obj = Neural(
Y( :mvalue ),
X( :crim, :indus, :chas, :nox, :rooms, :age, :distance, :radial ),
Go
);
rSquare = (report(obj)["Validation"]["mvalue"][NumberColBox(1)]<<GET></GET>
다시 : 여러 보고서에서 R2를 추출하고 .txt 또는 .CSV 파일로 저장사용하려는 기능은
텍스트 파일 저장 ()
스크립트 편집기를 보면 사용할 수있는 예제와 추가 옵션이 있습니다.
변수는 문자열이므로 사용할 수 있습니다
Save Text File("D:/GYST_ERIK/pmd.txt", rSquare);
아니면
Save Text File("D:/GYST_ERIK/pmd.txt", "Boston Results " || rSquare);
