Procédure CARDINALITY : Variable avec format défini par l'utilisateur

/* 1. Charger le jeu de données SASHELP.CARS en session CAS */ proc cas; session casauto; caslib _all_ assign; data casuser.cars; set sashelp.cars; run; quit; /* 2. Créer un format défini par l'utilisateur pour engineSize */ proc format casfmtlib='casuser.myfmtlib'; value engsize low - <3 = 'Petit moteur' 3 - <6 = 'Moteur moyen' 6 - high= 'Gros moteur'; run; /* 3. Appliquer le format à la variable engineSize et charger en CAS */ data casuser.cars; format engineSize engsize.; set casuser.cars; run; /* 4. Exécuter PROC CARDINALITY avec la variable formatée */ proc cardinality data=casuser.cars outcard=casuser.card outdetails=casuser.details; var engineSize; run; /* 5. Afficher le résumé de cardinalité */ title 'Cardinalité de engineSize avec format défini par l''utilisateur (Basique)'; proc print data=casuser.card; var _VARNAME_ _ORDER_ _MORE_ _CARDINALITY_; run; /* 6. Afficher les détails des niveaux formatés */ title 'Détails des niveaux formatés pour engineSize (Basique)'; proc print data=casuser.details; var _VARNAME_ _INDEX_ _FREQ_ _CFMT_; run;

/* 1. Charger le jeu de données SASHELP.CARS en session CAS */ proc cas; session casauto; caslib _all_ assign; data casuser.cars; set sashelp.cars; run; quit; /* 2. Créer un format défini par l'utilisateur pour engineSize avec une valeur manquante */ proc format casfmtlib='casuser.myfmtlib'; value engsize_plus low - <3 = 'Type A' 3 - <6 = 'Type B' 6 - high= 'Type C' . = 'Non spécifié'; /* Gestion des valeurs manquantes */ run; /* 3. Appliquer le format et introduire des valeurs manquantes */ data casuser.cars_missing; set casuser.cars; if mod(_n_, 10) = 0 then call missing(engineSize); /* Introduire des manquants */ format engineSize engsize_plus.; run; /* 4. Exécuter PROC CARDINALITY avec ORDER=FORMATTED */ proc cardinality data=casuser.cars_missing outcard=casuser.card_ord outdetails=casuser.details_ord; var engineSize; order formatted; run; /* 5. Afficher le résumé de cardinalité */ title 'Cardinalité de engineSize avec format défini par l''utilisateur et manquants (Ordonné par format)'; proc print data=casuser.card_ord; var _VARNAME_ _ORDER_ _MORE_ _CARDINALITY_; run; /* 6. Afficher les détails des niveaux formatés */ title 'Détails des niveaux formatés pour engineSize avec manquants (Ordonné par format)'; proc print data=casuser.details_ord; var _VARNAME_ _INDEX_ _FREQ_ _CFMT_; run;

/* 1. Charger le jeu de données SASHELP.CARS en session CAS */ proc cas; session casauto; caslib _all_ assign; data casuser.cars; set sashelp.cars; run; quit; /* 2. Créer un format défini par l'utilisateur complexe */ proc format casfmtlib='casuser.myfmtlib'; value $fueltype 'Premium' = 'Carburant Premium' 'Regular' = 'Carburant Régulier' other = 'Autre Carburant'; value $drivetrain 'Front' = 'Traction avant' 'Rear' = 'Propulsion' 'All' = 'Quatre roues motrices' other = 'Inconnu'; run; /* 3. Appliquer les formats et filtrer les données */ data casuser.cars_filtered; set casuser.cars; format driveTrain $drivetrain. fueltype $fueltype.; where msrp < 30000 and make in ('Audi', 'BMW', 'Mercedes-Benz'); /* Filtrage avancé */ run; /* 4. Exécuter PROC CARDINALITY sur plusieurs variables formatées */ proc cardinality data=casuser.cars_filtered outcard=casuser.card_adv outdetails=casuser.details_adv maxlevels=10; var driveTrain fueltype; order freq; /* Ordonner par fréquence */ run; /* 5. Afficher les résultats */ title 'Cardinalité des variables formatées (Cas Avancé avec filtrage)'; proc print data=casuser.card_adv; var _VARNAME_ _ORDER_ _MORE_ _CARDINALITY_; run; title 'Détails des niveaux formatés (Cas Avancé avec filtrage)'; proc print data=casuser.details_adv; var _VARNAME_ _INDEX_ _FREQ_ _CFMT_; run;

/* 1. Créer une grande table CAS pour la démonstration */ proc cas; session casauto; caslib _all_ assign; data casuser.large_data; do i = 1 to 100000; /* 100 000 observations */ engineSize_raw = ranuni(12345) * 10; /* Générer des tailles moteur continues */ if engineSize_raw < 3 then engineSize = 1; /* Simuler des groupes pour le format */ else if engineSize_raw < 6 then engineSize = 2; else engineSize = 3; fueltype_raw = rand('UNIFORM') * 3; if fueltype_raw < 1 then fueltype_char = 'Premium'; else if fueltype_raw < 2 then fueltype_char = 'Regular'; else fueltype_char = 'Diesel'; output; end; run; quit; /* 2. Créer les formats définis par l'utilisateur */ proc format casfmtlib='casuser.myfmtlib'; value large_engsize 1 = 'Petite Moteur (CAS)' 2 = 'Moteur Moyen (CAS)' 3 = 'Gros Moteur (CAS)'; value $large_fueltype 'Premium' = 'Carburant Premium (CAS)' 'Regular' = 'Carburant Régulier (CAS)' 'Diesel' = 'Carburant Diesel (CAS)'; run; /* 3. Appliquer les formats à la grande table CAS */ data casuser.large_data; set casuser.large_data; format engineSize large_engsize. fueltype_char $large_fueltype.; run; /* 4. Exécuter PROC CARDINALITY en parallèle sur la grande table */ proc cardinality data=casuser.large_data outcard=casuser.card_large outdetails=casuser.details_large; var engineSize fueltype_char; nthreads=4; /* Utilisation de threads pour une exécution parallèle */ estimate method=exact; /* Assurer un calcul exact de cardinalité */ run; /* 5. Afficher les résultats pour la table volumineuse */ title 'Cardinalité des variables formatées sur une table volumineuse (CAS/Parallèle)'; proc print data=casuser.card_large; var _VARNAME_ _ORDER_ _MORE_ _CARDINALITY_; run; title 'Détails des niveaux formatés sur une table volumineuse (CAS/Parallèle)'; proc print data=casuser.details_large; var _VARNAME_ _INDEX_ _FREQ_ _CFMT_; run; /* 6. Supprimer la table temporaire */ proc cas; session casauto; table.dropTable(name='large_data', caslib='casuser'); table.dropTable(name='card_large', caslib='casuser'); table.dropTable(name='details_large', caslib='casuser'); quit;