SAS Viya : Exportez vos Modèles CAS vers le Disque Local avec PROC ASTORE (Déploiement)

/* Création d'un modèle simple pour démonstration */ data casuser.iris_data; set sashelp.iris; run; proc logistic data=casuser.iris_data outmodel=casuser.my_model; model Species = SepalLength SepalWidth PetalLength PetalWidth; run; /* Téléchargement du modèle ASTORE vers le système de fichiers local */ proc astore; download rstore=casuser.my_model; save_file='/tmp/my_model.astore'; run;

/* Création d'un autre modèle pour démonstration */ data casuser.cars_data; set sashelp.cars; where Make in ('Audi', 'BMW', 'Mercedes-Benz'); run; proc glmselect data=casuser.cars_data outmodel=casuser.auto_model; model Cylinders = Make Type Origin DriveTrain Weight Horsepower MSRP; selection method=stepwise; run; /* Téléchargement du modèle ASTORE avec des options explicites */ proc astore; download rstore=casuser.auto_model caslib=casuser; save_file='/tmp/auto_model.astore'; run;

/* Création d'un troisième modèle pour démonstration */ data casuser.heart_data; set sashelp.heart; where Status='Alive'; run; proc hplogistic data=casuser.heart_data outmodel=casuser.heart_model; model Cholesterol = Smoking_Status_N BP_Status_N Weight_Status_N; run; /* Définir le chemin de téléchargement via une macro-variable */ %let download_path = /tmp/models/heart_model.astore; /* Vérifier l'existence du répertoire de destination et télécharger */ filename _tmp_dir temp; data _null_; rc = fcreate("&download_path", 'f'); if rc = 0 then do; call symputx('dir_exists', '1'); rc = fdelete("&download_path"); end; else call symputx('dir_exists', '0'); run; %if &dir_exists. = 1 %then %do; proc astore; download rstore=casuser.heart_model caslib=casuser; save_file="&download_path"; run; %put Modèle 'heart_model' téléchargé avec succès vers &download_path.; %end; %else %do; %put ERREUR: Le chemin de téléchargement '&download_path' est invalide ou le répertoire n'existe pas/n'est pas accessible.; %end;

/* 1. Création et entraînement d'un modèle simple */ data casuser.sample_data; input x y; datalines; 1 10 2 12 3 14 4 16 5 18 ; run; proc reg data=casuser.sample_data outmodel=casuser.my_linear_model; model y = x; run; /* 2. Téléchargement du modèle ASTORE */ proc astore; download rstore=casuser.my_linear_model; save_file='/tmp/my_linear_model.astore'; run; /* 3. Déconnexion et reconnexion à une nouvelle session CAS (simulée) */ /* Dans un environnement réel, cela impliquerait de fermer la session courante et d'en ouvrir une nouvelle */ /* Pour cet exemple, nous allons simplement simuler en chargeant le modèle dans la même session */ /* et en utilisant une nouvelle 'nom_session_virtuelle' */ /* 4. Chargement du modèle depuis le système de fichiers local vers une nouvelle 'session' CAS */ proc astore; upload rstore=casuser.reloaded_model; restore_file='/tmp/my_linear_model.astore'; run; /* 5. Utilisation du modèle rechargé pour le scoring */ data casuser.new_data; input x; datalines; 6 7 ; run; proc astore; score rstore=casuser.reloaded_model data=casuser.new_data out=casuser.scored_data; run; proc print data=casuser.scored_data; run;