10 Raketi eksperiment
10.1 Õpiväljundid
- otsib, loeb ja mõistab iseseisvalt õppematerjalides olevaid tekste (2);
- teab andmete liike ja andmete kogumise erinevaid meetodeid (mõõtmine, küsimustik) (1); saavutatud:
- iseloomustab andmestikku aritmeetilise keskmise, mediaani, moodi, miinimumi, maksimumi ja ulatuse järgi (4)
- selgitab protsendi, promilli ja protsendipunkti mõiste tähendust (2);
- selgitab tõenäosuse tähendust, arvutab elulistel juhtudel sündmuse tõenäosuse (sh mündivise, täringu veeretamine, kaardimäng, loosimine) (3);
- kasutab protsentarvutusel erinevaid lahendusmeetodeid (ühikumeetod, võrre, skeem, algoritm) (3);
- lahendab protsentarvutuse tüüpülesandeid (osa leidmine, terviku leidmine, osamäära leidmine, suuruse muutumine) (3);
- kasutab tabelarvutusprogrammi andmete esitamiseks, töötlemiseks ja tulemuste tõlgendamiseks (4).
10.2 Eksperimendi valmistamine ja andmete kogumine
Valmista minu juhendamisel paberrakett ja mine spordisaali seda testima! Teosta kaheksa lendu ja iga kord loenda, mitu jalalaba täispikkust mahub otse lennu stardikohast maandumiskohani ning kirjuta tabelisse 10.1 leheküljel .
| Mitu jalalaba täispikkust mahub stardi ja finiši vahele? | Reastatult jalalabade täispikkused |
|---|---|
10.3 Andmeanalüüs paberil
Pärast lendude teostamist ja raporteerimist teostan arvutused lennupikkuste kohta jalalabade täispikkustes:
Aritmeetiline keskmine: .
Mediaan: .
Mood: .
Miinimum: .
Maksimum: .
Ulatus: .
Mitu protsenti erineb mediaan aritmeetilisest keskmisest? .
Mitu promilli erineb mediaan aritmeetilisest keskmisest? .
Kui suur on tõenäosus, et järgmine lend oleks viimasest lennust pikem? .
Kui järgmine lend ongi pikem, siis kui suur on tõenäosus, et kümnes lend on üheksandast pikem? .
Mitu protsendipunkti erineb viimane tõenäosus eelviimasest? .
10.4 Andmeanalüüs R’s
R on programmeerimiskeel, mis on ennekõike statistika jaoks. Kasutame seda, et saaksid kogemuse, kuidas koostada arvutuseeskirja ja arvutile käske anda, enne kui asud tabelarvutussüsteemi kasutama. Alustuseks on vast kõige lihtsam kasutada Positi enda serveril jooksvat RStudiot:
Mine veebilehitsejas aadressile https://posit.cloud/!
Kliki GET STARTED!
Kliki Free!
Kliki Sign Up!
Täida vorm või logi sisse etteantud muu keskkonna kaudu!
Kui oled juba sisse loginud, kliki New Project ja edasi New RStudio Project!
Vali menüüst File, sealt New File ja sealt omakorda R Markdown…! Küsitakse, kas tahad, et vajalikud paketid paigaldataks, millele vasta Yes!
Title välja kirjuta Rakett ja kinnita vajutades OK!
Nüüd saad testida näidisfaili sisu klikkides Knit. Küsitakse, kuhu ja millise nimega fail salvestada, millele vastuseks kirjuta failinimeks rakett! Tulemusena avatakse uues aknas kompileeritud fail.
Et sul pole seda näidissisu vaja, kustuta sellest failist kõik alates reast 6!
-
Lisa see lähtekood reale 6:
```{r label="rocket-r", echo=FALSE, results='asis'} # 1 options(OutDec = ",") # 2 # 3 flights <- c(9, 7, 7, 6, 8, 5, 7, 11) # 4 # 5 number_of_flights <- length(flights) # 6 sum_of_flights <- sum(flights) # 7 average_1 <- sum_of_flights / number_of_flights # 8 # 9 average_2 <- mean(flights) # 10 # 11 print(paste0("Sammhaaval arvutatud aritmeetiline keskmine: ", average_1, ".")) # 12 print(paste0("Funktsiooniga arvutatud aritmeetiline keskmine: ", average_2, ".")) # 13 # 14 median_of_flights <- median(flights) # 15 print(paste0("Mediaan: ", median_of_flights, ".")) # 16 # 17 if (!require("librarian")) { # 18 install.packages("librarian", dependencies = TRUE) # 19 } # 20 library(librarian) # 21 # 22 librarian::shelf(modeest) # 23 print(paste0("Mood: ", mfv(flights), ".")) # 24 # 25 min_of_flights <- min(flights) # 26 max_of_flights <- max(flights) # 27 print(paste0("Miinimum: ", min_of_flights, ".")) # 28 print(paste0("Maksimum: ", max_of_flights, ".")) # 29 print(paste0("Ulatus: ", max_of_flights - min_of_flights, ".")) # 30 # 31 difference_median_mean <- (median_of_flights - average_2) / average_2 # 32 # 33 print(paste0("Mediaani erinevus aritmeetilisest keskmisest protsentides: ", difference_median_mean * 100, ".")) # 34 # 35 print(paste0("Mediaani erinevus aritmeetilisest keskmisest promillides: ", difference_median_mean * 1000, ".")) # 36 # 37 ``` # 38 # 39Real 1 öeldakse knitrile, mis paneb lähtekoodist lõpliku faili kokku, et tegemist on R-keelega, nimetatakse koodiplokk, keelatakse lähtekoodi näitamine ja sisu käsitlemine R Markdownina.
Real 2 öeldakse, et komana kasutatakse koma, mitte punkti nagu vaikimisi.
Reale 4 asenda muutuja
flightsväärtus enda andmetega!Real 6 küsitakse katsete arv ja omistatakse see muutujale
number_of_flights.Real 7 küsitakse lendude summa.
Real 8 arvutatakse aritmeetiline keskmine summa ja katsete arvu jagatisena.
Real 10 arvutatakse aritmeetiline keskmine sisseehitatud funktsiooni
meanabil.Ridadel 12 ja 13 kirjutatakse need kahel viisil arvutatud aritmeetilised keskmised välja funktsiooniga
printning funktsioonpaste0ühendab sellele ette antud osad üheks tekstiks.Real 15 arvutatakse mediaan.
Ridadel 18-21 paigaldatakse ja loetakse sisse teek librarian, millega saab muid teeke hõlpsamini kasutada.
Real 23 kasutataksegi librarian’ga teeki modeest, mis on moe arvutamiseks vajalik, sest selles on funktsioon
mfv.Real 26 arvutatakse katsete väärtuste miinimum ja järgmisel real maksimum.
Real 30 arvutatakse katsete väärtuste ulatus ja kirjutatakse see välja.
Real 32 arvutatakse mediaani ja aritmeetilise keskmise suhteline erinevus ning järgneval kahel real kirjutatakse see välja vastavalt protsentides ja promillides.
R’s ei tohi muutuja nimes olla tühikut. Iga algav jutumärk peab ka lõppema. Iga avanev sulg peab ka sulguma. Funktsiooni sisendid on eraldatud komaga. Sõned on jutumärkides.
10.5 Andmeanalüüs tabelarvutussüsteemis
Vajalik on luua konto minu Nextcloudi aadressil https://nextcloud.ons.ee/apps/registration/. Kui see on tehtud, teata mulle ja ma lisan su meie gruppi, misjärel leia kataloog Sinimäe Põhikool, millesse tee omanimeline alamkaust, kuhu sisse omakorda uus tabelarvutusfail ning järgi minu juhiseid! Kui Nextcloudi enam sisse ei saa, sest liiga palju on proovitud, saad sama teha ka otse ONLYOFFICE’s vastavalt minu juhistele.