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_surveyscores.wasp
Title produced by softwareSurvey Scores
Date of computationTue, 30 Jan 2018 10:31:18 +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/Jan/30/t1517304688djtgdfq4k1s1flv.htm/, Retrieved Thu, 02 May 2024 15:12:57 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=312879, Retrieved Thu, 02 May 2024 15:12:57 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Survey Scores] [] [2018-01-30 09:31:18] [40080028922fa8ec68807005922cfa40] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
68	63	4
51	61	4
56	60	6
48	62	8
44	68	8
67	77	4
46	70	4
54	69	8
61	65	5
52	64	4
46	76	4
55	71	4
46	63	4
52	63	4
76	79	4
49	65	8
30	74	4
75	78	4
51	75	4
50	73	8
38	52	4
55	76	7
18	55	4
52	69	4
42	76	5
66	61	4
66	61	4
33	55	4
48	53	4
57	68	4
64	72	4
58	65	4
59	54	15
42	55	10
39	66	4
59	64	8
37	76	4
49	64	4
80	83	4
62	71	4
52	74	7
53	70	4
58	70	6
69	67	5
63	61	4
36	62	16
38	53	5
46	71	12
56	64	6
37	72	9
51	58	9
44	59	4
58	79	5
37	49	4
65	71	4
48	64	5
53	65	4
51	63	4
39	70	4
64	62	5
51	62	4
47	65	6
64	64	4
59	65	4
54	55	18
55	75	4
72	72	6
58	64	4
59	73	4
36	67	5
62	75	4
63	71	4
50	58	5
67	67	10
70	77	5
46	58	8
46	55	8
59	75	5
73	81	4
38	54	4
62	67	4
41	56	5
56	64	4
52	69	4
54	66	8
73	75	4
60	75	5
40	61	14
41	59	8
54	68	8
42	43	4
70	61	4
51	70	6
60	67	4
49	73	7
52	72	7
57	64	4
50	59	6
47	65	4
74	72	7
47	70	4
47	54	4
59	66	8
64	73	4
55	64	4
52	61	10
44	59	8
60	63	6
51	66	4
63	68	4
49	81	4
52	72	5
48	53	4
50	61	6
67	77	4
42	54	5
44	75	7
51	70	8
47	60	5
37	63	8
51	57	10
60	70	8
38	67	5
52	44	12
65	81	4
60	69	5
70	71	4
44	67	6
50	60	4
63	66	4
50	61	7
68	69	7
32	57	10
47	65	4
67	74	5
50	56	8
57	74	11
46	69	7
67	76	4
63	68	8
36	60	6
54	72	7
36	74	5
57	57	4
70	73	8
47	58	4
51	71	8
62	62	6
60	64	4
59	58	9
52	67	5
52	76	6
69	67	4
56	78	4
62	72	4
55	62	5
52	68	6
48	71	16
51	70	6
53	61	6
48	50	4
55	54	4

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=312879&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=312879&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=312879&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






Summary of survey scores (median of Likert score was subtracted)
QuestionmeanSum ofpositives (Ps)Sum ofnegatives (Ns)(Ps-Ns)/(Ps+Ns)Count ofpositives (Pc)Count ofnegatives (Nc)(Pc-Nc)/(Pc+Nc)
150.3881610116201
262.99102050116201
32.84530116201

\begin{tabular}{lllllllll}
\hline
Summary of survey scores (median of Likert score was subtracted) \tabularnewline
Question & mean & Sum ofpositives (Ps) & Sum ofnegatives (Ns) & (Ps-Ns)/(Ps+Ns) & Count ofpositives (Pc) & Count ofnegatives (Nc) & (Pc-Nc)/(Pc+Nc) \tabularnewline
1 & 50.38 & 8161 & 0 & 1 & 162 & 0 & 1 \tabularnewline
2 & 62.99 & 10205 & 0 & 1 & 162 & 0 & 1 \tabularnewline
3 & 2.8 & 453 & 0 & 1 & 162 & 0 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=312879&T=1

[TABLE]
[ROW][C]Summary of survey scores (median of Likert score was subtracted)[/C][/ROW]
[ROW][C]Question[/C][C]mean[/C][C]Sum ofpositives (Ps)[/C][C]Sum ofnegatives (Ns)[/C][C](Ps-Ns)/(Ps+Ns)[/C][C]Count ofpositives (Pc)[/C][C]Count ofnegatives (Nc)[/C][C](Pc-Nc)/(Pc+Nc)[/C][/ROW]
[ROW][C]1[/C][C]50.38[/C][C]8161[/C][C]0[/C][C]1[/C][C]162[/C][C]0[/C][C]1[/C][/ROW]
[ROW][C]2[/C][C]62.99[/C][C]10205[/C][C]0[/C][C]1[/C][C]162[/C][C]0[/C][C]1[/C][/ROW]
[ROW][C]3[/C][C]2.8[/C][C]453[/C][C]0[/C][C]1[/C][C]162[/C][C]0[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=312879&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=312879&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:

Summary of survey scores (median of Likert score was subtracted)
QuestionmeanSum ofpositives (Ps)Sum ofnegatives (Ns)(Ps-Ns)/(Ps+Ns)Count ofpositives (Pc)Count ofnegatives (Nc)(Pc-Nc)/(Pc+Nc)
150.3881610116201
262.99102050116201
32.84530116201






Pearson correlations of survey scores (and p-values)
mean(Ps-Ns)/(Ps+Ns)(Pc-Nc)/(Pc+Nc)
mean1 (0)NA (NA)NA (NA)
(Ps-Ns)/(Ps+Ns)NA (NA)NA (NA)NA (NA)
(Pc-Nc)/(Pc+Nc)NA (NA)NA (NA)NA (NA)

\begin{tabular}{lllllllll}
\hline
Pearson correlations of survey scores (and p-values) \tabularnewline
 & mean & (Ps-Ns)/(Ps+Ns) & (Pc-Nc)/(Pc+Nc) \tabularnewline
mean & 1 (0) & NA (NA) & NA (NA) \tabularnewline
(Ps-Ns)/(Ps+Ns) & NA (NA) & NA (NA) & NA (NA) \tabularnewline
(Pc-Nc)/(Pc+Nc) & NA (NA) & NA (NA) & NA (NA) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=312879&T=2

[TABLE]
[ROW][C]Pearson correlations of survey scores (and p-values)[/C][/ROW]
[ROW][C][/C][C]mean[/C][C](Ps-Ns)/(Ps+Ns)[/C][C](Pc-Nc)/(Pc+Nc)[/C][/ROW]
[ROW][C]mean[/C][C]1 (0)[/C][C]NA (NA)[/C][C]NA (NA)[/C][/ROW]
[ROW][C](Ps-Ns)/(Ps+Ns)[/C][C]NA (NA)[/C][C]NA (NA)[/C][C]NA (NA)[/C][/ROW]
[ROW][C](Pc-Nc)/(Pc+Nc)[/C][C]NA (NA)[/C][C]NA (NA)[/C][C]NA (NA)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=312879&T=2

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

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


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

Pearson correlations of survey scores (and p-values)
mean(Ps-Ns)/(Ps+Ns)(Pc-Nc)/(Pc+Nc)
mean1 (0)NA (NA)NA (NA)
(Ps-Ns)/(Ps+Ns)NA (NA)NA (NA)NA (NA)
(Pc-Nc)/(Pc+Nc)NA (NA)NA (NA)NA (NA)






Kendall tau rank correlations of survey scores (and p-values)
mean(Ps-Ns)/(Ps+Ns)(Pc-Nc)/(Pc+Nc)
mean1 (0.333)NA (NA)NA (NA)
(Ps-Ns)/(Ps+Ns)NA (NA)NA (NA)NA (NA)
(Pc-Nc)/(Pc+Nc)NA (NA)NA (NA)NA (NA)

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations of survey scores (and p-values) \tabularnewline
 & mean & (Ps-Ns)/(Ps+Ns) & (Pc-Nc)/(Pc+Nc) \tabularnewline
mean & 1 (0.333) & NA (NA) & NA (NA) \tabularnewline
(Ps-Ns)/(Ps+Ns) & NA (NA) & NA (NA) & NA (NA) \tabularnewline
(Pc-Nc)/(Pc+Nc) & NA (NA) & NA (NA) & NA (NA) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=312879&T=3

[TABLE]
[ROW][C]Kendall tau rank correlations of survey scores (and p-values)[/C][/ROW]
[ROW][C][/C][C]mean[/C][C](Ps-Ns)/(Ps+Ns)[/C][C](Pc-Nc)/(Pc+Nc)[/C][/ROW]
[ROW][C]mean[/C][C]1 (0.333)[/C][C]NA (NA)[/C][C]NA (NA)[/C][/ROW]
[ROW][C](Ps-Ns)/(Ps+Ns)[/C][C]NA (NA)[/C][C]NA (NA)[/C][C]NA (NA)[/C][/ROW]
[ROW][C](Pc-Nc)/(Pc+Nc)[/C][C]NA (NA)[/C][C]NA (NA)[/C][C]NA (NA)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=312879&T=3

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

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


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

Kendall tau rank correlations of survey scores (and p-values)
mean(Ps-Ns)/(Ps+Ns)(Pc-Nc)/(Pc+Nc)
mean1 (0.333)NA (NA)NA (NA)
(Ps-Ns)/(Ps+Ns)NA (NA)NA (NA)NA (NA)
(Pc-Nc)/(Pc+Nc)NA (NA)NA (NA)NA (NA)


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 1 2 3 4 5 ;
Parameters (R input):
par1 = 1 2 3 4 5 ;
R code (references can be found in the software module):
docor <- function(x,y,method) {
r <- cor.test(x,y,method=method)
paste(round(r$estimate,3),' (',round(r$p.value,3),')',sep='')
}
x <- t(x)
nx <- length(x[,1])
cx <- length(x[1,])
mymedian <- median(as.numeric(strsplit(par1,' ')[[1]]))
myresult <- array(NA, dim = c(cx,7))
rownames(myresult) <- paste('Q',1:cx,sep='')
colnames(myresult) <- c('mean','Sum of
positives (Ps)','Sum of
negatives (Ns)', '(Ps-Ns)/(Ps+Ns)', 'Count of
positives (Pc)', 'Count of
negatives (Nc)', '(Pc-Nc)/(Pc+Nc)')
for (i in 1:cx) {
spos <- 0
sneg <- 0
cpos <- 0
cneg <- 0
for (j in 1:nx) {
if (!is.na(x[j,i])) {
myx <- as.numeric(x[j,i]) - mymedian
if (myx > 0) {
spos = spos + myx
cpos = cpos + 1
}
if (myx < 0) {
sneg = sneg + abs(myx)
cneg = cneg + 1
}
}
}
myresult[i,1] <- round(mean(as.numeric(x[,i]),na.rm=T)-mymedian,2)
myresult[i,2] <- spos
myresult[i,3] <- sneg
myresult[i,4] <- round((spos - sneg) / (spos + sneg),2)
myresult[i,5] <- cpos
myresult[i,6] <- cneg
myresult[i,7] <- round((cpos - cneg) / (cpos + cneg),2)
}
print(myresult)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Summary of survey scores (median of Likert score was subtracted)',8,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Question',header=TRUE)
for (i in 1:7) {
a<-table.element(a,colnames(myresult)[i],header=TRUE)
}
a<-table.row.end(a)
for (i in 1:cx) {
a<-table.row.start(a)
a<-table.element(a,i,header=TRUE)
for (j in 1:7) {
a<-table.element(a,myresult[i,j],align='right')
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Pearson correlations of survey scores (and p-values)',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'',header=TRUE)
a<-table.element(a,'mean',header=TRUE)
a<-table.element(a,'(Ps-Ns)/(Ps+Ns)',header=TRUE)
a<-table.element(a,'(Pc-Nc)/(Pc+Nc)',header=TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'mean',header=TRUE)
a<-table.element(a,docor(myresult[,1],myresult[,1],method='pearson'),align='right')
a<-table.element(a,docor(myresult[,1],myresult[,4],method='pearson'),align='right')
a<-table.element(a,docor(myresult[,1],myresult[,7],method='pearson'),align='right')
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'(Ps-Ns)/(Ps+Ns)',header=TRUE)
a<-table.element(a,docor(myresult[,4],myresult[,1],method='pearson'),align='right')
a<-table.element(a,docor(myresult[,4],myresult[,4],method='pearson'),align='right')
a<-table.element(a,docor(myresult[,4],myresult[,7],method='pearson'),align='right')
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'(Pc-Nc)/(Pc+Nc)',header=TRUE)
a<-table.element(a,docor(myresult[,7],myresult[,1],method='pearson'),align='right')
a<-table.element(a,docor(myresult[,7],myresult[,4],method='pearson'),align='right')
a<-table.element(a,docor(myresult[,7],myresult[,7],method='pearson'),align='right')
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Kendall tau rank correlations of survey scores (and p-values)',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'',header=TRUE)
a<-table.element(a,'mean',header=TRUE)
a<-table.element(a,'(Ps-Ns)/(Ps+Ns)',header=TRUE)
a<-table.element(a,'(Pc-Nc)/(Pc+Nc)',header=TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'mean',header=TRUE)
a<-table.element(a,docor(myresult[,1],myresult[,1],method='kendall'),align='right')
a<-table.element(a,docor(myresult[,1],myresult[,4],method='kendall'),align='right')
a<-table.element(a,docor(myresult[,1],myresult[,7],method='kendall'),align='right')
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'(Ps-Ns)/(Ps+Ns)',header=TRUE)
a<-table.element(a,docor(myresult[,4],myresult[,1],method='kendall'),align='right')
a<-table.element(a,docor(myresult[,4],myresult[,4],method='kendall'),align='right')
a<-table.element(a,docor(myresult[,4],myresult[,7],method='kendall'),align='right')
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'(Pc-Nc)/(Pc+Nc)',header=TRUE)
a<-table.element(a,docor(myresult[,7],myresult[,1],method='kendall'),align='right')
a<-table.element(a,docor(myresult[,7],myresult[,4],method='kendall'),align='right')
a<-table.element(a,docor(myresult[,7],myresult[,7],method='kendall'),align='right')
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable2.tab')