FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_cronbach.wasp
Title produced by softwareCronbach Alpha
Date of computationSat, 16 Oct 2010 13:25:24 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Oct/16/t1287235472n5pceplu6n3di9w.htm/, Retrieved Sun, 28 Apr 2024 10:13:41 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=83765, Retrieved Sun, 28 Apr 2024 10:13:41 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact158

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Cronbach Alpha] [Intrinsic Motivat...] [2010-10-12 11:40:37] [b98453cac15ba1066b407e146608df68]
F    D    [Cronbach Alpha] [Ws 3 - Q2 - Extri...] [2010-10-16 13:25:24] [0829c729852d8a4b1b0c41cf0848af95] [Current]
Feedback Forum
2010-10-24 06:25:26 [6f5a430a34dfbeab884e51a2f2a26434] [reply] 
Je hebt je eerste twee tabellen correct gemaakt, maar de tabel over de external regulation is met de foute gegevens aangemaakt. Het is de bedoeling dat je de vragen 1, 8, 15 en 22 samenbrengt in het tabblad Extr.3. Vervolgens bereken je de som (vb formule eerste rij =SOM(A2:D2)) en neem je de schaal over in de kolom scale.

Gebruik vervolgens de software en geef de gegevens van de kolom sum in.
Je krijgt dan een tabel de tabel die je onder deze link vindt: http://www.freestatistics.org/blog/index.php?v=date/2010/Oct/18/t1287413454rqt69v09hzxbae8.htm/

Ook de interpretaties bij de verschillende waarden zijn niet volledig. Je hebt je voornamelijk gebaseerd op de vuistregel van >0.7, wat op zich niet fout is. Maar je hebt een preciezere tabel gekregen waarmee je betere vergelijkingen kunt maken.

Je ziet dat voor alle items bij de identified regulation een waarde van 0.7394 staat. Het artikel vereist slechts 0.62, wat erop wijst dat de ondervraagden van deze steekproef beter scoren dan wat als normaal aanzien wordt. Het wijst ook op een goede samenhang is tussen de vragen.

De introjected regulation scoort voor alle items 0.7968, wat wel onder de alpha van het artikel ligt (met name 0.84). Het verschil is niet spectaculair groot, dus mag men nog steeds spreken van een goede samenhang tussen de vragen (gebaseerd op de vuistregel).

Bij de external regulation heb ik me op de correcte gegevens gebaseerd (zie bovenstaande link). De score die het artikel vereist is 0.83, wat de groep niet haalt met een alpha van 0.7416. Net zoals bij de introjected regulation kan men niet spreken van een significant verschil en kan men aannemen dat de vragen een goede samenhang vertonen op basis van de vuistregel.

Als men enkele vragen zou weg mogen laten moet men kijken naar de hoogste alpha’s als men een vraag zou weglaten. Ik zou voorstellen om vraag 14 (cronbach alpha= 0.819) weglaten bij de intorjected regulation, aangezien er dan niets spectaculairs veranderd aan de samenhang.

Men kan dus algemeen zeggen dat de ondervraagde groep een zeer goede identified regulation vertoont en over het algemeen een goede externe motivatie heeft.

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
4	7	5	5
5	5	5	6
4	6	5	5
3	6	6	5
6	6	6	6
5	5	5	7
5	7	5	7
1	6	6	7
4	7	7	6
5	6	6	6
6	7	7	6
7	7	6	7
5	6	6	7
6	6	6	7
5	7	6	7
4	6	6	5
7	7	7	7
7	7	7	7
6	7	7	6
6	7	6	6
2	5	5	6
7	7	7	6
5	5	5	4
4	6	7	7
7	7	6	7
1	6	2	5
1	6	2	5
7	6	7	6
4	6	4	2
5	6	4	7
5	6	5	6
5	5	5	6
4	3	4	6
5	3	7	6
5	5	7	6
4	6	4	6
7	7	7	5
7	7	4	6
7	7	6	7
4	6	6	6
7	7	6	7
7	7	6	6
4	6	6	6
3	6	7	6
2	5	6	6
6	6	6	5
4	6	4	6
5	7	7	5
4	6	6	7
7	7	7	5
4	6	6	6
6	5	7	5
7	7	7	7
1	4	2	7
5	7	6	6
4	5	6	6
5	6	5	6
5	7	6	5
5	7	6	6
5	7	6	1
5	7	6	4
5	6	6	5
6	6	4	6
3	6	3	7
4	4	4	4
6	6	7	7
6	6	6	6
3	7	6	5
5	7	7	6
2	7	7	6
7	7	7	7
7	7	5	6
4	6	6	4
6	5	3	6
6	7	6	6
3	5	5	5
3	5	5	5
6	7	6	6
7	7	6	7
3	2	4	5
1	6	4	7
5	6	5	5
5	6	6	5
5	6	5	7
5	5	5	5
6	6	6	5
6	7	7	7
5	5	5	5
7	7	7	4
6	6	7	6
1	5	2	5
3	6	5	7
5	7	4	5
1	7	7	6
6	6	6	6
4	7	7	4
5	6	5	6
5	5	5	5
6	5	4	6
5	6	7	6
5	6	5	6
4	6	4	4
6	6	6	6
6	6	6	7
4	5	5	5
5	5	5	5
5	5	3	5
2	7	5	7
7	7	6	7
5	6	6	5
5	7	7	7
2	7	7	6
3	4	5	4
5	5	5	5
5	7	6	7
5	7	4	5
6	7	7	4
6	6	5	6
4	5	6	7
6	7	7	5
3	4	7	5
6	6	6	6
4	6	6	7
3	3	4	3
4	7	7	7
6	6	6	6
4	7	5	6
6	6	6	6
5	5	5	6
5	6	5	6
5	6	6	5
3	7	6	6
5	6	4	6
4	7	6	6
5	6	7	6
5	6	6	6
1	7	7	7
4	7	7	7
7	7	6	6
4	7	5	6
6	6	5	5
7	7	5	6
6	7	7	6
5	6	3	6
6	7	6	7
5	6	5	5
5	7	7	6
6	6	4	6
5	5	6	6
3	4	4	6
6	7	6	4
7	7	7	6
4	5	4	6
5	7	6	7
4	6	7	7
5	5	5	6
2	6	6	6
7	7	4	4
5	7	4	5
4	6	6	6
2	5	4	5
4	6	3	5

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=83765&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=83765&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=83765&T=0

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24






Cronbach Alpha and Related Statistics
ItemsCronbach AlphaStd. AlphaG6(smc)Average R
All itmes0.56970.58240.53010.2585
Q1 excluded0.51960.52020.43670.2655
Q8 excluded0.4320.4330.3560.2029
Q15 excluded0.41560.43750.3630.2059
Q24 excluded0.60230.62770.53130.3598

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.5697 & 0.5824 & 0.5301 & 0.2585 \tabularnewline
Q1 excluded & 0.5196 & 0.5202 & 0.4367 & 0.2655 \tabularnewline
Q8 excluded & 0.432 & 0.433 & 0.356 & 0.2029 \tabularnewline
Q15 excluded & 0.4156 & 0.4375 & 0.363 & 0.2059 \tabularnewline
Q24 excluded & 0.6023 & 0.6277 & 0.5313 & 0.3598 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=83765&T=1

[TABLE]
[ROW][C]Cronbach Alpha and Related Statistics[/C][/ROW]
[ROW][C]Items[/C][C]Cronbach Alpha[/C][C]Std. Alpha[/C][C]G6(smc)[/C][C]Average R[/C][/ROW]
[ROW][C]All itmes[/C][C]0.5697[/C][C]0.5824[/C][C]0.5301[/C][C]0.2585[/C][/ROW]
[ROW][C]Q1 excluded[/C][C]0.5196[/C][C]0.5202[/C][C]0.4367[/C][C]0.2655[/C][/ROW]
[ROW][C]Q8 excluded[/C][C]0.432[/C][C]0.433[/C][C]0.356[/C][C]0.2029[/C][/ROW]
[ROW][C]Q15 excluded[/C][C]0.4156[/C][C]0.4375[/C][C]0.363[/C][C]0.2059[/C][/ROW]
[ROW][C]Q24 excluded[/C][C]0.6023[/C][C]0.6277[/C][C]0.5313[/C][C]0.3598[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=83765&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=83765&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Cronbach Alpha and Related Statistics
ItemsCronbach AlphaStd. AlphaG6(smc)Average R
All itmes0.56970.58240.53010.2585
Q1 excluded0.51960.52020.43670.2655
Q8 excluded0.4320.4330.3560.2029
Q15 excluded0.41560.43750.3630.2059
Q24 excluded0.60230.62770.53130.3598


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
Parameters (R input):
R code (references can be found in the software module):
library(psych)
z <- t(y)
(r <- alpha(z))
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Cronbach Alpha and Related Statistics',5,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Items',1,TRUE)
a<-table.element(a,'Cronbach Alpha',1,TRUE)
a<-table.element(a,'Std. Alpha',1,TRUE)
a<-table.element(a,'G6(smc)',1,TRUE)
a<-table.element(a,'Average R',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'All itmes',header=TRUE)
a<-table.element(a,round(r$total['raw_alpha'],4))
a<-table.element(a,round(r$total['std.alpha'],4))
a<-table.element(a,round(r$total['G6(smc)'],4))
a<-table.element(a,round(r$total['average_r'],4))
a<-table.row.end(a)
n = length(z[1,])
for (i in 1:n) {
a<-table.row.start(a)
a<-table.element(a,paste(colnames(z)[i],' excluded',sep=''),header=TRUE)
a<-table.element(a,round(r$alpha.drop[i,'raw_alpha'],4))
a<-table.element(a,round(r$alpha.drop[i,'std.alpha'],4))
a<-table.element(a,round(r$alpha.drop[i,'G6(smc)'],4))
a<-table.element(a,round(r$alpha.drop[i,'average_r'],4))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')