5305_fr-FR

liliconcom

script pour exporter un tracé et un résumé de l'analyse de survie vers un MS Word<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

Salut,

J'ai eu un script pour une analyse de survie qui pourrait produire (1) un graphique d'échec, (2) un résumé et un test entre les groupes pour deux groupes de comparaison. J'ai essayé de les exporter vers un journal et de les enregistrer en tant que MSword, rien ne s'est passé. Même le fichier "JournalTest.doc" n'apparaissait pas dans le dossier. Pourriez-vous m'aider à réviser mes codes ? J'ai joint mon tableau de données et un journal de test qui montre ce que je veux. Raccourcissez mes codes dans la mesure du possible.

// récupère toutes les lignes de la base de données

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:\Program Files\Fichiers communs\ODBC\Data Sources\chang_bee_db.dsn ;" ||

"MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Oui ;";

dt1=Ouvrir la base de données(dbq_string, "SELECT * FROM qryAFF14", "qryAFF14", invisible);

// obtenir les courbes de 3 groupes dans un tracé de défaillance

dt=table de données ("qryAFF14", invisible); /*invisible : pour fermer la fenêtre de la table de données*/

dt<< Survie(

Y( :AFF14 ),

Regroupement( :traitement),

Diagramme de défaillance( 1 ),

Parcelle de survie( 0 ),

Où( :traitement == "acétone 5µl" | :traitement== "néant" | :traitement == "méthoprène 5µll (40 µg/µl)" ),

EnvoyerVersRapport(

Expédition(

{"Plot d'échec"},

"Échouer",

TextEditBox,

{Set Text( "Taux d'initiation du premier vol" )}

),

Expédition(

{"Plot d'échec"},

"AFF14",

TextEditBox,

{Définir le texte( "Âge (jour)" )}

)

)

);

// affiche le tracé des échecs dans un journal. comment modifier la partie soulignée pour exporter le tracé ?

dt<

dt<

journal actuel()<

Boîte de saut de page() << Journal ;

dts = dt << Summary( Group( :treatment ), N, Mean (:AFF14), Std Error, output table name( "qryAFF14_out" ) );

dts << Journal( Tout geler );

dts << fermer la fenêtre ;

Journal actuel() << enregistrer HTML("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.htm");

Journal actuel() << enregistrer MSWord("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.doc");

Journal actuel() << enregistrer RTF("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.rtf");

// obtenir un résumé et des tests entre les groupes, cette partie fonctionne

dt<< Survie(

Y( :AFF14 ),

Regroupement( :traitement),

Tracé d'échec( 0 ),

parcelle de survie (0),

,Où( :traitement == "acétone 5µl" | :traitement == "néant" ),

)

<

Y( :AFF14 ),

Regroupement( :traitement),

Tracé d'échec( 0 ),

parcelle de survie (0),

,Où( :traitement == "acétone 5µl" | :traitement == "méthoprène 5µll (40 µg/µl)" ),

);

// exporte le résumé et les tests entre les groupes, ne fonctionne pas. comment modifier le script pour ces deux

dt<

dt<

journal actuel()<

Boîte de saut de page() << Journal ;

dts = dt << Summary( Group( :treatment ), N, Mean (:AFF14), Std Error, output table name( "qryAFF14_out" ) );

dts << Journal( Tout geler );

dts << fermer la fenêtre ;

Journal actuel() << enregistrer HTML("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.htm");

Journal actuel() << enregistrer MSWord("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.doc");

Journal actuel() << enregistrer RTF("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.rtf");