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, 12 Sep 2019 19:45:48 +0200

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/2019/Sep/12/t1568310704jn29w69o8lpbfcu.htm/, Retrieved Sat, 27 Apr 2024 17:22:32 +0200

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Sat, 27 Apr 2024 17:22:32 +0200

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

This computation is private

User-defined keywords

Educación en sexualidad, Sexualidad, Sexo, género

Estimated Impact

Dataseries X:

Download CSV

Histogram

Boxplots

4	1	1	2	4	4	3	4	2	2
4	4	2	1	4	4	4	3	4	4
4	3	1	4	4	4	1	4	4	2
2	2	3	2	1	1	1	4	2	2
4	3	2	3	4	4	4	4	3	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=&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=&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&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.8581	0.8707	1	0.4024
I1 excluded	0.8271	0.8427	1	0.3732
I2 excluded	0.8502	0.861	1	0.4078
I3 excluded	0.8602	0.8809	1	0.451
I4 excluded	0.888	0.896	1	0.4892
I5 excluded	0.8206	0.8427	1	0.3732
I6 excluded	0.8206	0.8427	1	0.3732
I7 excluded	0.8363	0.8517	1	0.3896
I8 excluded	0.8513	0.8538	1	0.3936
I9 excluded	0.8418	0.8542	1	0.3942
I10 excluded	0.834	0.8461	1	0.3793

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.8581 & 0.8707 & 1 & 0.4024 \tabularnewline
I1 excluded & 0.8271 & 0.8427 & 1 & 0.3732 \tabularnewline
I2 excluded & 0.8502 & 0.861 & 1 & 0.4078 \tabularnewline
I3 excluded & 0.8602 & 0.8809 & 1 & 0.451 \tabularnewline
I4 excluded & 0.888 & 0.896 & 1 & 0.4892 \tabularnewline
I5 excluded & 0.8206 & 0.8427 & 1 & 0.3732 \tabularnewline
I6 excluded & 0.8206 & 0.8427 & 1 & 0.3732 \tabularnewline
I7 excluded & 0.8363 & 0.8517 & 1 & 0.3896 \tabularnewline
I8 excluded & 0.8513 & 0.8538 & 1 & 0.3936 \tabularnewline
I9 excluded & 0.8418 & 0.8542 & 1 & 0.3942 \tabularnewline
I10 excluded & 0.834 & 0.8461 & 1 & 0.3793 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=&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.8581[/C][C]0.8707[/C][C]1[/C][C]0.4024[/C][/ROW]
[ROW][C]I1 excluded[/C][C]0.8271[/C][C]0.8427[/C][C]1[/C][C]0.3732[/C][/ROW]
[ROW][C]I2 excluded[/C][C]0.8502[/C][C]0.861[/C][C]1[/C][C]0.4078[/C][/ROW]
[ROW][C]I3 excluded[/C][C]0.8602[/C][C]0.8809[/C][C]1[/C][C]0.451[/C][/ROW]
[ROW][C]I4 excluded[/C][C]0.888[/C][C]0.896[/C][C]1[/C][C]0.4892[/C][/ROW]
[ROW][C]I5 excluded[/C][C]0.8206[/C][C]0.8427[/C][C]1[/C][C]0.3732[/C][/ROW]
[ROW][C]I6 excluded[/C][C]0.8206[/C][C]0.8427[/C][C]1[/C][C]0.3732[/C][/ROW]
[ROW][C]I7 excluded[/C][C]0.8363[/C][C]0.8517[/C][C]1[/C][C]0.3896[/C][/ROW]
[ROW][C]I8 excluded[/C][C]0.8513[/C][C]0.8538[/C][C]1[/C][C]0.3936[/C][/ROW]
[ROW][C]I9 excluded[/C][C]0.8418[/C][C]0.8542[/C][C]1[/C][C]0.3942[/C][/ROW]
[ROW][C]I10 excluded[/C][C]0.834[/C][C]0.8461[/C][C]1[/C][C]0.3793[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&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.8581	0.8707	1	0.4024
I1 excluded	0.8271	0.8427	1	0.3732
I2 excluded	0.8502	0.861	1	0.4078
I3 excluded	0.8602	0.8809	1	0.451
I4 excluded	0.888	0.896	1	0.4892
I5 excluded	0.8206	0.8427	1	0.3732
I6 excluded	0.8206	0.8427	1	0.3732
I7 excluded	0.8363	0.8517	1	0.3896
I8 excluded	0.8513	0.8538	1	0.3936
I9 excluded	0.8418	0.8542	1	0.3942
I10 excluded	0.834	0.8461	1	0.3793

Parameters (Session):

par1 = TRUE ;

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code