Statistiliste seoste illustreerimine
  • Avaleht
  • Sissejuhatus
  • Õpijuhendid
  • Andmete sisestamine
  • Sagedustabeli analüüs
    • Tunnuse jaotuse illustreerimine>
      • Kontrollgraafik 1
    • Tingliku jaotuse graafikud>
      • Kontrollgraafik 2
    • Binaarse tunnuse tõenäosuste graafik>
      • Kontrollgraafik 3
  • Keskmiste võrdlemine
    • Keskmine piiridega>
      • Ühefaktoriline>
        • Kontrollgraafik 4
      • Kahefaktoriline>
        • Kontrollgraafik 5
    • Karp-vurrud diagramm>
      • Ühefaktoriline>
        • Kontrollgraafik 6
      • Kahe-faktoriline>
        • Kontrollgraafik 7
      • Kolme-faktoriline
  • Lineaarse seose uurimine
    • Hajuvusdiagramm ja trendijoon
    • Lineaarne regressioonijoon koos usalduspiiridega>
      • Kontrollgraafik 8
    • Lineaarne regressioon sõltuvalt diskreetsest faktorist >
      • Kontrollgraafik 9
  • Dispersioonanalüüsi mudelid
  • Veel graafikuid koos tekstiga
  • Lõpetuseks
  • Hindamine
    • R käskude test
  • Küsimuste-vastuste foorum
  • Algandmed
  • Viited-lingid
  • Rgraafikud

Lineaarne regressioon sõltuvalt diskreetsest faktorist

Picture
Sellelt jooniselt on näha, et seos pH ja läbipaistvuse vahel sõltub omakorda järvest. Otepää Pikajärve andmetel saame langustrendi - kui pH suureneb, siis läbipaistvus väheneb, Piigandi järve puhul sama väita oleks väga vale.
Statistilise järelduse tegemisel peab olema korrektne, üldistada ei saa seost kõikidele Eesti veekogudele, samuti tuleb olla kindel, et andmed on kogutud sesoonselt samal ajal, bioloogias on tavaliselt sesoonsus üks olulisi faktoreid, mis mõjutab paljude tunnuste väärtusi.
Kuidas faktorite mõju  joonisel kajastada? Fikseerides teatavate faktorite nivood, saame illustreerida tunnustevahelisi seoseid (konkreetsemalt siis kahe erineva pideva arvtunnuse vahel)
Kõrvaloleva graafiku saaksime teha ka nii, et võtame mitte ainult 2 järve, vaid näiteks 2 erinevat tüüpi veekogud ja ühendame nende valimid, järve nime asemel kasutame järve tüüpi.
andmed=read.csv("2jarve.csv")
attach(andmed)
plot(PH, LP,col=NR,pch="*",main="Seos kahe järve andmetel",ylab="Läbipaistvus, m",xlab="pH")
1.järve joon
abline(lm(LP~PH,data=andmed[NR==1084,]),col="blue")
text(7,6,"Piigandi",col=4)
2.järve joon
abline(lm(LP~PH,data=andmed[NR==1078,]),col="red")
text(8.2,1.5,"Otepää Pikajärv",col="red")

 
Eelmine                                                                    Järgmine



Powered by Create your own unique website with customizable templates.