<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Hi,
Ich hatte ein Skript für eine Überlebensanalyse, die (1) ein Fehlerdiagramm, (2) eine Zusammenfassung und einen Test zwischen Gruppen für zwei Vergleichsgruppen erstellen konnte. Ich habe versucht, diese in ein Journal zu exportieren und als MSword zu speichern, nichts ist passiert. Auch die Datei „JournalTest.doc“ erschien nicht im Ordner. Könnten Sie mir bitte helfen, meine Codes zu überarbeiten? Ich habe meine Datentabelle und ein Testjournal beigefügt, das zeigt, was ich will. Kürze meine Codes wo immer möglich.
// Alle Zeilen aus der Datenbank abrufen
dbq_string = "DBQ=E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\Chang_bee_db.mdb;" ||
"DefaultDir=E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis;" ||
"Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;" ||
"FILEDSN=C:\Programme\Gemeinsame Dateien\ODBC\Datenquellen\chang_bee_db.dsn;" ||
"MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;";
dt1=Datenbank öffnen(dbq_string, "SELECT * FROM qryAFF14", "qryAFF14", unsichtbar);
// Kurven von 3 Gruppen in einem Fehlerdiagramm erhalten
dt=Datentabelle ("qryAFF14", unsichtbar); /*unsichtbar: schließt das Datentabellenfenster*/
dt<< Überleben(
Y( :AFF14 ),
Gruppierung ( : Behandlung ),
Fehlerdiagramm( 1 ),
Überlebensdiagramm( 0 ),
Where( :treatment == "aceton 5µl" | :treatment == "nil" | :treatment == "methoprene 5µll (40 µg/µl)" ),
SendToReport(
Versenden(
{"Fehlerdiagramm"},
"Versagen",
TextEditBox,
{Set Text( "Raten zum Einleiten des ersten Fluges" )}
),
Versenden(
{"Fehlerdiagramm"},
"AFF14",
TextEditBox,
{Text festlegen( "Alter (Tag)" )}
)
)
);
// Den Fehlerplot an ein Journal ausgeben. Wie ändert man den unterstrichenen Teil für den Export des Diagramms?
dt<
dt<
aktuelles Journal()<
Page Break Box() << Journal;
dts = dt << Summary( Group( :treatment ), N, Mean (:AFF14), Std Error, Ausgabetabellenname( "qryAFF14_out" ) );
dts << Journal( Alle einfrieren );
dts << Fenster schließen;
Current Journal() << save HTML("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.htm");
Current Journal() << save MSWord("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.doc");
Current Journal() << save RTF("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.rtf");
// Zusammenfassung und Tests zwischen den Gruppen erhalten, dieser Teil funktioniert
dt<< Überleben(
Y( :AFF14 ),
Gruppierung ( : Behandlung ),
Fehlerdiagramm( 0 ),
Überlebensplot(0),
,Where( :treatment == "aceton 5µl" | :treatment == "nil" ),
)
<<Überleben(
Y( :AFF14 ),
Gruppierung ( : Behandlung ),
Fehlerdiagramm( 0 ),
Überlebensplot(0),
,Wo( :Behandlung == "Aceton 5µl" | :Behandlung == "Methopren 5µll (40 µg/µl)" ),
);
// Zusammenfassung und Tests zwischen Gruppen exportieren, funktioniert nicht. wie man das Skript für diese beiden ändert
dt<
dt<
aktuelles Journal()<
Page Break Box() << Journal;
dts = dt << Summary( Group( :treatment ), N, Mean (:AFF14), Std Error, Ausgabetabellenname( "qryAFF14_out" ) );
dts << Journal( Alle einfrieren );
dts << Fenster schließen;
Current Journal() << save HTML("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.htm");
Current Journal() << save MSWord("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.doc");
Current Journal() << save RTF("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.rtf");
