<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />안녕,
(1) 실패 플롯, (2) 두 비교 그룹에 대한 그룹 간 요약 및 테스트를 생성할 수 있는 생존 분석을 위한 스크립트가 있습니다. 나는 이것을 저널로 내보내고 MSword로 저장하려고 시도했지만 아무 일도 일어나지 않았습니다. "JournalTest.doc" 파일도 폴더에 나타나지 않았습니다. 제 코드 수정을 도와주시겠습니까? 데이터 테이블과 내가 원하는 것을 보여주는 테스트 저널을 첨부했습니다. 가능한 한 내 코드를 줄이십시오.
// 데이터베이스에서 모든 행 가져오기
dbq_string = "DBQ=E:\Now\(프로젝트) RFID_r3_Homing_r1\Ben analysis\Chang_bee_db.mdb;" ||
"DefaultDir=E:\Now\(프로젝트) RFID_r3_Homing_r1\Ben 분석;" ||
"드라이버={Microsoft Access 드라이버(*.mdb)};DriverId=25;FIL=MS 액세스;" ||
"FILEDSN=C:\Program Files\Common Files\ODBC\Data Sources\chang_bee_db.dsn;" ||
"MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=예;";
dt1=데이터베이스 열기(dbq_string, "SELECT * FROM qryAFF14", "qryAFF14", 보이지 않음);
// 하나의 실패 플롯에서 3개 그룹의 곡선을 얻습니다.
dt=데이터 테이블("qryAFF14", 보이지 않음); /*invisible: 데이터 테이블 창을 닫습니다*/
dt<< 생존(
Y( :AFF14 ),
그룹화( :처리 ),
고장 도표( 1 ),
생존 플롯( 0 ),
여기서( :처리 == "아세톤 5μl" | : 처리== "무기" | :처리 == "메토프렌 5μll(40μg/μl)"),
보고서 보내기(
보내다(
{"실패 플롯"},
"실패",
텍스트 편집 상자,
{Set Text( "첫 비행을 시작하는 비율" )}
),
보내다(
{"실패 플롯"},
"AFF14",
텍스트 편집 상자,
{텍스트 설정( "나이(일)" )}
)
)
);
// 실패 플롯을 저널에 출력합니다. 플롯 내보내기를 위해 밑줄 친 부분을 수정하는 방법은 무엇입니까?
dt<<저널(모두 고정);
dt<<창 닫기;
현재 저널()<<창 최소화;
페이지 나누기 상자() << 저널;
dts = dt << 요약( 그룹( :처리 ), N, 평균(:AFF14), 표준 오류, 출력 테이블 이름( "qryAFF14_out" ) );
dts << 저널(모두 고정);
dts << 창 닫기;
현재 저널() << HTML 저장("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.htm");
현재 저널() << MSWord("E:\Now\(프로젝트) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.doc")를 저장합니다.
현재 저널() << RTF 저장("E:\Now\(프로젝트) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.rtf");
// 그룹 간에 요약 및 테스트를 가져옵니다. 이 부분이 작동합니다.
dt<< 생존(
Y( :AFF14 ),
그룹화( :처리 ),
고장 도표( 0 ),
생존 플롯(0),
, Where( :처리 == "아세톤 5µl" | :처리 == "nil" ),
)
<<서바이벌(
Y( :AFF14 ),
그룹화( :처리 ),
고장 도표( 0 ),
생존 플롯(0),
, Where( :치료 == "아세톤 5μl" | :치료 == "메토프렌 5μll(40μg/μl)" ),
);
// 그룹 간에 요약 및 테스트 내보내기, 작동하지 않음. 이 두 스크립트를 수정하는 방법
dt<<저널(모두 고정);
dt<<창 닫기;
현재 저널()<<창 최소화;
페이지 나누기 상자() << 저널;
dts = dt << 요약( 그룹( :처리 ), N, 평균(:AFF14), 표준 오류, 출력 테이블 이름( "qryAFF14_out" ) );
dts << 저널(모두 고정);
dts << 창 닫기;
현재 저널() << HTML 저장("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.htm");
현재 저널() << MSWord("E:\Now\(프로젝트) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.doc")를 저장합니다.
현재 저널() << RTF 저장("E:\Now\(프로젝트) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.rtf");
