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 computationThu, 22 Nov 2018 11:52:46 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2018/Nov/22/t15428840514pzfs3b6eyyqhs8.htm/, Retrieved Fri, 03 May 2024 15:13:50 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=315686, Retrieved Fri, 03 May 2024 15:13:50 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Cronbach Alpha] [] [2018-11-22 10:52:46] [9e2b27cf675a1d7b8e7da04c0e26bb6a] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
10 10 10 10
8 8 9 15
8 6 12 14
9 10 14 14
5 8 6 8
10 10 13 19
8 7 12 17
9 10 13 18
8 6 6 10
7 7 12 15
10 9 10 16
10 6 9 12
9 7 12 13
4 6 7 10
4 4 10 14
8 6 11 15
9 8 15 20
10 9 10 9
8 8 12 12
5 6 10 13
10 6 12 16
8 10 11 12
7 8 11 14
8 8 12 15
8 7 15 19
9 4 12 16
8 9 11 16
6 8 9 14
8 10 11 14
8 8 11 14
5 6 9 13
9 7 15 18
8 8 12 15
8 5 9 15
8 10 12 15
6 2 12 13
6 6 9 14
9 7 9 15
8 5 11 14
9 8 12 19
10 7 12 16
8 7 12 16
8 10 12 12
7 7 6 10
7 6 11 11
10 10 12 13
8 6 9 14
7 5 11 11
10 8 9 11
7 8 10 16
7 5 10 9
9 8 9 16
9 10 12 19
8 7 11 13
6 7 9 15
8 7 9 14
9 7 12 15
2 2 6 11
6 4 10 14
8 6 12 15
8 7 11 17
7 9 14 16
8 9 8 13
6 4 9 15
10 9 10 14
10 9 10 15
10 8 10 14
8 7 11 12
8 9 10 12
7 7 12 15
10 6 14 17
5 7 10 13
3 2 8 5
2 3 8 7
3 4 7 10
4 5 11 15
2 2 6 9
6 6 9 9
8 8 12 15
8 5 12 14
5 4 12 11
10 10 9 18
9 10 15 20
8 10 15 20
9 9 13 16
8 5 9 15
5 5 12 14
7 7 9 13
9 10 15 18
8 9 11 14
4 8 11 12
7 8 6 9
8 8 14 19
7 8 11 13
7 8 8 12
9 7 10 14
6 6 10 6
7 8 9 14
4 2 8 11
6 5 9 11
10 4 10 14
9 9 11 12
10 10 14 19
8 6 12 13
4 4 9 14
8 10 13 17
5 6 8 12
8 7 12 16
9 7 14 15
8 8 9 15
4 6 10 15
8 5 12 16
10 6 12 15
6 7 9 12
7 6 9 13
10 9 12 14
9 9 15 17
8 7 12 14
3 6 11 14
8 7 8 14
7 7 11 15
7 8 11 11
8 7 10 11
8 8 12 16
7 7 9 12
7 4 11 12
9 10 15 19
9 8 14 18
9 8 6 16
4 2 9 16
6 6 9 13
6 4 8 11
6 4 7 10
8 9 10 14
3 2 6 14
8 6 9 14
8 7 9 16
6 4 7 10
10 10 11 16
2 3 9 7
9 7 12 16
6 4 9 15
6 8 10 17
5 4 11 11
4 5 7 11
7 6 12 10
5 5 8 13
8 9 13 14
6 6 11 13
9 8 11 13
6 4 12 12
4 4 11 10
7 8 12 15
2 4 3 6
8 10 10 15
9 8 13 15
6 5 10 11
5 3 6 14
7 7 11 14
8 6 12 16
4 5 9 12
9 5 10 15
9 9 15 20
9 2 9 12
7 7 6 9
5 7 9 13
7 5 15 15
9 9 15 19
8 4 9 11
6 5 11 11
9 9 9 17
8 7 11 15
7 6 10 14
7 8 9 15
7 7 6 11
8 6 12 12
10 8 13 15
6 6 12 16
6 7 12 16

Tables (Output of Computation)





Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=315686&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]1 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=315686&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315686&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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center






Cronbach Alpha and Related Statistics
ItemsCronbach AlphaStd. AlphaG6(smc)Average R
All itmes0.81040.81920.79230.5311
Intention_to_Use excluded0.75390.75720.69050.5096
Relative_Advantage excluded0.77910.78710.71870.552
Perceived_Usefulness excluded0.75580.78050.71360.5424
Perceived_Ease_of_Use excluded0.75880.7650.69950.5204

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.8104 & 0.8192 & 0.7923 & 0.5311 \tabularnewline
Intention_to_Use excluded & 0.7539 & 0.7572 & 0.6905 & 0.5096 \tabularnewline
Relative_Advantage excluded & 0.7791 & 0.7871 & 0.7187 & 0.552 \tabularnewline
Perceived_Usefulness excluded & 0.7558 & 0.7805 & 0.7136 & 0.5424 \tabularnewline
Perceived_Ease_of_Use excluded & 0.7588 & 0.765 & 0.6995 & 0.5204 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=315686&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.8104[/C][C]0.8192[/C][C]0.7923[/C][C]0.5311[/C][/ROW]
[ROW][C]Intention_to_Use excluded[/C][C]0.7539[/C][C]0.7572[/C][C]0.6905[/C][C]0.5096[/C][/ROW]
[ROW][C]Relative_Advantage excluded[/C][C]0.7791[/C][C]0.7871[/C][C]0.7187[/C][C]0.552[/C][/ROW]
[ROW][C]Perceived_Usefulness excluded[/C][C]0.7558[/C][C]0.7805[/C][C]0.7136[/C][C]0.5424[/C][/ROW]
[ROW][C]Perceived_Ease_of_Use excluded[/C][C]0.7588[/C][C]0.765[/C][C]0.6995[/C][C]0.5204[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=315686&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315686&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.81040.81920.79230.5311
Intention_to_Use excluded0.75390.75720.69050.5096
Relative_Advantage excluded0.77910.78710.71870.552
Perceived_Usefulness excluded0.75580.78050.71360.5424
Perceived_Ease_of_Use excluded0.75880.7650.69950.5204


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par2 = grey ; par3 = FALSE ; par4 = Unknown ;
Parameters (R input):
par1 = TRUE ;
R code (references can be found in the software module):
library(psych)
par1b <- T
if(par1=='FALSE') par1b <- F
z <- t(y)
(r <- alpha(z,check.keys=par1b))
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')