Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_cronbach.wasp

Title produced by software

Cronbach Alpha

Date of computation

Thu, 09 Dec 2021 17:43:29 +0100

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2021/Dec/09/t1639068479cleu6efzizf11ft.htm/, Retrieved Tue, 14 May 2024 07:51:37 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=319575, Retrieved Tue, 14 May 2024 07:51:37 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Cronbach Alpha] [Prueba Diagnóstica] [2021-12-09 16:43:29] [d41d8cd98f00b204e9800998ecf8427e] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

2	4	4	4	4	4	3	1	2	1	3	3	2	3	3	1	1	1
2	3	2	4	1	1	1	1	2	3	2	1	4	2	1	2	3	3
3	3	4	1	4	4	1	2	2	3	2	4	4	2	4	4	2	3
2	4	1	1	2	1	1	1	1	1	1	2	4	1	1	1	2	2
3	2	1	1	2	3	4	1	1	1	3	3	4	4	4	3	2	4
2	1	4	1	1	1	1	2	3	1	4	1	1	2	1	2	2	3
3	3	2	1	2	1	2	1	4	2	2	4	1	2	4	1	2	3
2	2	4	1	1	4	1	2	1	1	4	1	2	2	1	1	2	1
2	1	2	2	2	2	3	2	3	3	2	4	3	2	3	2	4	3
4	1	4	1	1	1	2	1	4	2	2	4	4	2	2	1	2	3
3	1	2	1	1	2	2	1	4	1	2	1	2	2	4	4	3	3
3	3	4	1	1	2	2	1	4	2	2	4	4	2	4	1	2	3

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	Big 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=319575&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=319575&T=0

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

As an alternative you can also use a 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 Output	view raw output of R engine
Computing time	1 seconds
R Server	Big Analytics Cloud Computing Center

Cronbach Alpha and Related Statistics
Items	Cronbach Alpha	Std. Alpha	G6(smc)	Average R
All itmes	0.5697	0.5455	1	0.0625
Q1 excluded	0.5454	0.5199	1	0.0599
Q2 excluded	0.6087	0.5989	1	0.0807
Q3 excluded	0.5902	0.5587	1	0.0693
Q4 excluded	0.5938	0.5704	1	0.0725
Q5 excluded	0.5073	0.493	1	0.0541
Q6 excluded	0.5292	0.5042	1	0.0564
Q7 excluded	0.522	0.491	1	0.0537
Q8 excluded	0.5789	0.572	1	0.0729
Q9 excluded	0.5943	0.5617	1	0.0701
Q10 excluded	0.5317	0.4957	1	0.0547
Q11 excluded	0.614	0.5969	1	0.0801
Q12 excluded	0.471	0.4615	1	0.048
Q13 excluded	0.5699	0.5413	1	0.0649
Q14 excluded	0.5293	0.4864	1	0.0528
Q15 excluded	0.4476	0.4417	1	0.0445
Q16 excluded	0.5468	0.5064	1	0.0569
Q17 excluded	0.5928	0.5769	1	0.0742
Q18 excluded	0.5552	0.519	1	0.0597

\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.5455 & 1 & 0.0625 \tabularnewline
Q1 excluded & 0.5454 & 0.5199 & 1 & 0.0599 \tabularnewline
Q2 excluded & 0.6087 & 0.5989 & 1 & 0.0807 \tabularnewline
Q3 excluded & 0.5902 & 0.5587 & 1 & 0.0693 \tabularnewline
Q4 excluded & 0.5938 & 0.5704 & 1 & 0.0725 \tabularnewline
Q5 excluded & 0.5073 & 0.493 & 1 & 0.0541 \tabularnewline
Q6 excluded & 0.5292 & 0.5042 & 1 & 0.0564 \tabularnewline
Q7 excluded & 0.522 & 0.491 & 1 & 0.0537 \tabularnewline
Q8 excluded & 0.5789 & 0.572 & 1 & 0.0729 \tabularnewline
Q9 excluded & 0.5943 & 0.5617 & 1 & 0.0701 \tabularnewline
Q10 excluded & 0.5317 & 0.4957 & 1 & 0.0547 \tabularnewline
Q11 excluded & 0.614 & 0.5969 & 1 & 0.0801 \tabularnewline
Q12 excluded & 0.471 & 0.4615 & 1 & 0.048 \tabularnewline
Q13 excluded & 0.5699 & 0.5413 & 1 & 0.0649 \tabularnewline
Q14 excluded & 0.5293 & 0.4864 & 1 & 0.0528 \tabularnewline
Q15 excluded & 0.4476 & 0.4417 & 1 & 0.0445 \tabularnewline
Q16 excluded & 0.5468 & 0.5064 & 1 & 0.0569 \tabularnewline
Q17 excluded & 0.5928 & 0.5769 & 1 & 0.0742 \tabularnewline
Q18 excluded & 0.5552 & 0.519 & 1 & 0.0597 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319575&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.5455[/C][C]1[/C][C]0.0625[/C][/ROW]
[ROW][C]Q1 excluded[/C][C]0.5454[/C][C]0.5199[/C][C]1[/C][C]0.0599[/C][/ROW]
[ROW][C]Q2 excluded[/C][C]0.6087[/C][C]0.5989[/C][C]1[/C][C]0.0807[/C][/ROW]
[ROW][C]Q3 excluded[/C][C]0.5902[/C][C]0.5587[/C][C]1[/C][C]0.0693[/C][/ROW]
[ROW][C]Q4 excluded[/C][C]0.5938[/C][C]0.5704[/C][C]1[/C][C]0.0725[/C][/ROW]
[ROW][C]Q5 excluded[/C][C]0.5073[/C][C]0.493[/C][C]1[/C][C]0.0541[/C][/ROW]
[ROW][C]Q6 excluded[/C][C]0.5292[/C][C]0.5042[/C][C]1[/C][C]0.0564[/C][/ROW]
[ROW][C]Q7 excluded[/C][C]0.522[/C][C]0.491[/C][C]1[/C][C]0.0537[/C][/ROW]
[ROW][C]Q8 excluded[/C][C]0.5789[/C][C]0.572[/C][C]1[/C][C]0.0729[/C][/ROW]
[ROW][C]Q9 excluded[/C][C]0.5943[/C][C]0.5617[/C][C]1[/C][C]0.0701[/C][/ROW]
[ROW][C]Q10 excluded[/C][C]0.5317[/C][C]0.4957[/C][C]1[/C][C]0.0547[/C][/ROW]
[ROW][C]Q11 excluded[/C][C]0.614[/C][C]0.5969[/C][C]1[/C][C]0.0801[/C][/ROW]
[ROW][C]Q12 excluded[/C][C]0.471[/C][C]0.4615[/C][C]1[/C][C]0.048[/C][/ROW]
[ROW][C]Q13 excluded[/C][C]0.5699[/C][C]0.5413[/C][C]1[/C][C]0.0649[/C][/ROW]
[ROW][C]Q14 excluded[/C][C]0.5293[/C][C]0.4864[/C][C]1[/C][C]0.0528[/C][/ROW]
[ROW][C]Q15 excluded[/C][C]0.4476[/C][C]0.4417[/C][C]1[/C][C]0.0445[/C][/ROW]
[ROW][C]Q16 excluded[/C][C]0.5468[/C][C]0.5064[/C][C]1[/C][C]0.0569[/C][/ROW]
[ROW][C]Q17 excluded[/C][C]0.5928[/C][C]0.5769[/C][C]1[/C][C]0.0742[/C][/ROW]
[ROW][C]Q18 excluded[/C][C]0.5552[/C][C]0.519[/C][C]1[/C][C]0.0597[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=319575&T=1

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

As an alternative you can also use a QR Code:

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

Cronbach Alpha and Related Statistics
Items	Cronbach Alpha	Std. Alpha	G6(smc)	Average R
All itmes	0.5697	0.5455	1	0.0625
Q1 excluded	0.5454	0.5199	1	0.0599
Q2 excluded	0.6087	0.5989	1	0.0807
Q3 excluded	0.5902	0.5587	1	0.0693
Q4 excluded	0.5938	0.5704	1	0.0725
Q5 excluded	0.5073	0.493	1	0.0541
Q6 excluded	0.5292	0.5042	1	0.0564
Q7 excluded	0.522	0.491	1	0.0537
Q8 excluded	0.5789	0.572	1	0.0729
Q9 excluded	0.5943	0.5617	1	0.0701
Q10 excluded	0.5317	0.4957	1	0.0547
Q11 excluded	0.614	0.5969	1	0.0801
Q12 excluded	0.471	0.4615	1	0.048
Q13 excluded	0.5699	0.5413	1	0.0649
Q14 excluded	0.5293	0.4864	1	0.0528
Q15 excluded	0.4476	0.4417	1	0.0445
Q16 excluded	0.5468	0.5064	1	0.0569
Q17 excluded	0.5928	0.5769	1	0.0742
Q18 excluded	0.5552	0.519	1	0.0597

Parameters (Session):

par1 = FALSE ;

Parameters (R input):

par1 = FALSE ;

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')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code