Kísérletek tervezése az SPSS programmal

Download Report

Transcript Kísérletek tervezése az SPSS programmal

Kísérletek tervezése és értékelése
az SPSS® programmal
Dr. Huzsvai László
egyetemi docens
[email protected]
1
VIII. Magyar Biometriai és
Biomatematikai Konferencia
Tartalom





2
Kísérlettervezés
A GLM
A modell beállítása
Két és háromtényezős szabadföldi kísérletek
Eredmények formázása
VIII. Magyar Biometriai és
Biomatematikai Konferencia
Kísérlettervezés (ortogonális terv)
3
VIII. Magyar Biometriai és
Biomatematikai Konferencia
Kísérleti terv
4
Ismétlés
1
1
1
1
2
2
2
2
3
3
3
3
4
4
4
4
Öntözés
1
1
2
2
1
2
1
2
2
2
1
1
2
2
1
1
Műtrágya
3
1
2
1
2
1
1
3
3
1
1
2
2
1
1
3
VIII. Magyar Biometriai és
Biomatematikai Konferencia
A GLM
Tests of Between-Subj ects Effects
Dependent Variable: X
Source
Corrected Model
Intercept
FAJTA
Error
Total
Corrected Total
Type III
Sum of
Squares
119.248a
20563.279
119.248
439.184
21121.710
558.431
df
3
1
3
52
56
55
Mean
Square
39.749
20563.279
39.749
8.446
F
4.706
2434.723
4.706
Sig.
.006
.000
.006
a. R Squared = .214 (Adjusted R Squared = .168)
5
VIII. Magyar Biometriai és
Biomatematikai Konferencia
A modell beállítási lehetőségei 1.
6
VIII. Magyar Biometriai és
Biomatematikai Konferencia
A modell beállítási lehetőségei 2.
7
VIII. Magyar Biometriai és
Biomatematikai Konferencia
A modell beállítási lehetőségei 3.
8
VIII. Magyar Biometriai és
Biomatematikai Konferencia
Kéttényezős sávos elrendezés
(Strip plot)
9
VIII. Magyar Biometriai és
Biomatematikai Konferencia
Kéttényezős sávos elrendezés
modellje

Yijk = m + Ri + Aj + eij + Bk + eik + ABjk + eijk
Tényező
Eltérés
10
SS df
1
MS F Sig.
DESIGN
Ismétlés
r-1
ismétlés
A tényező
a-1
Atényező
Hiba (a)
(r-1)(a-1)
Atényező*ismétlés
B tényező
b-1
Btényező
Hiba (b)
(r-1)(b-1)
Btényező*ismétlés
AxB kölcsönhatás
(a-1)(b-1)
Atényező*Btényező
Hiba (a x b)
(r-1)(a-1)(b-1)
VIII. Magyar Biometriai és
Biomatematikai Konferencia
Három tényezős kétszeresen osztott
parcellás elrendezés (Split split plot)
(1) ismétlés
Fő parcella
Al parcella
A1
(2) ismétlés
A2
A1
B1
B2
B2
B1
B2
B1
B1
B2
c1
c4
c3
c2
c2
c3
c4
c1
c2
c2
c4
c1
c1
c4
c2
c2
c3
c3
c1
c4
c4
c1
c3
c3
c4
c1
c2
c3
c3
c2
c1
c4
Osztó területek
11
A2
Osztó területek
VIII. Magyar Biometriai és
Biomatematikai Konferencia
Kétszeresen osztott parcellás
elrendezés modellje

Yijkl = m + Ri + Aj + eij + Bk + ABjk + eijk + Cl + ACji + BCki + ABCjkl + eijkl
Tényező
12
SS
df
MS
F
Sig.
DESIGN
Eltérés
1
Ismétlés
r-1
ismétlés
A tényező
a-1
toszam
Hiba (a)
(r-1)(a-1)
ismetlés*toszam
B tényező
b-1
hibrid
AxB kölcsönhatás
(a-1)(b-1)
hibrid*toszam
Hiba (b)
a(r-1)(b-1)
toszam(hibrid*ismetles)
C tényező
c-1
tragya
AxC kölcsönhatás
(a-1)(c-1)
toszam*tragya
BxC kölcsönhatás
(b-1)(c-1)
hibrid*tragya
AxBxC
(a-1)(b-1)(c-1)
hibrid*toszam*tragya
Hiba (c)
ab(r-1)(c-1)
VIII. Magyar Biometriai és
Biomatematikai Konferencia
Eredménytáblázat
Tests of Between-Subjects Effects
Dependent Variable: Termés kg/parcella
Source
Intercept
atényező
btényező
ismétlés
atényező * btényező
atényező * ismétlés
btényező * ismétlés
atényező * btényező
* ismétlés
Hypothesis
Error
Hypothesis
Error
Hypothesis
Error
Hypothesis
Error
Hypothesis
Error
Hypothesis
Error
Hypothesis
Error
Hypothesis
Error
Type III Sum
of Squares
1393207,500
2719,667
57965,000
3669,333
2,700
1371,133
2719,667
1979,735
2007,800
2343,867
3669,333
2343,867
1371,133
2343,867
2343,867
,000
df
1
4
2
8
1
4
4
3,894
2
8
8
8
4
8
8
0
Mean Square
1393207,500
679,917a
28982,500
458,667b
2,700
342,783c
679,917
508,467d
1003,900
292,983e
458,667
292,983e
342,783
292,983e
292,983
.f
F
2049,086
Sig.
,000
63,189
,000
,008
,934
1,337
,395
3,426
,084
1,566
,270
1,170
,392
.
.
a. MS(ismétlés)
b. MS(atényező * ismétlés)
c. MS(btényező * ismétlés)
d. MS(atényező * ismétlés) + 1,000 MS(btényező * ismétlés) - 1,000 MS(atényező * btényező *
ismétlés)
13
e. MS(atényező * btényező * ismétlés)
f. MS(Error)
VIII. Magyar Biometriai és
Biomatematikai Konferencia
Táblázat formázása
14
VIII. Magyar Biometriai és
Biomatematikai Konferencia
Módosított Autoscript fájl



Sub UNIANOVA_Table_TestofBetweenSubjectsMixedEffects_Create(objTable As Object, objOutputDoc As Object, lngIndex As
Long)
'Autoscript
'Trigger Event: TestofBetweenSubjectsMixedEffects Table Creation after running UNIANOVA procedure.
Dim bolSelection As Boolean
Call HideRowLabelsAndData(objTable, "* ismétlés", bolSelection)








End Sub
Sub HideRowLabelsAndData(objPivotTable As Object, strSearchString As String, bolSelect As Boolean)
'Purpose: Goes through RowLabels and finds any label containing strSearchString.
'
If strSearchString is found in label, the label and its associated data are selected.
'Effects: Label and data are selected if the label is found to contain strSearchString
Dim objRowLabels As ISpssLabels
Dim intCurRow,intCurCol As Integer


bolSelect = False
Set objRowLabels = objPivotTable.RowLabelArray
For intCurRow = 0 To objRowLabels.NumRows - 1
For intCurCol = 0 To objRowLabels.NumColumns - 1
If InStr(CStr(objRowLabels.ValueAt(intCurRow,intCurCol)), strSearchString) Then
objRowLabels.HideLabelsWithDataAt intCurRow, intCurCol
bolSelect = True
End If
Next intCurCol
VIII. Magyar Biometriai és
Next intCurRow









15


End Sub
Biomatematikai Konferencia
Módosított táblázat
Tests of Between-Subjects Effects
Dependent Variable
Source
Intercept
atényező
btényező
ismétlés
atényező *
btényező
Hypothesis
Error
Hypothesis
Error
Hypothesis
Error
Hypothesis
Error
Hypothesis
Error
Type III Sum
of Squares
1393207,500
2719,667
57965,000
3669,333
2,700
1371,133
2719,667
1979,735
2007,800
2343,867
df
1
4
2
8
1
4
4
3,894
2
8
Mean Square
1393207,500
679,917a
28982,500
458,667b
2,700
342,783c
679,917
508,467d
1003,900
292,983e
F
2049,086
Sig.
,000
63,189
,000
,008
,934
1,337
,395
3,426
,084
a. MS(ismétlés)
b. MS(atényező * ismétlés)
c. MS(btényező * ismétlés)
d. MS(atényező * ismétlés) + 1,000 MS(btényező * ismétlés) - 1,000 MS(atényező *
btényező * ismétlés)
e. MS(atényező * btényező * ismétlés)
16
VIII. Magyar Biometriai és
Biomatematikai Konferencia
Beállítások
17
VIII. Magyar Biometriai és
Biomatematikai Konferencia
www.agroland.hu/tudomany
18
[email protected]
VIII. Magyar Biometriai és
Biomatematikai Konferencia