-
Notifications
You must be signed in to change notification settings - Fork 0
/
handout3.3.sas
44 lines (43 loc) · 1.15 KB
/
handout3.3.sas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
/**subseting**/
/**choose only comedies**/
data comedy;
input title $ 1-26 year type $;
if type = 'comedy';
datalines;
A midsummer night's dream 1595 comedy
Hamlet 1600 tragedy
Tempest 1611 romance
;
proc print data=comedy;
title 'shakespearean comedy';
run;
/**delete others**/
data comedy2;
input title $ 1-26 year type $;
if type = 'tragedy' or type = 'romance' then delete;
datalines;
A midsummer night's dream 1595 comedy
Hamlet 1600 tragedy
Tempest 1611 romance
;
proc print data=comedy2;
title 'shakespearean comedy';
run;
/**SAS dates**/
/**a numeric value of days since Jan 1st, 1960**/
data librarycards;
input name $11. +1 birthdate date9. +1 issuedate mmddyy10.;
expiredate = issuedate + (365.25*3);
expirequarter = qtr(expiredate);
if issuedate > '01jan2003'd then newcard = 'yes';
datalines;
A.Jones 1jan60 9-15-03
M.Rincon 05oct1949 02-29-2000
Z.Grandage 18mar1988 10-10-2002
K.Kaminaka 29may2001 01-24-2003
;
proc print data = librarycards;
format issuedate mmddyy8. expiredate weekdate17.;
title 'sas date without and with formats';
run;
/**data in wrong format cannot be read**/