Summer 2008 1 7 12 14 16 16 16
SAS Academic News
B-8 4 B-9 6 B-11 7 B-15 10 DATA _NULL_; dlm=","; char1="" char2="" char3="15" char4="a",,15,a results=catx(dlm, OF char1-char4); PUT results; DATA test; INPUT id $ age $; CARDS; A-1 10 A-2 15 A-3 9 A-5 5 A-8 6 A-9 3 A-10 12 A-12 7 B-3 9 B-5 3 B-8 4 B-9 6 B-11 7 B-15 10 ; DATA test2; FORMAT id3 age; SET test; ID1 = SCAN(id,1,'-'); /* */ /* */ ID2 = PUT(INPUT(SCAN(id,2,'-'),best.),Z2.); /* */ ID3 = CATX('-',id1,id2); PROC SORT DATA=test2(KEEP = id3 age); BY id3; id age A-1 10 A-2 15 A-3 9 A-5 5 A-8 6 A-9 3 A-10 12 A-12 7 B-3 9 B-5 3
NO NAME 1 aaaaaa 2 aaaaaa 2 bbbbbb 3 cccccc 3 dddddd 3 eeeeee 4 ffffff NO dn1 1 aaaaaa 2 aaaaaa 3 cccccc 4 ffffff dn2 bbbbbb dddddd dn3 eeeeee DATA a; LENGTH no 8 name $ 6; INPUT no name $; CARDS; 1 AAAAAA 2 AAAAAA 2 BBBBBB 3 CCCCCC 3 DDDDDD 3 EEEEEE 4 FFFFFF ; PROC SORT DATA=work.a; BY no; PROC TRANSPOSE DATA=work.a OUT=work.b(DROP=_name_) PREFIX=dn; BY no; VAR name; FILENAME xl DDE "EXCEL [BOOK1]SHEET1!C1:C10"; DATA _NULL_; SET sashelp.class; t='09'x; FILE xl DSD DLM=t; PUT t name t age t sex t weight t height;
DATA sample; var1 = NLDATM(DATETIME(),'%Y%N%D%p%I%M%S'); var2 = NLDATM(DATETIME(),'%Y%N%D%p%I %M%S'); /* */ ODS OUTPUT PARAMETERESTIMATES=est; PROC REG DATA=sashelp.class; MODEL weight=height; QUIT; /* ANNOTATE */ DATA anno; LENGTH text $50; SET est; RETAIN XSYS YSYS '1' POSITION '6' WHEN 'A' SIZE 1.5 COLOR 'red' STYLE 'simplex' text; /* IF VARIABLE='Intercept' THEN DO; FUNCTION='LABEL'; X=2; Y=90; text="regression Equation:"; OUTPUT; text=trim(dependent) " = " TRIM(LEFT(PUT(ESTIMATE,10.4))); END; /* ELSE DO; FUNCTION='LABEL'; X=2; Y=85; IF ESTIMATE < 0 THEN text=trim(text) TRIM(LEFT(PUT(ESTIMATE,10.4))) " *" VARIABLE; ELSE text=trim(text) " +" TRIM(LEFT(PUT(ESTIMATE,10.4))) " *" VARIABLE; OUTPUT; END; /* PROC GPLOT DATA=sashelp.class; PLOT weight*height / ANNOTATE=anno; SYMBOL I=R V=dot C=blue; QUIT; SAS Training
Summer 2008 TEL:03-3533-3877 FAX:03-3533-3781