<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Hola,
He tenido un guión para un análisis de supervivencia que podría producir (1) un diagrama de fallas, (2) un resumen y una prueba entre grupos para dos grupos de comparación. Intenté exportarlos a un diario y guardarlos como MSword, pero no pasó nada. Incluso el archivo "JournalTest.doc" no apareció en la carpeta. ¿Podría ayudarme a revisar mis códigos? Adjunté mi tabla de datos y un diario de prueba que muestra lo que quiero. Acortar mis códigos siempre que sea posible.
// obtener todas las filas de la base de datos
dbq_string = "DBQ=E:\Now\(Proyecto) RFID_r3_Homing_r1\Ben analysis\Chang_bee_db.mdb;" ||
"DefaultDir=E:\Now\(Proyecto) RFID_r3_Homing_r1\Ben análisis;" ||
"Controlador={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;" ||
"FILEDSN=C:\Archivos de programa\Archivos comunes\ODBC\Orígenes de datos\chang_bee_db.dsn;" ||
"MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Sí;";
dt1=Abrir base de datos(dbq_string, "SELECCIONAR * DE qryAFF14", "qryAFF14", invisible);
// obtener curvas de 3 grupos en gráficos de una falla
dt=tabla de datos ("qryAFF14", invisible); /*invisible: para cerrar la ventana de la tabla de datos*/
dt<< Supervivencia(
Y( :AFF14 ),
Agrupación (: tratamiento),
Parcela de falla( 1 ),
Trama de supervivencia( 0 ),
Donde( :tratamiento == "acetona 5µl" | : tratamiento== "nil" | :tratamiento == "metopreno 5µl (40 µg/µl)" ),
Enviar a informe (
Despacho(
{"Trama de falla"},
"Defecto",
TextEditBox,
{Set Text( "Tarifas de inicio del primer vuelo" )}
),
Despacho(
{"Trama de falla"},
"AF14",
TextEditBox,
{Establecer texto ("Edad (día)")}
)
)
);
// envía el diagrama de fallas a un diario. ¿Cómo modificar la parte subrayada para exportar la trama?
dt<
dt<
diario actual()<
Cuadro de salto de página() << Diario;
dts = dt << Resumen( Grupo( :tratamiento ), N, Media (:AFF14), Error estándar, nombre de la tabla de salida( "qryAFF14_out" ) );
dts << Diario (Congelar todo);
dts << cerrar ventana;
Diario actual() << save HTML("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.htm");
Diario actual() << save MSWord("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.doc");
Diario actual() << save RTF("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.rtf");
// obtener resumen y pruebas entre grupos, esta parte funciona
dt<< Supervivencia(
Y( :AFF14 ),
Agrupación (: tratamiento),
Gráfico de falla (0),
gráfico de supervivencia (0),
,Donde( :tratamiento == "acetona 5µl" | :tratamiento == "nil"),
)
<
Y( :AFF14 ),
Agrupación (: tratamiento),
Gráfico de falla (0),
gráfico de supervivencia (0),
,Donde( :tratamiento == "acetona 5µl" | :tratamiento == "metopreno 5µl (40 µg/µl)" ),
);
// exportar resumen y pruebas entre grupos, no funciona. cómo modificar el script para estos dos
dt<
dt<
diario actual()<
Cuadro de salto de página() << Diario;
dts = dt << Resumen( Grupo( :tratamiento ), N, Media (:AFF14), Error estándar, nombre de la tabla de salida( "qryAFF14_out" ) );
dts << Diario (Congelar todo);
dts << cerrar ventana;
Diario actual() << save HTML("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.htm");
Diario actual() << save MSWord("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.doc");
Diario actual() << save RTF("E:\Now\(Project) RFID_r3_Homing_r1\Ben analysis\JMP\JournalTest.rtf");
