代码语言：javascript复制
Data homegarden;
INFILE cards;
INPUT Name $ 1-7 Tomato Zucchini Peas Grapes;
Zone = 14;
Type = 'home';
Zucchini = Zucchini*10;
Total = Tomato Zucchini peas Grapes;
PerTom = (Tomato/Total)*100;
cards;
Gregor 10 2 40 0 14
Molly 15 5 10 1000
Luther 50 10 15 50
Susan 20 0 . 20
;
Proc print Data=homegarden;
Title 'home gardening survey';
run;
Data pumpkin;
inFile cards;
input name $1-16 age type $1. 1 date MMDDYY10. s1 s2 s3 s4 s5;
type = upcase(type);
avgscore = mean(s1,s2,s3,s4,s5);
DayEntered = Day(date);
cards;
Alicia Grossman 13 c 10-28-2003 7.8 6.5 7.2 8.0 7.9
Matthew Lee 9 D 10-30-2003 6.5 5.9 6.8 6.0 8.1
Elizabeth Garcia 10 C 10-29-2003 8.9 7.9 8.5 9.0 8.8
;
proc print data=pumpkin;
run;
data cars;
infile cards;
input name $ year make $ seats color $;
if year < 1975 then status = 'classic';
if name = 'Corvette' or name = 'Camaro' then make = 'Chevy';
if name = 'Miata' then Do;
make = 'mazda';
seats = 2;
end;
cards;
Corvette 1955 . 2 black
XJ6 1995 Jaguar 2 teal
Mustang 1966 Ford 4 red
Miata 2002 . . silver
CRX 2001 Honda 2 black
Camaro 2000 . 4 red
;
proc print data=cars;
run;
data home;
infile cards;
input name $1-7 works $9-33 cost;
if cost = '.' then costgroup = 'missing';
else if cost > 50000 then costgroup = 'high';
else if cost < 10000 then costgroup = 'low';
else costgroup = 'medium';
cards;
Bob Kitchen cabinet face-lift 1253.00
Shirley bathroom addition 11350.70
Silvia paint exterior .
Al backyard gazebo 3098.63
Norm paint interior 647.77
Kathy second floor additon 75362.93
;
proc print data=home;
run;
data Shakespeare;
infile cards;
input name $ 1-25 year type $;
if type = 'comedy';
cards;
A Midsummer Night's Dream 1595 comedy
Comedy of Errors 1590 comedy
Hamlet 1600 tragedy
Macbeth 1606 tragedy
Richard III 1594 history
Romeo and Julirt 1596 tragedy
Taming of the Shrew 1593 comedy
Tempest 1611 romance
;
proc print data=shakespeare;
run;
data date;
infile cards;
input name $1-11 3 birthday date9. 1 IssueDate MMDDYY10.;
ExpireDate = IssueDate (365.25*3);
ExpireQuarter = QTR(ExpireDate);
if IssueDate > '01JAN2003'D then NewCard = 'yes';
cards;
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=date;
Format IssueDate MMDDYY10.;
Format birthday YYMMDD10.;
Format ExpireDate weekdate17.;
run;
data games;
infile cards;
input day $ players $20. hits runs;
retain var 0;
var = sum(var, runs);
retain maxrun 0;
maxrun = max(maxrun, runs);
cards;
6-19 Columbia Peaches 8 3
6-20 Columbia Peaches 10 5
6-23 Plains Peanuts 3 4
6-24 Plains Peanuts 7 2
6-25 Plains Peanuts 12 8
6-30 Gilroy Garlics 4 4
7-1 Gilroy Garlics 9 4
7-4 Sacramento Tomatoes 15 9
7-4 Sacramento Tomatoes 10 10
7-5 Sacramento Tomatoes 2 3
;
proc print data=games;
run;
