Clinwright14-2.01
Summary of Demographic and Baseline Characteristics
Made 2026-10-17 from uploaded data.
CDISCPILOT01
Table 14-2.01
Summary of Demographic and Baseline Characteristics
Intent-to-Treat Analysis Set
| Placebo (N=86) | Xanomeline Low Dose (N=84) | Xanomeline High Dose (N=84) | Total (N=254) | p-value [1] | |
|---|---|---|---|---|---|
| Age (y) | |||||
| n | 86 | 84 | 84 | 254 | 0.5934 |
| Mean | 75.2 | 75.7 | 74.4 | 75.1 | |
| SD | 8.59 | 8.29 | 7.89 | 8.25 | |
| Median | 76.0 | 77.5 | 76.0 | 77.0 | |
| Min | 52.0 | 51.0 | 56.0 | 51.0 | |
| Max | 89.0 | 88.0 | 88.0 | 89.0 | |
| Age group | |||||
| <65 yrs | 14 (16%) | 8 (10%) | 11 (13%) | 33 (13%) | 0.1439 |
| 65-80 yrs | 42 (49%) | 47 (56%) | 55 (65%) | 144 (57%) | |
| >80 yrs | 30 (35%) | 29 (35%) | 18 (21%) | 77 (30%) | |
| Sex | |||||
| n | 86 | 84 | 84 | 254 | 0.1409 |
| Male | 33 (38%) | 34 (40%) | 44 (52%) | 111 (44%) | |
| Female | 53 (62%) | 50 (60%) | 40 (48%) | 143 (56%) | |
| Race (Origin) | |||||
| n | 86 | 84 | 84 | 254 | 0.6477 |
| Caucasian | 75 (87%) | 72 (86%) | 71 (85%) | 218 (86%) | |
| African Descent | 8 (9%) | 6 (7%) | 9 (11%) | 23 (9%) | |
| Hispanic | 3 (3%) | 6 (7%) | 3 (4%) | 12 (5%) | |
| Other | 0 (0%) | 0 (0%) | 1 (1%) | 1 (0%) | |
| MMSE | |||||
| n | 86 | 84 | 84 | 254 | 0.5947 |
| Mean | 18.0 | 17.9 | 18.5 | 18.1 | |
| SD | 4.27 | 4.22 | 4.16 | 4.21 | |
| Median | 19.5 | 18.0 | 20.0 | 19.0 | |
| Min | 10.0 | 10.0 | 10.0 | 10.0 | |
| Max | 23.0 | 24.0 | 24.0 | 24.0 | |
| Duration of disease [2] | |||||
| n | 86 | 84 | 84 | 254 | 0.1530 |
| Mean | 42.7 | 48.7 | 40.5 | 43.9 | |
| SD | 30.24 | 29.58 | 24.69 | 28.40 | |
| Median | 35.3 | 40.3 | 36.0 | 36.3 | |
| Min | 7.2 | 7.8 | 2.2 | 2.2 | |
| Max | 183.1 | 130.8 | 135.0 | 183.1 | |
| Duration of disease group | |||||
| <12 months | 5 (6%) | 3 (4%) | 4 (5%) | 12 (5%) | 0.7885 |
| >=12 months | 81 (94%) | 81 (96%) | 80 (95%) | 242 (95%) | |
| Years of education | |||||
| n | 86 | 84 | 84 | 254 | 0.3875 |
| Mean | 12.6 | 13.2 | 12.5 | 12.8 | |
| SD | 2.95 | 4.15 | 2.92 | 3.38 | |
| Median | 12.0 | 12.0 | 12.0 | 12.0 | |
| Min | 6.0 | 3.0 | 6.0 | 3.0 | |
| Max | 21.0 | 24.0 | 20.0 | 24.0 | |
| Baseline weight(kg) | |||||
| n | 86 | 83 | 84 | 253 | 0.0030 |
| Mean | 62.8 | 67.3 | 70.0 | 66.6 | |
| SD | 12.77 | 14.12 | 14.65 | 14.13 | |
| Median | 60.6 | 64.9 | 69.2 | 66.7 | |
| Min | 34.0 | 45.4 | 41.7 | 34.0 | |
| Max | 86.2 | 106.1 | 108.0 | 108.0 | |
| Baseline height(cm) | |||||
| n | 86 | 84 | 84 | 254 | 0.1262 |
| Mean | 162.6 | 163.4 | 165.8 | 163.9 | |
| SD | 11.52 | 10.42 | 10.13 | 10.76 | |
| Median | 162.6 | 162.6 | 165.1 | 162.9 | |
| Min | 137.2 | 135.9 | 146.1 | 135.9 | |
| Max | 185.4 | 195.6 | 190.5 | 195.6 | |
| Baseline BMI | |||||
| n | 86 | 83 | 84 | 253 | 0.0133 |
| Mean | 23.6 | 25.1 | 25.3 | 24.7 | |
| SD | 3.67 | 4.27 | 4.16 | 4.09 | |
| Median | 23.4 | 24.3 | 24.8 | 24.2 | |
| Min | 15.1 | 17.7 | 13.7 | 13.7 | |
| Max | 33.3 | 40.1 | 34.5 | 40.1 | |
| BMI group | |||||
| <25 | 59 (69%) | 46 (55%) | 44 (52%) | 149 (59%) | 0.2235 |
| 25-<30 | 21 (24%) | 27 (32%) | 28 (33%) | 76 (30%) | |
| >=30 | 6 (7%) | 10 (12%) | 12 (14%) | 28 (11%) |
[1] P-values are results of ANOVA treatment group comparison for continuous variable and Pearson's chi-square test for categorical variables.
[2] Duration of disease is computed as months between date of enrollment and date of onset of the first definite symptoms of Alzheimer's disease.
Program: t-14-2-01.sas
Program t-14-2-01.sas
Version 1, written from Clinwright's patterns, 2026-10-17, checks passed.
/*==== 00-header ====*/
/*----------------------------------------------------------------------------
Output : Table 14-2.01 / Summary of Demographic and Baseline Characteristics / Intent-to-Treat Analysis Set
Program : t-14-2-01.sas Reporting effort : CSR
ADaM : /work/adam (ADSL, ADADAS, ADCIBC, ADLBC, ADLBH, ADNPIX, ADTTE, ADVS, ADAE, ADCM, ADMH, ADEX)
The header and the report step follow from the shell. The sections between
them make WORK.FINAL, one record per row of the table, in order:
_page the page (1 unless the output is paged); _pagelbl its heading or empty
_ord the row's order; _indent the label's indentation (0 = flush left)
_rowid the uuid of the shell row it shows (WORK._SHELL); one shell row may
have several (a category per value); a blank row's is blank-<n>
_kind label | stat | blank
rowlabel the row's label, as text
col1 Placebo|(N=xx)
col2 Xanomeline Low Dose|(N=xx)
col3 Xanomeline High Dose|(N=xx)
col4 Total|(N=xx)
col5 p-value|[1]
and set the big N of the column headers:
&_bign1 Placebo|(N=xx)
&_bign2 Xanomeline Low Dose|(N=xx)
&_bign3 Xanomeline High Dose|(N=xx)
&_bign4 Total|(N=xx)
/work/_lib/clinwright.sas has %ls_bign, %ls_count, %ls_stats, %ls_npct, %ls_num.
----------------------------------------------------------------------------*/
libname adam "/work/adam" access=readonly;
%include "/work/_lib/clinwright.sas";
%ls_setup;
/* The shell's rows, in order, with each column's value pattern (_xx1-_xx5). */
data work._shell;
length _page 8 _pagelbl $200 _ord 8 _indent 8 _rowid $36 _kind $5 _var $32 rowlabel $200 _xx1 $40 _xx2 $40 _xx3 $40 _xx4 $40 _xx5 $40;
_page = 1; _pagelbl = '';
_ord=1; _indent=0; _rowid='d2bd612c-49b7-41c1-a8c3-bad408e94422'; _kind='label'; _var=''; rowlabel='Age (y)'; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=2; _indent=1; _rowid='47fb60b9-23de-4ffb-a035-4ac410748275'; _kind='stat'; _var=''; rowlabel='n'; _xx1='xx'; _xx2='xx'; _xx3='xx'; _xx4='xx'; _xx5='x.xxxx'; output;
_ord=3; _indent=1; _rowid='bd6b3840-4707-4be5-9c27-5fb2800459a6'; _kind='stat'; _var=''; rowlabel='Mean'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=4; _indent=1; _rowid='62f17aff-47b8-485c-8976-f9ccfc6658ea'; _kind='stat'; _var=''; rowlabel='SD'; _xx1='xx.xx'; _xx2='xx.xx'; _xx3='xx.xx'; _xx4='xx.xx'; _xx5=''; output;
_ord=5; _indent=1; _rowid='002b7355-f7b0-4383-92e1-0716d2044caf'; _kind='stat'; _var=''; rowlabel='Median'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=6; _indent=1; _rowid='a2ad2e68-9fb6-4fcb-abe7-e8f6a7d53080'; _kind='stat'; _var=''; rowlabel='Min'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=7; _indent=1; _rowid='3ec51321-9e7a-4de0-88c0-c81ba8657ece'; _kind='stat'; _var=''; rowlabel='Max'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=8; _indent=0; _rowid='blank-8'; _kind='blank'; _var=''; rowlabel=''; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=9; _indent=0; _rowid='3d70b6ff-e9b2-49c3-8354-b2a7b7519cfd'; _kind='label'; _var=''; rowlabel='Age group'; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=10; _indent=1; _rowid='b4df5100-2a70-4410-9e07-d25e354da0d6'; _kind='stat'; _var=''; rowlabel='<65 yrs'; _xx1='xx (xx%)'; _xx2='xx (xx%)'; _xx3='xx (xx%)'; _xx4='xx (xx%)'; _xx5='x.xxxx'; output;
_ord=11; _indent=1; _rowid='b22f7ad4-32c9-45d1-ae0d-2b57dad3d20c'; _kind='stat'; _var=''; rowlabel='65-80 yrs'; _xx1='xx (xx%)'; _xx2='xx (xx%)'; _xx3='xx (xx%)'; _xx4='xx (xx%)'; _xx5='xx (xx%)'; output;
_ord=12; _indent=1; _rowid='ffbf34f9-7fec-4171-af70-c3b8fccbae81'; _kind='stat'; _var=''; rowlabel='>80 yrs'; _xx1='xx (xx%)'; _xx2='xx (xx%)'; _xx3='xx (xx%)'; _xx4='xx (xx%)'; _xx5='xx (xx%)'; output;
_ord=13; _indent=0; _rowid='blank-13'; _kind='blank'; _var=''; rowlabel=''; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=14; _indent=0; _rowid='c49ce214-5b03-4059-a1fc-e2ed5d5b0600'; _kind='label'; _var=''; rowlabel='Sex'; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=15; _indent=1; _rowid='7a070020-734f-4dec-8193-924f6ba42da8'; _kind='stat'; _var=''; rowlabel='n'; _xx1='xx'; _xx2='xx'; _xx3='xx'; _xx4='xx'; _xx5='x.xxxx'; output;
_ord=16; _indent=1; _rowid='a4562379-df0a-4f40-b29d-332ec0868fe3'; _kind='stat'; _var=''; rowlabel='Male'; _xx1='xx (xx%)'; _xx2='xx (xx%)'; _xx3='xx (xx%)'; _xx4='xx (xx%)'; _xx5='xx (xx%)'; output;
_ord=17; _indent=1; _rowid='50b906ad-2a17-4049-afaa-2bc3dc473e82'; _kind='stat'; _var=''; rowlabel='Female'; _xx1='xx (xx%)'; _xx2='xx (xx%)'; _xx3='xx (xx%)'; _xx4='xx (xx%)'; _xx5='xx (xx%)'; output;
_ord=18; _indent=0; _rowid='blank-18'; _kind='blank'; _var=''; rowlabel=''; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=19; _indent=0; _rowid='4d2c7cfa-dd72-42ec-9fed-a1b5c2d901ce'; _kind='label'; _var=''; rowlabel='Race (Origin)'; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=20; _indent=1; _rowid='7e9476e3-4ec7-440e-a686-dd98b2eafadd'; _kind='stat'; _var=''; rowlabel='n'; _xx1='xx'; _xx2='xx'; _xx3='xx'; _xx4='xx'; _xx5='x.xxxx'; output;
_ord=21; _indent=1; _rowid='bd4d5f04-77f8-4476-991e-e3405d63853d'; _kind='stat'; _var=''; rowlabel='Caucasian'; _xx1='xx (xx%)'; _xx2='xx (xx%)'; _xx3='xx (xx%)'; _xx4='xx (xx%)'; _xx5='xx (xx%)'; output;
_ord=22; _indent=1; _rowid='2fea7de6-e1c7-4c8a-a5b7-866c2188ee22'; _kind='stat'; _var=''; rowlabel='African Descent'; _xx1='xx (xx%)'; _xx2='xx (xx%)'; _xx3='xx (xx%)'; _xx4='xx (xx%)'; _xx5='xx (xx%)'; output;
_ord=23; _indent=1; _rowid='15759fdb-c71a-45bf-a0bf-0aa3646f1acf'; _kind='stat'; _var=''; rowlabel='Hispanic'; _xx1='xx (xx%)'; _xx2='xx (xx%)'; _xx3='xx (xx%)'; _xx4='xx (xx%)'; _xx5='xx (xx%)'; output;
_ord=24; _indent=1; _rowid='d5352be8-c219-4ebf-afa0-d07174822abd'; _kind='stat'; _var=''; rowlabel='Other'; _xx1='xx (xx%)'; _xx2='xx (xx%)'; _xx3='xx (xx%)'; _xx4='xx (xx%)'; _xx5='xx (xx%)'; output;
_ord=25; _indent=0; _rowid='blank-25'; _kind='blank'; _var=''; rowlabel=''; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=26; _indent=0; _rowid='58d193ef-01dc-4472-9a1d-e0a4ba3a7cc6'; _kind='label'; _var=''; rowlabel='MMSE'; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=27; _indent=1; _rowid='16fcf990-b432-4628-b701-9b72e1415600'; _kind='stat'; _var=''; rowlabel='n'; _xx1='xx'; _xx2='xx'; _xx3='xx'; _xx4='xx'; _xx5='x.xxxx'; output;
_ord=28; _indent=1; _rowid='849f8f43-75a6-40cc-b6b2-fc438e915fc8'; _kind='stat'; _var=''; rowlabel='Mean'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=29; _indent=1; _rowid='2caab52b-7d6b-4a6f-b719-aad966030eb9'; _kind='stat'; _var=''; rowlabel='SD'; _xx1='xx.xx'; _xx2='xx.xx'; _xx3='xx.xx'; _xx4='xx.xx'; _xx5=''; output;
_ord=30; _indent=1; _rowid='563066fb-8bc9-4571-87c0-d98ead50e519'; _kind='stat'; _var=''; rowlabel='Median'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=31; _indent=1; _rowid='73da1a9a-6aad-4211-98e4-df06fcb59771'; _kind='stat'; _var=''; rowlabel='Min'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=32; _indent=1; _rowid='4d22c706-1aec-44ba-9264-ce075e2cb6ec'; _kind='stat'; _var=''; rowlabel='Max'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=33; _indent=0; _rowid='blank-33'; _kind='blank'; _var=''; rowlabel=''; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=34; _indent=0; _rowid='7e64a6e5-cc7f-4250-a2c6-11a5ac3693b0'; _kind='label'; _var=''; rowlabel='Duration of disease [2]'; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=35; _indent=1; _rowid='e8f7612b-8018-4603-add6-05051dfd685f'; _kind='stat'; _var=''; rowlabel='n'; _xx1='xx'; _xx2='xx'; _xx3='xx'; _xx4='xx'; _xx5='x.xxxx'; output;
_ord=36; _indent=1; _rowid='be2072cd-6e31-41ab-990c-370591e9dba6'; _kind='stat'; _var=''; rowlabel='Mean'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=37; _indent=1; _rowid='7ecc4fba-2e4a-49de-9a22-908073597d50'; _kind='stat'; _var=''; rowlabel='SD'; _xx1='xx.xx'; _xx2='xx.xx'; _xx3='xx.xx'; _xx4='xx.xx'; _xx5=''; output;
_ord=38; _indent=1; _rowid='bfc9e5b3-34bf-4cc4-a12a-06625f956318'; _kind='stat'; _var=''; rowlabel='Median'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=39; _indent=1; _rowid='7caedb92-d32e-470e-823b-2384d2d25283'; _kind='stat'; _var=''; rowlabel='Min'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=40; _indent=1; _rowid='b349e913-4198-42f8-9075-a26dc5d58340'; _kind='stat'; _var=''; rowlabel='Max'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=41; _indent=0; _rowid='blank-41'; _kind='blank'; _var=''; rowlabel=''; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=42; _indent=0; _rowid='d49f64b6-e0cf-4565-ab63-de771078409c'; _kind='label'; _var=''; rowlabel='Duration of disease group'; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=43; _indent=1; _rowid='413ee885-e232-4aae-bce8-3cfcefff6035'; _kind='stat'; _var=''; rowlabel='<12 months'; _xx1='xx (xx%)'; _xx2='xx (xx%)'; _xx3='xx (xx%)'; _xx4='xx (xx%)'; _xx5='x.xxxx'; output;
_ord=44; _indent=1; _rowid='adb95604-cbc3-4c2a-b28f-7b37ced298fb'; _kind='stat'; _var=''; rowlabel='>=12 months'; _xx1='xx (xx%)'; _xx2='xx (xx%)'; _xx3='xx (xx%)'; _xx4='xx (xx%)'; _xx5='xx (xx%)'; output;
_ord=45; _indent=0; _rowid='blank-45'; _kind='blank'; _var=''; rowlabel=''; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=46; _indent=0; _rowid='466040ef-584a-4099-bfb3-65fef383d4ff'; _kind='label'; _var=''; rowlabel='Years of education'; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=47; _indent=1; _rowid='27978f88-e6a8-4962-b660-33adb5ffc714'; _kind='stat'; _var=''; rowlabel='n'; _xx1='xx'; _xx2='xx'; _xx3='xx'; _xx4='xx'; _xx5='x.xxxx'; output;
_ord=48; _indent=1; _rowid='619c753d-fff2-4d4e-b1fd-17e3a20d3661'; _kind='stat'; _var=''; rowlabel='Mean'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=49; _indent=1; _rowid='25039230-b415-4b70-9bdb-982b3f8ba980'; _kind='stat'; _var=''; rowlabel='SD'; _xx1='xx.xx'; _xx2='xx.xx'; _xx3='xx.xx'; _xx4='xx.xx'; _xx5=''; output;
_ord=50; _indent=1; _rowid='8f492168-8c9f-43e9-b5a1-b5e6e27c9f55'; _kind='stat'; _var=''; rowlabel='Median'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=51; _indent=1; _rowid='daf3db14-fd5e-4164-8b67-16a329ca3e18'; _kind='stat'; _var=''; rowlabel='Min'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=52; _indent=1; _rowid='a2f166f4-63e9-43b4-b595-a390bbdb08d4'; _kind='stat'; _var=''; rowlabel='Max'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=53; _indent=0; _rowid='blank-53'; _kind='blank'; _var=''; rowlabel=''; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=54; _indent=0; _rowid='dc3b99db-4cd3-4f9d-823e-4bad667bbc80'; _kind='label'; _var=''; rowlabel='Baseline weight(kg)'; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=55; _indent=1; _rowid='bdfc9227-4580-45cb-b7ef-682015a9eb78'; _kind='stat'; _var=''; rowlabel='n'; _xx1='xx'; _xx2='xx'; _xx3='xx'; _xx4='xx'; _xx5='x.xxxx'; output;
_ord=56; _indent=1; _rowid='999fb97f-e57b-432e-b83a-9aec2660d549'; _kind='stat'; _var=''; rowlabel='Mean'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=57; _indent=1; _rowid='8ee7ed1a-6de5-4297-9711-9fc577bde9b3'; _kind='stat'; _var=''; rowlabel='SD'; _xx1='xx.xx'; _xx2='xx.xx'; _xx3='xx.xx'; _xx4='xx.xx'; _xx5=''; output;
_ord=58; _indent=1; _rowid='bde0146f-1257-40a8-be8b-5d506af362ff'; _kind='stat'; _var=''; rowlabel='Median'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=59; _indent=1; _rowid='0e3c6703-7ac8-476d-8117-a42d4ac9444e'; _kind='stat'; _var=''; rowlabel='Min'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=60; _indent=1; _rowid='80b9443b-85a8-426b-b4b7-db5f6c18e79d'; _kind='stat'; _var=''; rowlabel='Max'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=61; _indent=0; _rowid='blank-61'; _kind='blank'; _var=''; rowlabel=''; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=62; _indent=0; _rowid='7a16bb8a-154b-42b1-9cda-bac8dab71253'; _kind='label'; _var=''; rowlabel='Baseline height(cm)'; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=63; _indent=1; _rowid='9fb131d9-a2fb-4af5-89f0-8d59bc20b3bc'; _kind='stat'; _var=''; rowlabel='n'; _xx1='xx'; _xx2='xx'; _xx3='xx'; _xx4='xx'; _xx5='x.xxxx'; output;
_ord=64; _indent=1; _rowid='b706d3f0-af2c-4f1d-854d-78baa4bed1d6'; _kind='stat'; _var=''; rowlabel='Mean'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=65; _indent=1; _rowid='262c10fc-bb3e-4778-9d73-b780df7cb67a'; _kind='stat'; _var=''; rowlabel='SD'; _xx1='xx.xx'; _xx2='xx.xx'; _xx3='xx.xx'; _xx4='xx.xx'; _xx5=''; output;
_ord=66; _indent=1; _rowid='df30dd12-cf6d-411c-9963-d452631507f4'; _kind='stat'; _var=''; rowlabel='Median'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=67; _indent=1; _rowid='ff92a59d-45eb-4fe0-bfac-e079c6fa214f'; _kind='stat'; _var=''; rowlabel='Min'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=68; _indent=1; _rowid='58c0fd7a-3fb5-4843-b345-29329c7e4c2e'; _kind='stat'; _var=''; rowlabel='Max'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=69; _indent=0; _rowid='blank-69'; _kind='blank'; _var=''; rowlabel=''; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=70; _indent=0; _rowid='60c93d87-4e58-468a-99ae-b36473162d2e'; _kind='label'; _var=''; rowlabel='Baseline BMI'; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=71; _indent=1; _rowid='4d1d6621-e7c7-4b4a-bd31-7071c2cad9df'; _kind='stat'; _var=''; rowlabel='n'; _xx1='xx'; _xx2='xx'; _xx3='xx'; _xx4='xx'; _xx5='x.xxxx'; output;
_ord=72; _indent=1; _rowid='e7b8b228-3052-45af-91b1-ef6ad37856a1'; _kind='stat'; _var=''; rowlabel='Mean'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=73; _indent=1; _rowid='2a2d4ebc-b6cd-4320-9742-8cc934d78d58'; _kind='stat'; _var=''; rowlabel='SD'; _xx1='xx.xx'; _xx2='xx.xx'; _xx3='xx.xx'; _xx4='xx.xx'; _xx5=''; output;
_ord=74; _indent=1; _rowid='e88a6a23-a455-4dfd-befb-6f45a5fb873f'; _kind='stat'; _var=''; rowlabel='Median'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=75; _indent=1; _rowid='ef9c0d43-7831-4496-8c57-334518d001a1'; _kind='stat'; _var=''; rowlabel='Min'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=76; _indent=1; _rowid='2ee0e726-43c2-428b-97bf-dccf975de616'; _kind='stat'; _var=''; rowlabel='Max'; _xx1='xx.x'; _xx2='xx.x'; _xx3='xx.x'; _xx4='xx.x'; _xx5=''; output;
_ord=77; _indent=0; _rowid='blank-77'; _kind='blank'; _var=''; rowlabel=''; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=78; _indent=0; _rowid='5ab3897c-b25b-48d6-a968-30ded097ed2a'; _kind='label'; _var=''; rowlabel='BMI group'; _xx1=''; _xx2=''; _xx3=''; _xx4=''; _xx5=''; output;
_ord=79; _indent=1; _rowid='4ae76903-37c0-4e85-ad3e-b07a28f164ea'; _kind='stat'; _var=''; rowlabel='<25'; _xx1='xx (xx%)'; _xx2='xx (xx%)'; _xx3='xx (xx%)'; _xx4='xx (xx%)'; _xx5='x.xxxx'; output;
_ord=80; _indent=1; _rowid='df516e02-d080-4439-9d34-3807e3763f1b'; _kind='stat'; _var=''; rowlabel='25-<30'; _xx1='xx (xx%)'; _xx2='xx (xx%)'; _xx3='xx (xx%)'; _xx4='xx (xx%)'; _xx5='xx (xx%)'; output;
_ord=81; _indent=1; _rowid='363e2366-b23a-4c02-9a74-607231d1cb43'; _kind='stat'; _var=''; rowlabel='>=30'; _xx1='xx (xx%)'; _xx2='xx (xx%)'; _xx3='xx (xx%)'; _xx4='xx (xx%)'; _xx5='xx (xx%)'; output;
run;
/*==== 10-data ====*/
/* Made from the output's analysis: the subjects of ADSL with ITTFL = 'Y', by TRT01P. */
data work._an;
set adam.adsl(where=(ittfl = 'Y'));
if trt01p in ('Placebo') then do; _col = 1; output; end;
if trt01p in ('Xanomeline Low Dose') then do; _col = 2; output; end;
if trt01p in ('Xanomeline High Dose') then do; _col = 3; output; end;
_col = 4; output;
run;
data work._popc; set work._an(keep=usubjid _col); run;
data work._cols; do _col = 1 to 5; output; end; run;
%ls_bign(data=work._popc, trt=_col, values=1|2|3|4|5|1|2|3|4, names=_lsn1 _lsn2 _lsn3 _lsn4 _lsn5 _bign1 _bign2 _bign3 _bign4);
/* Subjects and records per column. */
proc sort data=work._an(keep=usubjid _col) out=work._u; by _col usubjid; run;
data work._c;
set work._u;
by _col usubjid;
retain _n _e;
if first._col then do; _n = 0; _e = 0; end;
_e = _e + 1;
if first.usubjid then _n = _n + 1;
if last._col then output;
keep _col _n _e;
run;
proc transpose data=work._c out=work._tn(drop=_name_) prefix=_n; id _col; var _n; run;
proc transpose data=work._c out=work._te(drop=_name_) prefix=_e; id _col; var _e; run;
data work._z; _z = 1; run;
data work._g0;
merge work._z work._tn work._te;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
do _i = 1 to 5; _nn{_i} = sum(_nn{_i}, 0); _ee{_i} = sum(_ee{_i}, 0); end;
_tot = _n4;
drop _i _z;
run;
/* n: n of AGE. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=_col age) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(age) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
%ls_panova(data=work._an, var=age, cols=1 2 3, out=work._pp5, p=_p5);
data work._f; if _n_ = 1 then set work._pp5; set work._f; run;
data work._k1;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '47fb60b9-23de-4ffb-a035-4ac410748275';
_page = 1;
_pagelbl = '';
_k0 = 2;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 2 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 3 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 4 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 5 then _v = ifc(missing(_p5), '', ifc(round(sum(_p5, 0), 0.0001) < 0.0001, '<0.0001', ifc(round(sum(_p5, 0), 0.0001) > 0.9999, '>0.9999', strip(put(round(sum(_p5, 0), 0.0001), 32.4)))));
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Mean: mean of AGE. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=age, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col age) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(age) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k2;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'bd6b3840-4707-4be5-9c27-5fb2800459a6';
_page = 1;
_pagelbl = '';
_k0 = 3;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* SD: sd of AGE. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=age, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col age) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(age) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k3;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '62f17aff-47b8-485c-8976-f9ccfc6658ea';
_page = 1;
_pagelbl = '';
_k0 = 4;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 2 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 3 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 4 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Median: median of AGE. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=age, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col age) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(age) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k4;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '002b7355-f7b0-4383-92e1-0716d2044caf';
_page = 1;
_pagelbl = '';
_k0 = 5;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Min: min of AGE. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=age, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col age) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(age) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k5;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'a2ad2e68-9fb6-4fcb-abe7-e8f6a7d53080';
_page = 1;
_pagelbl = '';
_k0 = 6;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Max: max of AGE. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=age, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col age) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(age) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k6;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '3ec51321-9e7a-4de0-88c0-c81ba8657ece';
_page = 1;
_pagelbl = '';
_k0 = 7;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* <65 yrs: npct of AGEGR1 = <65. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=usubjid _col agegr1 where=(agegr1 = '<65')) out=work._v; by _col usubjid; run;
data work._v;
set work._v;
by _col usubjid;
retain _vn _ve;
if first._col then do; _vn = 0; _ve = 0; end;
_ve = _ve + 1;
if first.usubjid then _vn = _vn + 1;
if last._col then output;
keep _col _vn _ve;
run;
proc sort data=work._an(keep=usubjid _col agegr1 where=(not missing(agegr1))) out=work._d; by _col usubjid; run;
data work._d;
set work._d;
by _col usubjid;
retain _dn _de;
if first._col then do; _dn = 0; _de = 0; end;
_de = _de + 1;
if first.usubjid then _dn = _dn + 1;
if last._col then output;
keep _col _dn _de;
run;
data work._pc;
set work._an;
if agegr1 = '<65' then _cat = 1;
else if agegr1 = '65-80' then _cat = 2;
else if agegr1 = '>80' then _cat = 3;
if not missing(_cat);
run;
%ls_pchisq(data=work._pc, var=_cat, cols=1 2 3, out=work._pp5, p=_p5);
data work._f; if _n_ = 1 then set work._pp5; set work._f; run;
data work._k7;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._v work._d;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'b4df5100-2a70-4410-9e07-d25e354da0d6';
_page = 1;
_pagelbl = '';
_k0 = 10;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 2 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 3 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 4 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 5 then _v = ifc(missing(_p5), '', ifc(round(sum(_p5, 0), 0.0001) < 0.0001, '<0.0001', ifc(round(sum(_p5, 0), 0.0001) > 0.9999, '>0.9999', strip(put(round(sum(_p5, 0), 0.0001), 32.4)))));
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* 65-80 yrs: npct of AGEGR1 = 65-80. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=usubjid _col agegr1 where=(agegr1 = '65-80')) out=work._v; by _col usubjid; run;
data work._v;
set work._v;
by _col usubjid;
retain _vn _ve;
if first._col then do; _vn = 0; _ve = 0; end;
_ve = _ve + 1;
if first.usubjid then _vn = _vn + 1;
if last._col then output;
keep _col _vn _ve;
run;
proc sort data=work._an(keep=usubjid _col agegr1 where=(not missing(agegr1))) out=work._d; by _col usubjid; run;
data work._d;
set work._d;
by _col usubjid;
retain _dn _de;
if first._col then do; _dn = 0; _de = 0; end;
_de = _de + 1;
if first.usubjid then _dn = _dn + 1;
if last._col then output;
keep _col _dn _de;
run;
data work._k8;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._v work._d;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'b22f7ad4-32c9-45d1-ae0d-2b57dad3d20c';
_page = 1;
_pagelbl = '';
_k0 = 11;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 2 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 3 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 4 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* >80 yrs: npct of AGEGR1 = >80. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=usubjid _col agegr1 where=(agegr1 = '>80')) out=work._v; by _col usubjid; run;
data work._v;
set work._v;
by _col usubjid;
retain _vn _ve;
if first._col then do; _vn = 0; _ve = 0; end;
_ve = _ve + 1;
if first.usubjid then _vn = _vn + 1;
if last._col then output;
keep _col _vn _ve;
run;
proc sort data=work._an(keep=usubjid _col agegr1 where=(not missing(agegr1))) out=work._d; by _col usubjid; run;
data work._d;
set work._d;
by _col usubjid;
retain _dn _de;
if first._col then do; _dn = 0; _de = 0; end;
_de = _de + 1;
if first.usubjid then _dn = _dn + 1;
if last._col then output;
keep _col _dn _de;
run;
data work._k9;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._v work._d;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'ffbf34f9-7fec-4171-af70-c3b8fccbae81';
_page = 1;
_pagelbl = '';
_k0 = 12;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 2 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 3 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 4 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* n: n of SEX. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=_col sex) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(sex) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._pc;
set work._an;
if sex = 'M' then _cat = 1;
else if sex = 'F' then _cat = 2;
if not missing(_cat);
run;
%ls_pchisq(data=work._pc, var=_cat, cols=1 2 3, out=work._pp5, p=_p5);
data work._f; if _n_ = 1 then set work._pp5; set work._f; run;
data work._k10;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '7a070020-734f-4dec-8193-924f6ba42da8';
_page = 1;
_pagelbl = '';
_k0 = 15;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 2 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 3 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 4 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 5 then _v = ifc(missing(_p5), '', ifc(round(sum(_p5, 0), 0.0001) < 0.0001, '<0.0001', ifc(round(sum(_p5, 0), 0.0001) > 0.9999, '>0.9999', strip(put(round(sum(_p5, 0), 0.0001), 32.4)))));
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Male: npct of SEX = M. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=usubjid _col sex where=(sex = 'M')) out=work._v; by _col usubjid; run;
data work._v;
set work._v;
by _col usubjid;
retain _vn _ve;
if first._col then do; _vn = 0; _ve = 0; end;
_ve = _ve + 1;
if first.usubjid then _vn = _vn + 1;
if last._col then output;
keep _col _vn _ve;
run;
proc sort data=work._an(keep=usubjid _col sex where=(not missing(sex))) out=work._d; by _col usubjid; run;
data work._d;
set work._d;
by _col usubjid;
retain _dn _de;
if first._col then do; _dn = 0; _de = 0; end;
_de = _de + 1;
if first.usubjid then _dn = _dn + 1;
if last._col then output;
keep _col _dn _de;
run;
data work._k11;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._v work._d;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'a4562379-df0a-4f40-b29d-332ec0868fe3';
_page = 1;
_pagelbl = '';
_k0 = 16;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 2 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 3 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 4 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Female: npct of SEX = F. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=usubjid _col sex where=(sex = 'F')) out=work._v; by _col usubjid; run;
data work._v;
set work._v;
by _col usubjid;
retain _vn _ve;
if first._col then do; _vn = 0; _ve = 0; end;
_ve = _ve + 1;
if first.usubjid then _vn = _vn + 1;
if last._col then output;
keep _col _vn _ve;
run;
proc sort data=work._an(keep=usubjid _col sex where=(not missing(sex))) out=work._d; by _col usubjid; run;
data work._d;
set work._d;
by _col usubjid;
retain _dn _de;
if first._col then do; _dn = 0; _de = 0; end;
_de = _de + 1;
if first.usubjid then _dn = _dn + 1;
if last._col then output;
keep _col _dn _de;
run;
data work._k12;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._v work._d;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '50b906ad-2a17-4049-afaa-2bc3dc473e82';
_page = 1;
_pagelbl = '';
_k0 = 17;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 2 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 3 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 4 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* n: n of RACEN. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=_col racen) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(racen) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._pc;
set work._an;
if (RACE = 'WHITE' and ETHNIC ne 'HISPANIC OR LATINO') then _cat = 1;
else if (RACE = 'BLACK OR AFRICAN AMERICAN' and ETHNIC ne 'HISPANIC OR LATINO') then _cat = 2;
else if (ETHNIC = 'HISPANIC OR LATINO') then _cat = 3;
else if (RACE not in ('WHITE', 'BLACK OR AFRICAN AMERICAN') and ETHNIC ne 'HISPANIC OR LATINO') then _cat = 4;
if not missing(_cat);
run;
%ls_pchisq(data=work._pc, var=_cat, cols=1 2 3, out=work._pp5, p=_p5);
data work._f; if _n_ = 1 then set work._pp5; set work._f; run;
data work._k13;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '7e9476e3-4ec7-440e-a686-dd98b2eafadd';
_page = 1;
_pagelbl = '';
_k0 = 20;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 2 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 3 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 4 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 5 then _v = ifc(missing(_p5), '', ifc(round(sum(_p5, 0), 0.0001) < 0.0001, '<0.0001', ifc(round(sum(_p5, 0), 0.0001) > 0.9999, '>0.9999', strip(put(round(sum(_p5, 0), 0.0001), 32.4)))));
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Caucasian: npct of RACE where RACE = 'WHITE' and ETHNIC ne 'HISPANIC OR LATINO'. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=usubjid _col race ethnic where=(RACE = 'WHITE' and ETHNIC ne 'HISPANIC OR LATINO')) out=work._v; by _col usubjid; run;
data work._v;
set work._v;
by _col usubjid;
retain _vn _ve;
if first._col then do; _vn = 0; _ve = 0; end;
_ve = _ve + 1;
if first.usubjid then _vn = _vn + 1;
if last._col then output;
keep _col _vn _ve;
run;
proc sort data=work._an(keep=usubjid _col race ethnic where=(not missing(race))) out=work._d; by _col usubjid; run;
data work._d;
set work._d;
by _col usubjid;
retain _dn _de;
if first._col then do; _dn = 0; _de = 0; end;
_de = _de + 1;
if first.usubjid then _dn = _dn + 1;
if last._col then output;
keep _col _dn _de;
run;
data work._k14;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._v work._d;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'bd4d5f04-77f8-4476-991e-e3405d63853d';
_page = 1;
_pagelbl = '';
_k0 = 21;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 2 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 3 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 4 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* African Descent: npct of RACE where RACE = 'BLACK OR AFRICAN AMERICAN' and ETHNIC ne 'HISPANIC OR LATINO'. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=usubjid _col race ethnic where=(RACE = 'BLACK OR AFRICAN AMERICAN' and ETHNIC ne 'HISPANIC OR LATINO')) out=work._v; by _col usubjid; run;
data work._v;
set work._v;
by _col usubjid;
retain _vn _ve;
if first._col then do; _vn = 0; _ve = 0; end;
_ve = _ve + 1;
if first.usubjid then _vn = _vn + 1;
if last._col then output;
keep _col _vn _ve;
run;
proc sort data=work._an(keep=usubjid _col race ethnic where=(not missing(race))) out=work._d; by _col usubjid; run;
data work._d;
set work._d;
by _col usubjid;
retain _dn _de;
if first._col then do; _dn = 0; _de = 0; end;
_de = _de + 1;
if first.usubjid then _dn = _dn + 1;
if last._col then output;
keep _col _dn _de;
run;
data work._k15;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._v work._d;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '2fea7de6-e1c7-4c8a-a5b7-866c2188ee22';
_page = 1;
_pagelbl = '';
_k0 = 22;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 2 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 3 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 4 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Hispanic: npct of RACE where ETHNIC = 'HISPANIC OR LATINO'. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=usubjid _col ethnic race where=(ETHNIC = 'HISPANIC OR LATINO')) out=work._v; by _col usubjid; run;
data work._v;
set work._v;
by _col usubjid;
retain _vn _ve;
if first._col then do; _vn = 0; _ve = 0; end;
_ve = _ve + 1;
if first.usubjid then _vn = _vn + 1;
if last._col then output;
keep _col _vn _ve;
run;
proc sort data=work._an(keep=usubjid _col ethnic race where=(not missing(race))) out=work._d; by _col usubjid; run;
data work._d;
set work._d;
by _col usubjid;
retain _dn _de;
if first._col then do; _dn = 0; _de = 0; end;
_de = _de + 1;
if first.usubjid then _dn = _dn + 1;
if last._col then output;
keep _col _dn _de;
run;
data work._k16;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._v work._d;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '15759fdb-c71a-45bf-a0bf-0aa3646f1acf';
_page = 1;
_pagelbl = '';
_k0 = 23;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 2 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 3 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 4 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Other: npct of RACE where RACE not in ('WHITE', 'BLACK OR AFRICAN AMERICAN') and ETHNIC ne 'HISPANIC OR LATINO'. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=usubjid _col race ethnic where=(RACE not in ('WHITE', 'BLACK OR AFRICAN AMERICAN') and ETHNIC ne 'HISPANIC OR LATINO')) out=work._v; by _col usubjid; run;
data work._v;
set work._v;
by _col usubjid;
retain _vn _ve;
if first._col then do; _vn = 0; _ve = 0; end;
_ve = _ve + 1;
if first.usubjid then _vn = _vn + 1;
if last._col then output;
keep _col _vn _ve;
run;
proc sort data=work._an(keep=usubjid _col race ethnic where=(not missing(race))) out=work._d; by _col usubjid; run;
data work._d;
set work._d;
by _col usubjid;
retain _dn _de;
if first._col then do; _dn = 0; _de = 0; end;
_de = _de + 1;
if first.usubjid then _dn = _dn + 1;
if last._col then output;
keep _col _dn _de;
run;
data work._k17;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._v work._d;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'd5352be8-c219-4ebf-afa0-d07174822abd';
_page = 1;
_pagelbl = '';
_k0 = 24;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 2 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 3 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 4 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* n: n of MMSETOT. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=_col mmsetot) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(mmsetot) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
%ls_panova(data=work._an, var=mmsetot, cols=1 2 3, out=work._pp5, p=_p5);
data work._f; if _n_ = 1 then set work._pp5; set work._f; run;
data work._k18;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '16fcf990-b432-4628-b701-9b72e1415600';
_page = 1;
_pagelbl = '';
_k0 = 27;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 2 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 3 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 4 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 5 then _v = ifc(missing(_p5), '', ifc(round(sum(_p5, 0), 0.0001) < 0.0001, '<0.0001', ifc(round(sum(_p5, 0), 0.0001) > 0.9999, '>0.9999', strip(put(round(sum(_p5, 0), 0.0001), 32.4)))));
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Mean: mean of MMSETOT. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=mmsetot, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col mmsetot) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(mmsetot) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k19;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '849f8f43-75a6-40cc-b6b2-fc438e915fc8';
_page = 1;
_pagelbl = '';
_k0 = 28;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* SD: sd of MMSETOT. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=mmsetot, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col mmsetot) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(mmsetot) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k20;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '2caab52b-7d6b-4a6f-b719-aad966030eb9';
_page = 1;
_pagelbl = '';
_k0 = 29;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 2 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 3 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 4 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Median: median of MMSETOT. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=mmsetot, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col mmsetot) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(mmsetot) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k21;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '563066fb-8bc9-4571-87c0-d98ead50e519';
_page = 1;
_pagelbl = '';
_k0 = 30;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Min: min of MMSETOT. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=mmsetot, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col mmsetot) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(mmsetot) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k22;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '73da1a9a-6aad-4211-98e4-df06fcb59771';
_page = 1;
_pagelbl = '';
_k0 = 31;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Max: max of MMSETOT. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=mmsetot, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col mmsetot) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(mmsetot) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k23;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '4d22c706-1aec-44ba-9264-ce075e2cb6ec';
_page = 1;
_pagelbl = '';
_k0 = 32;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* n: n of DURDIS. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=_col durdis) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(durdis) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
%ls_panova(data=work._an, var=durdis, cols=1 2 3, out=work._pp5, p=_p5);
data work._f; if _n_ = 1 then set work._pp5; set work._f; run;
data work._k24;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'e8f7612b-8018-4603-add6-05051dfd685f';
_page = 1;
_pagelbl = '';
_k0 = 35;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 2 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 3 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 4 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 5 then _v = ifc(missing(_p5), '', ifc(round(sum(_p5, 0), 0.0001) < 0.0001, '<0.0001', ifc(round(sum(_p5, 0), 0.0001) > 0.9999, '>0.9999', strip(put(round(sum(_p5, 0), 0.0001), 32.4)))));
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Mean: mean of DURDIS. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=durdis, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col durdis) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(durdis) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k25;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'be2072cd-6e31-41ab-990c-370591e9dba6';
_page = 1;
_pagelbl = '';
_k0 = 36;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* SD: sd of DURDIS. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=durdis, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col durdis) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(durdis) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k26;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '7ecc4fba-2e4a-49de-9a22-908073597d50';
_page = 1;
_pagelbl = '';
_k0 = 37;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 2 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 3 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 4 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Median: median of DURDIS. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=durdis, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col durdis) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(durdis) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k27;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'bfc9e5b3-34bf-4cc4-a12a-06625f956318';
_page = 1;
_pagelbl = '';
_k0 = 38;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Min: min of DURDIS. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=durdis, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col durdis) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(durdis) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k28;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '7caedb92-d32e-470e-823b-2384d2d25283';
_page = 1;
_pagelbl = '';
_k0 = 39;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Max: max of DURDIS. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=durdis, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col durdis) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(durdis) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k29;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'b349e913-4198-42f8-9075-a26dc5d58340';
_page = 1;
_pagelbl = '';
_k0 = 40;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* <12 months: npct of DURDSGR1 = <12. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=usubjid _col durdsgr1 where=(durdsgr1 = '<12')) out=work._v; by _col usubjid; run;
data work._v;
set work._v;
by _col usubjid;
retain _vn _ve;
if first._col then do; _vn = 0; _ve = 0; end;
_ve = _ve + 1;
if first.usubjid then _vn = _vn + 1;
if last._col then output;
keep _col _vn _ve;
run;
proc sort data=work._an(keep=usubjid _col durdsgr1 where=(not missing(durdsgr1))) out=work._d; by _col usubjid; run;
data work._d;
set work._d;
by _col usubjid;
retain _dn _de;
if first._col then do; _dn = 0; _de = 0; end;
_de = _de + 1;
if first.usubjid then _dn = _dn + 1;
if last._col then output;
keep _col _dn _de;
run;
data work._pc;
set work._an;
if durdsgr1 = '<12' then _cat = 1;
else if durdsgr1 = '>=12' then _cat = 2;
if not missing(_cat);
run;
%ls_pchisq(data=work._pc, var=_cat, cols=1 2 3, out=work._pp5, p=_p5);
data work._f; if _n_ = 1 then set work._pp5; set work._f; run;
data work._k30;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._v work._d;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '413ee885-e232-4aae-bce8-3cfcefff6035';
_page = 1;
_pagelbl = '';
_k0 = 43;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 2 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 3 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 4 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 5 then _v = ifc(missing(_p5), '', ifc(round(sum(_p5, 0), 0.0001) < 0.0001, '<0.0001', ifc(round(sum(_p5, 0), 0.0001) > 0.9999, '>0.9999', strip(put(round(sum(_p5, 0), 0.0001), 32.4)))));
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* >=12 months: npct of DURDSGR1 = >=12. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=usubjid _col durdsgr1 where=(durdsgr1 = '>=12')) out=work._v; by _col usubjid; run;
data work._v;
set work._v;
by _col usubjid;
retain _vn _ve;
if first._col then do; _vn = 0; _ve = 0; end;
_ve = _ve + 1;
if first.usubjid then _vn = _vn + 1;
if last._col then output;
keep _col _vn _ve;
run;
proc sort data=work._an(keep=usubjid _col durdsgr1 where=(not missing(durdsgr1))) out=work._d; by _col usubjid; run;
data work._d;
set work._d;
by _col usubjid;
retain _dn _de;
if first._col then do; _dn = 0; _de = 0; end;
_de = _de + 1;
if first.usubjid then _dn = _dn + 1;
if last._col then output;
keep _col _dn _de;
run;
data work._k31;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._v work._d;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'adb95604-cbc3-4c2a-b28f-7b37ced298fb';
_page = 1;
_pagelbl = '';
_k0 = 44;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 2 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 3 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 4 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* n: n of EDUCLVL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=_col educlvl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(educlvl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
%ls_panova(data=work._an, var=educlvl, cols=1 2 3, out=work._pp5, p=_p5);
data work._f; if _n_ = 1 then set work._pp5; set work._f; run;
data work._k32;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '27978f88-e6a8-4962-b660-33adb5ffc714';
_page = 1;
_pagelbl = '';
_k0 = 47;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 2 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 3 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 4 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 5 then _v = ifc(missing(_p5), '', ifc(round(sum(_p5, 0), 0.0001) < 0.0001, '<0.0001', ifc(round(sum(_p5, 0), 0.0001) > 0.9999, '>0.9999', strip(put(round(sum(_p5, 0), 0.0001), 32.4)))));
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Mean: mean of EDUCLVL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=educlvl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col educlvl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(educlvl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k33;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '619c753d-fff2-4d4e-b1fd-17e3a20d3661';
_page = 1;
_pagelbl = '';
_k0 = 48;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* SD: sd of EDUCLVL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=educlvl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col educlvl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(educlvl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k34;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '25039230-b415-4b70-9bdb-982b3f8ba980';
_page = 1;
_pagelbl = '';
_k0 = 49;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 2 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 3 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 4 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Median: median of EDUCLVL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=educlvl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col educlvl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(educlvl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k35;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '8f492168-8c9f-43e9-b5a1-b5e6e27c9f55';
_page = 1;
_pagelbl = '';
_k0 = 50;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Min: min of EDUCLVL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=educlvl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col educlvl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(educlvl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k36;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'daf3db14-fd5e-4164-8b67-16a329ca3e18';
_page = 1;
_pagelbl = '';
_k0 = 51;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Max: max of EDUCLVL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=educlvl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col educlvl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(educlvl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k37;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'a2f166f4-63e9-43b4-b595-a390bbdb08d4';
_page = 1;
_pagelbl = '';
_k0 = 52;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* n: n of WEIGHTBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=_col weightbl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(weightbl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
%ls_panova(data=work._an, var=weightbl, cols=1 2 3, out=work._pp5, p=_p5);
data work._f; if _n_ = 1 then set work._pp5; set work._f; run;
data work._k38;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'bdfc9227-4580-45cb-b7ef-682015a9eb78';
_page = 1;
_pagelbl = '';
_k0 = 55;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 2 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 3 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 4 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 5 then _v = ifc(missing(_p5), '', ifc(round(sum(_p5, 0), 0.0001) < 0.0001, '<0.0001', ifc(round(sum(_p5, 0), 0.0001) > 0.9999, '>0.9999', strip(put(round(sum(_p5, 0), 0.0001), 32.4)))));
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Mean: mean of WEIGHTBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=weightbl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col weightbl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(weightbl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k39;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '999fb97f-e57b-432e-b83a-9aec2660d549';
_page = 1;
_pagelbl = '';
_k0 = 56;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* SD: sd of WEIGHTBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=weightbl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col weightbl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(weightbl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k40;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '8ee7ed1a-6de5-4297-9711-9fc577bde9b3';
_page = 1;
_pagelbl = '';
_k0 = 57;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 2 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 3 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 4 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Median: median of WEIGHTBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=weightbl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col weightbl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(weightbl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k41;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'bde0146f-1257-40a8-be8b-5d506af362ff';
_page = 1;
_pagelbl = '';
_k0 = 58;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Min: min of WEIGHTBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=weightbl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col weightbl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(weightbl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k42;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '0e3c6703-7ac8-476d-8117-a42d4ac9444e';
_page = 1;
_pagelbl = '';
_k0 = 59;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Max: max of WEIGHTBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=weightbl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col weightbl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(weightbl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k43;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '80b9443b-85a8-426b-b4b7-db5f6c18e79d';
_page = 1;
_pagelbl = '';
_k0 = 60;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* n: n of HEIGHTBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=_col heightbl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(heightbl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
%ls_panova(data=work._an, var=heightbl, cols=1 2 3, out=work._pp5, p=_p5);
data work._f; if _n_ = 1 then set work._pp5; set work._f; run;
data work._k44;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '9fb131d9-a2fb-4af5-89f0-8d59bc20b3bc';
_page = 1;
_pagelbl = '';
_k0 = 63;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 2 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 3 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 4 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 5 then _v = ifc(missing(_p5), '', ifc(round(sum(_p5, 0), 0.0001) < 0.0001, '<0.0001', ifc(round(sum(_p5, 0), 0.0001) > 0.9999, '>0.9999', strip(put(round(sum(_p5, 0), 0.0001), 32.4)))));
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Mean: mean of HEIGHTBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=heightbl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col heightbl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(heightbl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k45;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'b706d3f0-af2c-4f1d-854d-78baa4bed1d6';
_page = 1;
_pagelbl = '';
_k0 = 64;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* SD: sd of HEIGHTBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=heightbl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col heightbl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(heightbl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k46;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '262c10fc-bb3e-4778-9d73-b780df7cb67a';
_page = 1;
_pagelbl = '';
_k0 = 65;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 2 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 3 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 4 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Median: median of HEIGHTBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=heightbl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col heightbl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(heightbl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k47;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'df30dd12-cf6d-411c-9963-d452631507f4';
_page = 1;
_pagelbl = '';
_k0 = 66;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Min: min of HEIGHTBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=heightbl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col heightbl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(heightbl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k48;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'ff92a59d-45eb-4fe0-bfac-e079c6fa214f';
_page = 1;
_pagelbl = '';
_k0 = 67;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Max: max of HEIGHTBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=heightbl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col heightbl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(heightbl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k49;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '58c0fd7a-3fb5-4843-b345-29329c7e4c2e';
_page = 1;
_pagelbl = '';
_k0 = 68;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* n: n of BMIBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=_col bmibl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(bmibl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
%ls_panova(data=work._an, var=bmibl, cols=1 2 3, out=work._pp5, p=_p5);
data work._f; if _n_ = 1 then set work._pp5; set work._f; run;
data work._k50;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '4d1d6621-e7c7-4b4a-bd31-7071c2cad9df';
_page = 1;
_pagelbl = '';
_k0 = 71;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 2 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 3 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 4 then _v = strip(ifc(missing(sum(_vnm, 0)), '-', %ls_num(sum(_vnm, 0), 0)));
else if _col = 5 then _v = ifc(missing(_p5), '', ifc(round(sum(_p5, 0), 0.0001) < 0.0001, '<0.0001', ifc(round(sum(_p5, 0), 0.0001) > 0.9999, '>0.9999', strip(put(round(sum(_p5, 0), 0.0001), 32.4)))));
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Mean: mean of BMIBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=bmibl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col bmibl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(bmibl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k51;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'e7b8b228-3052-45af-91b1-ef6ad37856a1';
_page = 1;
_pagelbl = '';
_k0 = 72;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmean), '-', %ls_num(_vmean, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* SD: sd of BMIBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=bmibl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col bmibl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(bmibl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k52;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '2a2d4ebc-b6cd-4320-9742-8cc934d78d58';
_page = 1;
_pagelbl = '';
_k0 = 73;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 2 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 3 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 4 then _v = strip(ifc(missing(_vsd), '-', %ls_num(_vsd, 2)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Median: median of BMIBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=bmibl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col bmibl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(bmibl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k53;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'e88a6a23-a455-4dfd-befb-6f45a5fb873f';
_page = 1;
_pagelbl = '';
_k0 = 74;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmedian), '-', %ls_num(_vmedian, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Min: min of BMIBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=bmibl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col bmibl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(bmibl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k54;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'ef9c0d43-7831-4496-8c57-334518d001a1';
_page = 1;
_pagelbl = '';
_k0 = 75;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmin), '-', %ls_num(_vmin, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* Max: max of BMIBL. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
%ls_stats(data=work._an, out=work._st, var=bmibl, trt=_col, keepraw=Y);
proc sort data=work._an(keep=_col bmibl) out=work._m; by _col; run;
data work._m;
set work._m;
by _col;
retain _vmiss _vnm;
if first._col then do; _vmiss = 0; _vnm = 0; end;
if missing(bmibl) then _vmiss = _vmiss + 1; else _vnm = _vnm + 1;
if last._col then output;
keep _col _vmiss _vnm;
run;
data work._k55;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._st work._m;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '2ee0e726-43c2-428b-97bf-dccf975de616';
_page = 1;
_pagelbl = '';
_k0 = 76;
_label = '';
if _col = 1 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 2 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 3 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 4 then _v = strip(ifc(missing(_vmax), '-', %ls_num(_vmax, 1)));
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* <25: npct of BMIBLGR1 = <25. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=usubjid _col bmiblgr1 where=(bmiblgr1 = '<25')) out=work._v; by _col usubjid; run;
data work._v;
set work._v;
by _col usubjid;
retain _vn _ve;
if first._col then do; _vn = 0; _ve = 0; end;
_ve = _ve + 1;
if first.usubjid then _vn = _vn + 1;
if last._col then output;
keep _col _vn _ve;
run;
proc sort data=work._an(keep=usubjid _col bmiblgr1 where=(not missing(bmiblgr1))) out=work._d; by _col usubjid; run;
data work._d;
set work._d;
by _col usubjid;
retain _dn _de;
if first._col then do; _dn = 0; _de = 0; end;
_de = _de + 1;
if first.usubjid then _dn = _dn + 1;
if last._col then output;
keep _col _dn _de;
run;
data work._pc;
set work._an;
if bmiblgr1 = '<25' then _cat = 1;
else if bmiblgr1 = '25-<30' then _cat = 2;
else if bmiblgr1 = '>=30' then _cat = 3;
if not missing(_cat);
run;
%ls_pchisq(data=work._pc, var=_cat, cols=1 2 3, out=work._pp5, p=_p5);
data work._f; if _n_ = 1 then set work._pp5; set work._f; run;
data work._k56;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._v work._d;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '4ae76903-37c0-4e85-ad3e-b07a28f164ea';
_page = 1;
_pagelbl = '';
_k0 = 79;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 2 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 3 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 4 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 5 then _v = ifc(missing(_p5), '', ifc(round(sum(_p5, 0), 0.0001) < 0.0001, '<0.0001', ifc(round(sum(_p5, 0), 0.0001) > 0.9999, '>0.9999', strip(put(round(sum(_p5, 0), 0.0001), 32.4)))));
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* 25-<30: npct of BMIBLGR1 = 25-<30. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=usubjid _col bmiblgr1 where=(bmiblgr1 = '25-<30')) out=work._v; by _col usubjid; run;
data work._v;
set work._v;
by _col usubjid;
retain _vn _ve;
if first._col then do; _vn = 0; _ve = 0; end;
_ve = _ve + 1;
if first.usubjid then _vn = _vn + 1;
if last._col then output;
keep _col _vn _ve;
run;
proc sort data=work._an(keep=usubjid _col bmiblgr1 where=(not missing(bmiblgr1))) out=work._d; by _col usubjid; run;
data work._d;
set work._d;
by _col usubjid;
retain _dn _de;
if first._col then do; _dn = 0; _de = 0; end;
_de = _de + 1;
if first.usubjid then _dn = _dn + 1;
if last._col then output;
keep _col _dn _de;
run;
data work._k57;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._v work._d;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = 'df516e02-d080-4439-9d34-3807e3763f1b';
_page = 1;
_pagelbl = '';
_k0 = 80;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 2 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 3 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 4 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
/* >=30: npct of BMIBLGR1 = >=30. */
data work._f; set work._g0; do _col = 1 to 5; output; end; run;
proc sort data=work._an(keep=usubjid _col bmiblgr1 where=(bmiblgr1 = '>=30')) out=work._v; by _col usubjid; run;
data work._v;
set work._v;
by _col usubjid;
retain _vn _ve;
if first._col then do; _vn = 0; _ve = 0; end;
_ve = _ve + 1;
if first.usubjid then _vn = _vn + 1;
if last._col then output;
keep _col _vn _ve;
run;
proc sort data=work._an(keep=usubjid _col bmiblgr1 where=(not missing(bmiblgr1))) out=work._d; by _col usubjid; run;
data work._d;
set work._d;
by _col usubjid;
retain _dn _de;
if first._col then do; _dn = 0; _de = 0; end;
_de = _de + 1;
if first.usubjid then _dn = _dn + 1;
if last._col then output;
keep _col _dn _de;
run;
data work._k58;
length _rowid $36 _label _pagelbl $200 _v $200;
merge work._f(in=_in) work._v work._d;
by _col;
if _in;
array _nn{5} _n1-_n5;
array _ee{5} _e1-_e5;
_rowid = '363e2366-b23a-4c02-9a74-607231d1cb43';
_page = 1;
_pagelbl = '';
_k0 = 81;
_label = '';
if _col = 1 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 2 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 3 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 4 then _v = strip(ifc(missing(sum(_vn, 0)), '-', %ls_num(sum(_vn, 0), 0))) || ' (' || strip(ifc(missing(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .)), '-', %ls_num(ifn(input(symget(cats('_lsn', _col)), 8.) > 0, 100 * sum(_vn, 0) / max(input(symget(cats('_lsn', _col)), 8.), 1), .), 0))) || '%)';
else if _col = 5 then _v = '';
keep _rowid _label _page _pagelbl _k0 _col _v;
run;
data work._cells; set work._k1 work._k2 work._k3 work._k4 work._k5 work._k6 work._k7 work._k8 work._k9 work._k10 work._k11 work._k12 work._k13 work._k14 work._k15 work._k16 work._k17 work._k18 work._k19 work._k20 work._k21 work._k22 work._k23 work._k24 work._k25 work._k26 work._k27 work._k28 work._k29 work._k30 work._k31 work._k32 work._k33 work._k34 work._k35 work._k36 work._k37 work._k38 work._k39 work._k40 work._k41 work._k42 work._k43 work._k44 work._k45 work._k46 work._k47 work._k48 work._k49 work._k50 work._k51 work._k52 work._k53 work._k54 work._k55 work._k56 work._k57 work._k58; run;
proc sort data=work._cells; by _page _pagelbl _k0 _rowid _label _col; run;
proc transpose data=work._cells out=work._wide(drop=_name_) prefix=col;
by _page _pagelbl _k0 _rowid _label;
id _col;
var _v;
run;
proc sort data=work._wide; by _rowid; run;
proc sort data=work._shell(drop=_page _pagelbl) out=work._rows; by _rowid; run;
data work._inst;
merge work._wide(in=_w) work._rows(in=_s);
by _rowid;
if _w and _s;
if _label ne '' then rowlabel = _label;
run;
data work._fixed;
set work._shell;
if _rowid not in ('47fb60b9-23de-4ffb-a035-4ac410748275' 'bd6b3840-4707-4be5-9c27-5fb2800459a6' '62f17aff-47b8-485c-8976-f9ccfc6658ea' '002b7355-f7b0-4383-92e1-0716d2044caf' 'a2ad2e68-9fb6-4fcb-abe7-e8f6a7d53080' '3ec51321-9e7a-4de0-88c0-c81ba8657ece' 'b4df5100-2a70-4410-9e07-d25e354da0d6' 'b22f7ad4-32c9-45d1-ae0d-2b57dad3d20c' 'ffbf34f9-7fec-4171-af70-c3b8fccbae81' '7a070020-734f-4dec-8193-924f6ba42da8' 'a4562379-df0a-4f40-b29d-332ec0868fe3' '50b906ad-2a17-4049-afaa-2bc3dc473e82' '7e9476e3-4ec7-440e-a686-dd98b2eafadd' 'bd4d5f04-77f8-4476-991e-e3405d63853d' '2fea7de6-e1c7-4c8a-a5b7-866c2188ee22' '15759fdb-c71a-45bf-a0bf-0aa3646f1acf' 'd5352be8-c219-4ebf-afa0-d07174822abd' '16fcf990-b432-4628-b701-9b72e1415600' '849f8f43-75a6-40cc-b6b2-fc438e915fc8' '2caab52b-7d6b-4a6f-b719-aad966030eb9' '563066fb-8bc9-4571-87c0-d98ead50e519' '73da1a9a-6aad-4211-98e4-df06fcb59771' '4d22c706-1aec-44ba-9264-ce075e2cb6ec' 'e8f7612b-8018-4603-add6-05051dfd685f' 'be2072cd-6e31-41ab-990c-370591e9dba6' '7ecc4fba-2e4a-49de-9a22-908073597d50' 'bfc9e5b3-34bf-4cc4-a12a-06625f956318' '7caedb92-d32e-470e-823b-2384d2d25283' 'b349e913-4198-42f8-9075-a26dc5d58340' '413ee885-e232-4aae-bce8-3cfcefff6035' 'adb95604-cbc3-4c2a-b28f-7b37ced298fb' '27978f88-e6a8-4962-b660-33adb5ffc714' '619c753d-fff2-4d4e-b1fd-17e3a20d3661' '25039230-b415-4b70-9bdb-982b3f8ba980' '8f492168-8c9f-43e9-b5a1-b5e6e27c9f55' 'daf3db14-fd5e-4164-8b67-16a329ca3e18' 'a2f166f4-63e9-43b4-b595-a390bbdb08d4' 'bdfc9227-4580-45cb-b7ef-682015a9eb78' '999fb97f-e57b-432e-b83a-9aec2660d549' '8ee7ed1a-6de5-4297-9711-9fc577bde9b3' 'bde0146f-1257-40a8-be8b-5d506af362ff' '0e3c6703-7ac8-476d-8117-a42d4ac9444e' '80b9443b-85a8-426b-b4b7-db5f6c18e79d' '9fb131d9-a2fb-4af5-89f0-8d59bc20b3bc' 'b706d3f0-af2c-4f1d-854d-78baa4bed1d6' '262c10fc-bb3e-4778-9d73-b780df7cb67a' 'df30dd12-cf6d-411c-9963-d452631507f4' 'ff92a59d-45eb-4fe0-bfac-e079c6fa214f' '58c0fd7a-3fb5-4843-b345-29329c7e4c2e' '4d1d6621-e7c7-4b4a-bd31-7071c2cad9df' 'e7b8b228-3052-45af-91b1-ef6ad37856a1' '2a2d4ebc-b6cd-4320-9742-8cc934d78d58' 'e88a6a23-a455-4dfd-befb-6f45a5fb873f' 'ef9c0d43-7831-4496-8c57-334518d001a1' '2ee0e726-43c2-428b-97bf-dccf975de616' '4ae76903-37c0-4e85-ad3e-b07a28f164ea' 'df516e02-d080-4439-9d34-3807e3763f1b' '363e2366-b23a-4c02-9a74-607231d1cb43');
_k0 = _ord;
run;
data work.final;
length col1 col2 col3 col4 col5 $200 _pagelbl $200;
set work._inst work._fixed;
run;
proc sort data=work.final; by _page _k0; run;
data work.final;
set work.final;
_ord = _n_;
keep _page _pagelbl _ord _indent _rowid _kind rowlabel col1 col2 col3 col4 col5;
run;
/*==== 90-report ====*/
/* 90-report: from the shell; the titles, columns, headers and footnotes are not changed here. */
%ls_need(_bign1 _bign2 _bign3 _bign4);
%ls_final_check(columns=_page _pagelbl _ord _indent _rowid _kind rowlabel col1 col2 col3 col4 col5);
proc sort data=work.final out=work._report; by _page _ord; run;
data work._report;
set work._report;
/* Two spaces per step of indentation: the label column keeps leading spaces (asis=on). */
if _indent > 0 then rowlabel = repeat(' ', 2 * _indent - 1) || rowlabel;
run;
%let _lspaged = 0;
proc sql noprint; select count(*) into :_lspaged trimmed from work._report where _pagelbl ne ''; quit;
options orientation=landscape;
ods listing close;
ods rtf file="/work/out/t-14-2-01.rtf" style=journal;
title1 j=l "CDISCPILOT01" j=r "Page ~{thispage} of ~{lastpage}";
title2 j=c "Table 14-2.01";
title3 j=c "Summary of Demographic and Baseline Characteristics";
title4 j=c "Intent-to-Treat Analysis Set";
footnote1 j=l "[1] P-values are results of ANOVA treatment group comparison for continuous variable and Pearson's chi-square test for categorical variables.";
footnote2 j=l "[2] Duration of disease is computed as months between date of enrollment and date of onset of the first definite symptoms of Alzheimer's disease.";
footnote3 j=l "Program: t-14-2-01.sas";
%macro _ls_report;
proc report data=work._report nowd split='|' missing style(report)={width=100%};
column _page _pagelbl _ord _indent _kind rowlabel col1 col2 col3 col4 col5;
define _page / order order=internal noprint;
define _pagelbl / order noprint;
define _ord / order order=internal noprint;
define _indent / display noprint;
define _kind / display noprint;
define rowlabel / display "" style(column)={cellwidth=40% asis=on} style(header)={just=l};
define col1 / display "Placebo|(N=&_bign1.)" style(column)={cellwidth=12% just=c} style(header)={just=c};
define col2 / display "Xanomeline Low Dose|(N=&_bign2.)" style(column)={cellwidth=12% just=c} style(header)={just=c};
define col3 / display "Xanomeline High Dose|(N=&_bign3.)" style(column)={cellwidth=12% just=c} style(header)={just=c};
define col4 / display "Total|(N=&_bign4.)" style(column)={cellwidth=12% just=c} style(header)={just=c};
define col5 / display "p-value|[1]" style(column)={cellwidth=12% just=c} style(header)={just=c};
%if &_lspaged > 0 %then %do;
compute before _pagelbl / style={just=l};
line _pagelbl $200.;
endcomp;
%end;
break after _page / page;
run;
%mend _ls_report;
%_ls_report;
ods rtf close;
ods listing;
%ls_final_export;