From 68a75c7b73ce1e19a5daead729c27bb092a4ea9e Mon Sep 17 00:00:00 2001 From: Firefly <45487685+Snoopy1866@users.noreply.github.com> Date: Wed, 15 Jan 2025 09:49:01 +0800 Subject: [PATCH] =?UTF-8?q?feat(qualify=5Fxxx):=20=E6=96=B0=E5=A2=9E?= =?UTF-8?q?=E8=BE=93=E5=87=BA=E5=8F=98=E9=87=8F=20`IDT`=EF=BC=8C=E5=8F=AF?= =?UTF-8?q?=E7=94=A8=E4=BA=8E=E8=BE=85=E5=8A=A9=E6=8E=92=E5=BA=8F=20(#65)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- gbk/qualify.sas | 3 +++ gbk/qualify_multi.sas | 2 ++ gbk/qualify_multi_test.sas | 13 ++++++++++--- utf8/qualify.sas | 3 +++ utf8/qualify_multi.sas | 2 ++ utf8/qualify_multi_test.sas | 13 ++++++++++--- 6 files changed, 30 insertions(+), 6 deletions(-) diff --git a/gbk/qualify.sas b/gbk/qualify.sas index bcffea6..485942e 100644 --- a/gbk/qualify.sas +++ b/gbk/qualify.sas @@ -30,6 +30,7 @@ Version Date: 2023-03-08 1.0.1 2024-11-13 1.0.25 2024-11-14 1.0.26 2025-01-09 1.0.27 + 2025-01-14 1.1.0 =================================== */ @@ -687,6 +688,7 @@ Version Date: 2023-03-08 1.0.1 proc sql noprint; create table tmp_qualify_outdata_label as select + 0 as IDT, 0 as SEQ, %unquote(%superq(label_sql_expr)) as ITEM %if &total = TRUE %then %do; @@ -717,6 +719,7 @@ Version Date: 2023-03-08 1.0.1 proc sql noprint; create table tmp_qualify_outdata_level_&i as select + 1 as IDT, &i as SEQ, %unquote(%superq(indent_sql_expr)) || %unquote(&&var_level_note_&i) || %unquote(%superq(suffix_sql_expr)) as ITEM, diff --git a/gbk/qualify_multi.sas b/gbk/qualify_multi.sas index 961bad6..dca1df2 100644 --- a/gbk/qualify_multi.sas +++ b/gbk/qualify_multi.sas @@ -14,6 +14,7 @@ Version Date: 2023-12-26 0.1 2024-06-13 0.9 2024-07-15 0.10 2024-11-14 0.11 + 2025-01-14 0.12 =================================== */ @@ -359,6 +360,7 @@ Version Date: 2023-12-26 0.1 proc sql noprint; create table tmp_qualify_m_outdata as select + sum.idt, sum.seq, sum.item label = "分类", %do i = 1 %to &group_level_n; diff --git a/gbk/qualify_multi_test.sas b/gbk/qualify_multi_test.sas index cd33a38..63f7e1b 100644 --- a/gbk/qualify_multi_test.sas +++ b/gbk/qualify_multi_test.sas @@ -16,6 +16,7 @@ Version Date: 2024-01-08 0.1 2024-11-13 0.11 2024-11-14 0.12 2025-01-08 0.13 + 2025-01-14 0.14 =================================== */ @@ -309,14 +310,16 @@ Version Date: 2024-01-08 0.1 select * from DICTIONARY.COLUMNS where libname = "WORK" and memname = "TMP_QMT_CHISQ"; %if &SQLOBS = 0 %then %do; /*行或列的非缺失观测少于2，无法计算统计量*/ create table tmp_qmt_stat - (seq num, item char(%eval(%length(%bquote(&indent_sql_expr)) + 12)), value_1 char(10), value_2 char(10)); + (idt num, seq num, item char(%eval(%length(%bquote(&indent_sql_expr)) + 12)), value_1 char(10), value_2 char(10)); insert into tmp_qmt_stat - set seq = &desc_seq_max + 1, + set idt = 1, + seq = &desc_seq_max + 1, item = ¬e_stat, value_1 = "-", value_2 = "-"; insert into tmp_qmt_stat - set seq = &desc_seq_max + 2, + set idt = 1, + seq = &desc_seq_max + 2, item = ¬e_pvalue, value_1 = "-"; %end; @@ -325,6 +328,7 @@ Version Date: 2024-01-08 0.1 %if &chisq_warn = 1 %then %do; /*卡方检验不适用*/ create table tmp_qmt_stat as select + 1 as idt, &desc_seq_max + 1 as seq, ¬e_stat as item, "Fisher精确检验" as value_1, @@ -332,6 +336,7 @@ Version Date: 2024-01-08 0.1 from tmp_qmt_chisq outer union corr select + 1 as idt, &desc_seq_max + 2 as seq, ¬e_pvalue as item, strip(put(XP2_FISH, &p_format)) as value_1 @@ -344,6 +349,7 @@ Version Date: 2024-01-08 0.1 %end; create table tmp_qmt_stat as select + 1 as idt, &desc_seq_max + 1 as seq, ¬e_stat as item, "卡方检验" as value_1, @@ -351,6 +357,7 @@ Version Date: 2024-01-08 0.1 from tmp_qmt_chisq outer union corr select + 1 as idt, &desc_seq_max + 2 as seq, ¬e_pvalue as item, strip(put(P_PCHI, &p_format)) as value_1 diff --git a/utf8/qualify.sas b/utf8/qualify.sas index 92343bb..027cab7 100644 --- a/utf8/qualify.sas +++ b/utf8/qualify.sas @@ -30,6 +30,7 @@ Version Date: 2023-03-08 1.0.1 2024-11-13 1.0.25 2024-11-14 1.0.26 2025-01-09 1.0.27 + 2025-01-14 1.1.0 =================================== */ @@ -687,6 +688,7 @@ Version Date: 2023-03-08 1.0.1 proc sql noprint; create table tmp_qualify_outdata_label as select + 0 as IDT, 0 as SEQ, %unquote(%superq(label_sql_expr)) as ITEM %if &total = TRUE %then %do; @@ -717,6 +719,7 @@ Version Date: 2023-03-08 1.0.1 proc sql noprint; create table tmp_qualify_outdata_level_&i as select + 1 as IDT, &i as SEQ, %unquote(%superq(indent_sql_expr)) || %unquote(&&var_level_note_&i) || %unquote(%superq(suffix_sql_expr)) as ITEM, diff --git a/utf8/qualify_multi.sas b/utf8/qualify_multi.sas index 93520b7..b4e2af5 100644 --- a/utf8/qualify_multi.sas +++ b/utf8/qualify_multi.sas @@ -14,6 +14,7 @@ Version Date: 2023-12-26 0.1 2024-06-13 0.9 2024-07-15 0.10 2024-11-14 0.11 + 2025-01-14 0.12 =================================== */ @@ -359,6 +360,7 @@ Version Date: 2023-12-26 0.1 proc sql noprint; create table tmp_qualify_m_outdata as select + sum.idt, sum.seq, sum.item label = "鍒嗙被", %do i = 1 %to &group_level_n; diff --git a/utf8/qualify_multi_test.sas b/utf8/qualify_multi_test.sas index f664fcf..78f499c 100644 --- a/utf8/qualify_multi_test.sas +++ b/utf8/qualify_multi_test.sas @@ -16,6 +16,7 @@ Version Date: 2024-01-08 0.1 2024-11-13 0.11 2024-11-14 0.12 2025-01-08 0.13 + 2025-01-14 0.14 =================================== */ @@ -309,14 +310,16 @@ Version Date: 2024-01-08 0.1 select * from DICTIONARY.COLUMNS where libname = "WORK" and memname = "TMP_QMT_CHISQ"; %if &SQLOBS = 0 %then %do; /*琛屾垨鍒楃殑闈炵己澶辫娴嬪皯浜2锛屾棤娉曡绠楃粺璁￠噺*/ create table tmp_qmt_stat - (seq num, item char(%eval(%length(%bquote(&indent_sql_expr)) + 12)), value_1 char(10), value_2 char(10)); + (idt num, seq num, item char(%eval(%length(%bquote(&indent_sql_expr)) + 12)), value_1 char(10), value_2 char(10)); insert into tmp_qmt_stat - set seq = &desc_seq_max + 1, + set idt = 1, + seq = &desc_seq_max + 1, item = ¬e_stat, value_1 = "-", value_2 = "-"; insert into tmp_qmt_stat - set seq = &desc_seq_max + 2, + set idt = 1, + seq = &desc_seq_max + 2, item = ¬e_pvalue, value_1 = "-"; %end; @@ -325,6 +328,7 @@ Version Date: 2024-01-08 0.1 %if &chisq_warn = 1 %then %do; /*鍗℃柟妫楠屼笉閫傜敤*/ create table tmp_qmt_stat as select + 1 as idt, &desc_seq_max + 1 as seq, ¬e_stat as item, "Fisher绮剧‘妫楠" as value_1, @@ -332,6 +336,7 @@ Version Date: 2024-01-08 0.1 from tmp_qmt_chisq outer union corr select + 1 as idt, &desc_seq_max + 2 as seq, ¬e_pvalue as item, strip(put(XP2_FISH, &p_format)) as value_1 @@ -344,6 +349,7 @@ Version Date: 2024-01-08 0.1 %end; create table tmp_qmt_stat as select + 1 as idt, &desc_seq_max + 1 as seq, ¬e_stat as item, "鍗℃柟妫楠" as value_1, @@ -351,6 +357,7 @@ Version Date: 2024-01-08 0.1 from tmp_qmt_chisq outer union corr select + 1 as idt, &desc_seq_max + 2 as seq, ¬e_pvalue as item, strip(put(P_PCHI, &p_format)) as value_1