options ls=132; data bagnole; INFILE 'c:\Gilbert\données\bagnoles\Bagnole.dat' firstobs=2 ; LENGTH NOM $ 20 ;INPUT NOM $ CYL PUIS LON LAR POIDS VITESSE NAT $ FINITION $ PRIX ; ods graphics on; Proc print; title Données pour regression; run; proc reg; title Regression OLS; id nom; model prix=cyl puis lon lar poids vitesse/AIC BIC ADJRSQ CP selection=ADJRSQUARE ; run; proc reg; title Regression OLS; id nom; model prix=cyl puis lon lar poids vitesse/r clm cli vif; run; proc reg data=bagnole; title Regression pas a pas ascendante; model prix= cyl puis lon lar poids vitesse/selection=F r cli vif AIC BIC slentry=0.15; run; proc reg data= bagnole; model prix= cyl puis lon lar poids vitesse/selection= adjrsq BIC; run; proc glm data=bagnole; Title Modele lineaire avec une variable qualitative; class finition; model prix= puis poids finition/solution; run; proc reg data=bagnole outest=b ridge=0 to 0.5 by .002; model prix= cyl puis lon lar poids vitesse; plot / ridgeplot nomodel legend=legend2 nostat vref=0 lvref=1 cvref=blue; run; proc reg data=bagnole outest=b1 ridge=0.25; title Regression ridge ; model prix= cyl puis lon lar poids vitesse/gmsep; run; proc print data=b1; run; proc reg data=bagnole pcomit=1 to 5 outest= RCP ; title Regression sur composantes principales; model prix = cyl puis lon lar poids vitesse; RUN; Proc print data=RCP; var _PCOMIT_ _RMSE_ Intercept CYL PUIS LON LAR POIDS VITESSE ; run; Proc pls data=bagnole cvtest cv=one ; title Regression PLS; model prix=cyl puis lon lar poids vitesse/ solution; output out=plsbag predicted=py ; proc print data=plsbag; run; proc reg data=plsbag; model prix=py;run; Proc pls data=bagnole cvtest cv=one ; class finition; model prix=cyl puis lon lar poids vitesse finition/ solution; output out=plsbag2 predicted=py2 ; run; proc print data=plsbag2; run; ods graphics on; proc glmselect data=bagnole plots=all; model prix=cyl puis lon lar poids vitesse / selection=lasso (stop=7 choose=BIC); run; proc glmselect data=bagnole plots=all; model prix=cyl puis lon lar poids vitesse / selection=lasso (stop=7 lscoeffs choose=Press); run;