Duomenų analizė - SAS programos kodas

DARBO TIKSLAS Ugdyti gebėjimus taikyti teorines statistikos žinias praktikoje, programuoti statistikos uždavinius panaudojant SAS programavimo kalbą, SAS STUDIO, atlikti tiriamąją duomenų analizę, tikrinti hipotezes, apskaičiuoti parametrų pasikliautinuosius intervalus, interpretuoti gautus rezultatus, formuluoti išvadas rengti ataskaitas. 1. UŽDUOTIS Sukurkite biblioteką BIBL, kurioje laikysite visus duomenų failus. 1.1 SAS PROGRAMOS KODAS /***********************************************************************/ /* 1 uzduotis. 2021-09-07 */ /* Autorius : X */ /* *********************************************************************/ libname BIBL "/home/u59376333/X"; run; 2. UŽDUOTIS Suformuoti duomenų failą BIBL.PARD su duomenų eilučių įrašais. 2.1 SAS PROGRAMOS KODAS /***********************************************************************/ /* 2 užduotis. 2021-09-07 */ /* Autorius :X */ /* *********************************************************************/ data bibl.pard; input Nr Valiuta $ Suma; datalines; 101 USA 3295.50 3034 EUR 1876.30 101 USA 2938.00 128 USA 2908.74 1345 EUR 3145.60 109 USA 2789.10 ; proc print data=bibl.pard; run; 2.2 REZULTATAI 3. UŽDUOTIS 1 dalis. Suformuoti SAS duomenų failą BIBL.FLIGHTS, kurio duomenų eilučių įrašai yra faile sfosch.dat, o stulpelių aprašas pateiktas lentelėje. Pasirinkite tik kintamuosius FlightID, RouteID, Destination, Model, DepartDay, and TotPassCap, atspausdinkite pirmus N +5 stebėjimus. 2 dalis. Sukurkite SAS duomenų rinkinį BIBL.FLIGHTS2, kuriame būtų kintamieji FlightID, RouteID, Destination, Model, Date, TotPassCap. Pakeiskite kintamojo Date formatą į datos tipo 12/15/2000 formatą. Išveskite stulpelių pavadinimus (label) vietoj kintamųjų vardų. Atspausdinkite tik 10 stebėjimų. 3.1 SAS PROGRAMOS KODAS /***********************************************************************/ /* 3 uzduotis. 1 dalis 2021-09-08 */ /* Autorius :X */ /* *********************************************************************/ data bibl.flights; infile '/home/u59376333/X/sfosch.dat'; input FlightID $ 1-7 RouteID $ 8-14 Destination $ 18-20 Model $ 21-40 DepartDay 51 TotPassCap 65-67 ; run; proc print data=bibl.flights(firstobs=1 obs=9); run; /***********************************************************************/ /* 3 uzduotis. 2 dalis 2021-09-08 */ /* Autorius :X */ /* *********************************************************************/ data bibl.flights2; infile '/home/u59376333/X/sfosch.dat'; input FlightID $ 1-7 RouteID $ 8-14 Destination $ 18-20 Model $ 21-40 @41 Date date9. TotPassCap 65-67 ; run; proc print data=bibl.flights2 (firstobs=1 obs=10) label; format Date MMDDYY10.; label Model="Aircraft Model" FlightID="Flight ID" RouteID="Route ID" Date="Departure Date" TotPassCap="Total Passenger Capacity" ; run; 3.2 REZULTATAI 1 dalies rezultatai: 2 dalies rezultatai: 4. UŽDUOTIS Suformuoti SAS duomenų failą BIBL.FLIGHTS3, kurio kintamųjų pavadinimai ir duomenų eilučių įrašai yra faile sfoschdates.xls. 4.1 SAS PROGRAMOS KODAS /***********************************************************************/ /* 4 užduotis. 2021-09-08 */ /* Autorius :X */ /* *********************************************************************/ proc import out=BIBL.flights3 datafile="/home/u59376333/X/sfoschdates.xls" dbms=XLS replace; sheet="SFODATA"; getnames=yes; run; proc print data=bibl.flights3; run; 4.2 REZULTATAS 5. UŽDUOTIS Sukurkite SAS duomenų rinkinį BIBL.FLIGHTS4, kuriame būtų failo BIBL.FLIGHTS3 kintamieji FlightID, RouteID, Destination, Model, DepartDay, TotPassCap 5.1 SAS PROGRAMOS KODAS /***********************************************************************/ /* 5 užduotis. 2021-09-08 */ /* Autorius :X */ /* *********************************************************************/ data bibl.flights4; set bibl.flights3; keep FlightID RouteID Destination Model DepartDay TotPassCap; run; proc print data=bibl.flights4; run; 5.2 REZULTATAI 6. UŽDUOTIS SAS žingsniu išveskite informaciją apie visus bibliotekoje BIBL esančius duomenų failus. SAS žingsniu išveskite duomenų failo BIBL.FLIGHTS2 informaciją. 6.1 SAS PROGRAMOS KODAS /***********************************************************************/ /* 6 užduotis. 2021-09-08 */ /* Autorius :X */ /* *********************************************************************/ proc contents data=BIBL._All_; run; proc contents data=BIBL.flights2; run; 6.2 REZULTATAI 7. UŽDUOTIS 7.1 1 dalis Pateikti duomenų failo PASSNGRS visų kintamųjų ir stebėjimų ataskaitą Atask1, kurioje matytųsi stulpelių FClass, BClass, EClass suminės reikšmės. 7.1.1 SAS PROGRAMOS KODAS /***********************************************************************/ /* 7 užduotis. 1 dalis 2021-09-08 */ /* Autorius :X */ /* *********************************************************************/ proc print data=bibl.PASSNGRS; sum FClass BClass EClass; title 'Atask1'; run; 7.1.2 REZULTATAS 7.2 2 dalis Pateikti duomenų failo PASSNGRS skrydžių į ’Seattle’ (Dest=’SEA’) ataskaitą Atask2, kurių EClass - ne mažiau kaip N + 99, o BClass - mažiau už [N/2] + 10. Ataskaitoje turi nebūti eilučių numerių. 7.2.1 SAS PROGRAMOS KODAS /***********************************************************************/ /* 7 užduotis. 2 dalis 2021-09-08 */ /* Autorius :X */ /* *********************************************************************/ proc print data=bibl.PASSNGRS noobs; where Dest='SEA' and EClass GE 103 and BClass LT 12; title 'Atask2'; run; 7.2.2 REZULTATAS 7.3 3 dalis Pateikti duomenų failo PASSNGRS stulpelių FlightID, Depart, EClass ataskaitą Atask3. 7.3.1 SAS PROGRAMOS KODAS /***********************************************************************/ /* 7 užduotis. 3 dalis 2021-09-08 */ /* Autorius :X */ /* *********************************************************************/ proc print data=bibl.PASSNGRS noobs; where Dest='SEA' and EClass GE 103 and BClass LT 12; variables FlightID Depart EClass; title 'Atask3'; run; 7.3.2 REZULTATAS 7.4 4 dalis Panaudokite procedūrą PROC MEANS kintamųjų FClass, BClass, EClass statistinei analizei (min, max, kvartiliai, stebėjimų skaičius) pagal šalį, į kurią vykstama (Dest). 7.4.1 SAS PROGRAMOS KODAS /***********************************************************************/ /* 7 užduotis. 4 dalis 2021-09-08 */ /* Autorius :X */ /* *********************************************************************/ PROC MEANS DATA=bibl.PASSNGRS MIN MAX Q1 MEDIAN Q3 N; VAR FClass BClass EClass; Class Dest; run; 7.4.2 REZULTATAS 8. UŽDUOTIS Iš duomenų failo FLTATTND sukurkite naują laikiną duomenų rinkinį BONUS, kuriame būtų kintamieji EmpID, Salary, BonusAmt, HireDate, Mon. Nauji kintamieji: BonusAmt yra N% priedas nuo atlyginimo (Salary); Mon - darbuotojo įdarbinimo mėnesis (kintamasis Hire date yra įdarbinimo data). Stulpelius Salary, BonusAmt išveskite su dolerio ženklu, be reikšmių po kablelio. Atspausdinkite pirmas 5 eilutes. 8.1 SAS PROGRAMOS KODAS /***********************************************************************/ /* 8 užduotis. 2021-09-08 */ /* Autorius :X */ /* *********************************************************************/ data BONUS; set bibl.FLTATTND; keep EmpID Salary BonusAmt HireDate Mon; BonusAmt=0.04*Salary; Mon=Month(Hiredate); run; proc print data=BONUS(firstobs=1 obs=5); format Salary dollar10.; format BonusAmt dollar10.; run; 8.2 REZULTATAS 9. UŽDUOTIS Iš duomenų failo FLTATTND sukurkite naują laikiną duomenų rinkinį RAISES, kuriame būtų kintamieji EmpID, Salary, Increase, NewSal. Nauji kintamieji: • Increase - priedas prie atlyginimo pagal pareigas, t.y. N+10% priedas nuo atlyginimo (Salary), kai JobCode=’FLTAT1’; N+5% priedas nuo atlyginimo (Salary), kai JobCode=’FLTAT2’; N% priedas nuo atlyginimo (Salary), kai JobCode=’FLTAT3’. • NewSal - naujasis atlyginimas su priedu (Salary + Increase). Stulpelius Salary, Increase, NewSal išveskite su dolerio ženklu, be reikšmių po kablelio. Atspausdinkite pirmas 5 eilutes. 9.1 SAS PROGRAMOS KODAS /***********************************************************************/ /* 9 užduotis. 2021-09-08 */ /* Autorius :X */ /* *********************************************************************/ data RAISES; set bibl.FLTATTND; keep EmpID Salary Increase NewSal; if JobCode='FLTAT1' then Increase=0.14*Salary; else if JobCode='FLTAT2' then Increase=0.09*Salary; else if JobCode='FLTAT3' then Increase=0.04*Salary; NewSal=Salary+Increase; run; proc print data=RAISES(firstobs=1 obs=5); format Salary dollar10.; format Increase dollar10.; format NewSal dollar10.; run; 9.2 REZULTATAS 10. UŽDUOTIS 9 punkto kodą pakoreguokite taip, kad kiekvienam darbuotojui būtų paskaičiuotas metinis priedas BonusAmt taip pat pagal pareigas: N + 9% priedas nuo atlyginimo (Salary), kai JobCode=’FLTAT1’; N + 7% priedas nuo atlyginimo (Salary), kai JobCode=’FLTAT2’; N + 2% priedas nuo atlyginimo (Salary), kai JobCode=’FLTAT3’. Įtraukite tik tas eilutes, kuriose BonusAmt viršija 1000. Naujajame duomenų rinkinyje turi būti EmpID, Salary, Increase, NewSal, BonusAmt. Atspausdinkite pirmas 5 eilutes. 10.1 SAS PROGRAMOS KODAS /***********************************************************************/ /* 10 užduotis. 2021-09-08 */ /* Autorius :X */ /* *********************************************************************/ data RAISES; set bibl.FLTATTND; keep EmpID Salary Increase NewSal BonusAmt; if JobCode='FLTAT1' then Increase=0.14*Salary; else if JobCode='FLTAT2' then Increase=0.09*Salary; else if JobCode='FLTAT3' then Increase=0.04*Salary; NewSal=Salary+Increase; if JobCode='FLTAT1' then BonusAmt=0.13*Salary; else if JobCode='FLTAT2' then BonusAmt=0.11*Salary; else if JobCode='FLTAT3' then BonusAmt=0.06*Salary; run; proc print data=RAISES(firstobs=1 obs=5); format Salary dollar10.; format Increase dollar10.; format NewSal dollar10.; where BonusAmt > 1000; run; 10.2 REZULTATAS 11. UŽDUOTIS 9 punkto kodą pakoreguokite įtraukdami naują simbolinio tipo kintamąjį JobTitle, kurio reikšmės yra: Flight Attendant I, kai JobCode=’FLTAT1’; Flight Attendant II, kai JobCode=’FLTAT2’; Senior Flight Attendant, kai JobCode=’FLTAT3’. Naujajame duomenų rinkinyje turi būti EmpID, Salary, Increase, NewSal, BonusAmt, JobTitle. Atspausdinkite pirmas 5 eilutes. 11.1 SAS PROGRAMOS KODAS /***********************************************************************/ /* 11 užduotis. 2021-09-08 */ /* Autorius :X */ /* *********************************************************************/ data RAISES; set bibl.FLTATTND; keep EmpID Salary Increase NewSal BonusAmt JobTitle; if JobCode='FLTAT1' then Increase=0.14*Salary; else if JobCode='FLTAT2' then Increase=0.09*Salary; else if JobCode='FLTAT3' then Increase=0.04*Salary; NewSal=Salary+Increase; if JobCode='FLTAT1' then BonusAmt=0.13*Salary; else if JobCode='FLTAT2' then BonusAmt=0.11*Salary; else if JobCode='FLTAT3' then BonusAmt=0.06*Salary; if JobCode='FLTAT1' then JobTitle='Flight Attendant I'; else if JobCode='FLTAT2' then JobTitle='Flight Attendant II'; else if JobCode='FLTAT3' then JobTitle='Senior Flight Attendant'; run; proc print data=RAISES(firstobs=1 obs=5); format Salary dollar10.; format Increase dollar10.; format NewSal dollar10.; where BonusAmt > 1000; run; 11.2 REZULTATAS 12. 2 dalies 1 užduotis Duota Y~N(10, 2). Apskaičiuokite tikimybes P(Y>4) ir P(3

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!