FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

The Challenges that Affect the Stakeholder’s Satisfaction with the Implem...

Author*Unverified author*
R Software Modulerwasp_cronbach.wasp
Title produced by softwareCronbach Alpha
Date of computationSat, 22 May 2021 06:49:45 +0200
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2021/May/22/t16216591156kb7n0gtp601mr2.htm/, Retrieved Sun, 05 May 2024 14:24:40 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=319438, Retrieved Sun, 05 May 2024 14:24:40 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Cronbach Alpha] [The Challenges th...] [2021-05-22 04:49:45] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
X	The following items describes the statements about intention of the users or stakeholders to use the CCPS and their satisfaction with the implementation of the CCPS in BOC. Sub-Port of Bislig
X Users Intention to use the CCPS: 
X 5 - Strongly likely 		
X 4 - Likely 	
X 3 - Neutral	
X 2 – Unlikely 
X 1 - Strongly unlikely
Q1 System Quality							
Q2 Information Quality							
Q3 Service Quality							
X Users’ satisfaction after using the CCPS: 
X 5 – Extremely Satisfied 		
X 4 – Satisfied 		
X 3 – Fairly Satisfied 
X 2 – Dissatisfied 			
X 1 - Extremely Dissatisfied
Q4 System Quality							
Q5 Information Quality							
Q6 Service Quality							
Q7 Intention to use the CCPS							
Q8 Users’ Net Benefits after using the CCPS: 
X 5 – Extremely high 		
X 4 – High 		
X 3 – Neutral 
X 2 – Lower 			
X 1 - Extremely lower
Q9 Users Intention to use the CCPS							
Q10 User’s Satisfaction							
X	The following items describes the statements about the level of importance of the challenges that affect the level of stakeholder’s satisfaction with the implementation of CCPS in BOC. Sub-Port of Bislig
X 5 – Extremely Important
X 4 – Important		
X 3 – Neutral 
X 2 – Not Important 			
X 1 – Strongly not important
Q11 Perceived or recognizes the usefulness							
Q12 Perceived or recognizes the ease of use							
Q13 Perceived or recognizes the benefits							
Q14 Perceived or recognizes the risks							
Q15 Perceived or recognizes the behavioral control							
Q16 Perceived or recognizes possible problems

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
R Framework error message
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.

\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
R Framework error message & 
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319438&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] [ROW]R Framework error message[/C][C]
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=319438&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319438&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
R Framework error message
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = TRUE ;
Parameters (R input):
par1 = TRUE ;
R code (references can be found in the software module):
par1 <- 'TRUE'
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')