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 computationThu, 11 Dec 2014 21:43:19 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Dec/11/t1418334219kyyhd4jtljtqgz9.htm/, Retrieved Thu, 16 May 2024 12:36:04 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=266366, Retrieved Thu, 16 May 2024 12:36:04 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Survey Scores] [Intrinsic Motivat...] [2010-10-12 11:18:40] [b98453cac15ba1066b407e146608df68]
- RMP   [Survey Scores] [] [2014-10-09 22:08:50] [32b17a345b130fdf5cc88718ed94a974]
- R PD    [Survey Scores] [extrest vrouwen] [2014-12-10 15:35:44] [1651e47f7f65f3a10bbbb444d4b26be7]
- R PD      [Survey Scores] [Extren vrouw] [2014-12-10 15:43:48] [1651e47f7f65f3a10bbbb444d4b26be7]
-   PD          [Survey Scores] [Q] [2014-12-11 21:43:19] [6fc1b517ba5ef695988bbc0a377c4b82] [Current]
-   PD            [Survey Scores] [dssd] [2014-12-11 21:48:43] [1651e47f7f65f3a10bbbb444d4b26be7]
- RMPD            [Notched Boxplots] [F] [2014-12-11 21:55:59] [1651e47f7f65f3a10bbbb444d4b26be7]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
23	20	19
22	25	24
19	15	20
25	20	20
16	15	21
28	28	28
21	11	10
22	22	22
24	22	19
24	27	27
20	21	25
21	19	21
27	16	28
23	24	22
24	22	26
22	25	21
21	23	26
25	20	23
21	22	24
27	27	23
27	21	24
25	19	25
23	25	23
25	16	21
19	24	21
22	18	18
19	15	18
21	17	21
27	18	23
25	26	25
25	18	22
17	19	23
28	17	24
20	21	22
25	26	24
21	21	21
24	12	24
28	20	25
20	20	23
19	24	27
21	22	23
23	20	20
18	23	23
20	21	20
23	17	22
24	20	17
27	19	20
23	17	16
22	20	24
24	15	14
19	17	23
23	22	26
26	21	24
23	20	21
26	18	22
22	20	20
20	21	24
27	20	21
22	15	23
21	22	22
24	21	23
26	17	21
24	23	27
24	22	23
25	16	27
27	18	27
19	25	23
23	21	22
22	14	15
24	5	27
19	25	23
25	21	23
18	20	18
24	9	22
23	23	21
27	24	25
24	16	24
26	20	22
21	15	28
25	18	22
28	22	21
19	21	23
20	21	19
27	20	25
23	24	23
18	15	28
23	24	14
21	18	23
23	24	24
21	15	15
14	19	23
24	20	26
26	26	21
24	26	26
20	16	16
25	11	21
23	18	19
20	19	21
27	8	27
24	15	20
23	21	17
26	18	25
18	24	17
23	20	23
21	22	24
24	26	25
24	23	22
23	19	16
21	21	18
24	23	27
19	19	17
23	16	24
18	23	27
20	23	19
27	20	25
19	19	24
25	26	24
25	9	24
17	13	17
5	6	8
19	17	14
28	23	28
27	20	24
16	17	15
23	18	25
26	20	28
24	18	24
23	23	25
19	12	22
19	16	25
24	24	22
20	23	26
19	19	21
23	28	21
25	23	23
25	23	26
27	28	25
26	21	26
23	25	19
22	18	21
22	28	24
17	9	6
25	22	22
22	18	24
21	22	17
24	15	20
26	24	28
24	12	24
22	25	21
23	24	26
23	18	26
20	22	23
25	25	24
21	14	20
17	16	16
20	13	20
22	19	23
23	16	18
21	23	23
24	20	26
25	26	24
21	21	23
16	25	24
23	23	23
16	16	16
15	25	28
25	23	26
22	24	21
19	26	20
24	24	26
23	25	21
22	19	22
23	21	24
27	21	22
28	23	27
23	25	26
23	19	20
22	24	23
27	14	24
24	20	23
20	12	20
23	18	12
26	24	26
21	19	23
22	9	10
24	24	24
19	17	16
23	19	23
25	17	21
18	19	19
14	15	27
25	22	17
24	27	24
17	23	25
20	22	19
23	25	23
22	25	25
20	19	23
22	21	23
21	18	24
24	25	22
21	19	24
25	26	27
25	13	22
23	21	24
24	23	21
21	16	23
23	24	18
21	18	25
24	21	24
28	22	24
25	26	25
26	23	24
24	24	28
18	14	23
23	21	18
26	25	27
23	20	24
24	25	26
20	20	19
27	22	21
21	16	22
19	21	23
25	22	20
23	15	20
25	21	25
18	16	19
20	19	25
22	23	22
23	28	21
21	16	20
21	19	22
28	19	27
19	12	23
23	15	28
22	17	25
27	23	24
23	21	27
21	20	22
26	23	21
23	22	21
28	24	26
26	23	23
28	26	18
21	16	21
28	28	28
21	24	22
24	16	23
21	18	16
22	18	18
25	22	22
20	13	21
19	20	19
23	24	20
26	24	27
28	25	27
24	23	20
24	22	25
28	24	27
23	25	28
19	27	26
27	27	27
15	14	23
27	21	28
21	17	22
25	25	27
26	20	18
24	21	22
27	27	25
14	12	14
24	26	21
25	22	26
24	24	22
22	20	24
26	22	26
19	21	18
19	13	19
28	21	26
20	18	12
26	25	26
24	24	23

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Sir Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=266366&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Maurice George Kendall' @ kendall.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=266366&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266366&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net






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)
18.192313.5110.9927740.97
25.77169978.50.91256250.82
37.852235.5310.97271100.93

\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 & 8.19 & 2313.5 & 11 & 0.99 & 277 & 4 & 0.97 \tabularnewline
2 & 5.77 & 1699 & 78.5 & 0.91 & 256 & 25 & 0.82 \tabularnewline
3 & 7.85 & 2235.5 & 31 & 0.97 & 271 & 10 & 0.93 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=266366&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]8.19[/C][C]2313.5[/C][C]11[/C][C]0.99[/C][C]277[/C][C]4[/C][C]0.97[/C][/ROW]
[ROW][C]2[/C][C]5.77[/C][C]1699[/C][C]78.5[/C][C]0.91[/C][C]256[/C][C]25[/C][C]0.82[/C][/ROW]
[ROW][C]3[/C][C]7.85[/C][C]2235.5[/C][C]31[/C][C]0.97[/C][C]271[/C][C]10[/C][C]0.93[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=266366&T=1

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






Pearson correlations of survey scores (and p-values)
mean(Ps-Ns)/(Ps+Ns)(Pc-Nc)/(Pc+Nc)
mean1 (0)0.994 (0.072)0.992 (0.083)
(Ps-Ns)/(Ps+Ns)0.994 (0.072)1 (0)1 (0.011)
(Pc-Nc)/(Pc+Nc)0.992 (0.083)1 (0.011)1 (0)

\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) & 0.994 (0.072) & 0.992 (0.083) \tabularnewline
(Ps-Ns)/(Ps+Ns) & 0.994 (0.072) & 1 (0) & 1 (0.011) \tabularnewline
(Pc-Nc)/(Pc+Nc) & 0.992 (0.083) & 1 (0.011) & 1 (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=266366&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]0.994 (0.072)[/C][C]0.992 (0.083)[/C][/ROW]
[ROW][C](Ps-Ns)/(Ps+Ns)[/C][C]0.994 (0.072)[/C][C]1 (0)[/C][C]1 (0.011)[/C][/ROW]
[ROW][C](Pc-Nc)/(Pc+Nc)[/C][C]0.992 (0.083)[/C][C]1 (0.011)[/C][C]1 (0)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=266366&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266366&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)0.994 (0.072)0.992 (0.083)
(Ps-Ns)/(Ps+Ns)0.994 (0.072)1 (0)1 (0.011)
(Pc-Nc)/(Pc+Nc)0.992 (0.083)1 (0.011)1 (0)






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

\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) & 1 (0.333) & 1 (0.333) \tabularnewline
(Ps-Ns)/(Ps+Ns) & 1 (0.333) & 1 (0.333) & 1 (0.333) \tabularnewline
(Pc-Nc)/(Pc+Nc) & 1 (0.333) & 1 (0.333) & 1 (0.333) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=266366&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]1 (0.333)[/C][C]1 (0.333)[/C][/ROW]
[ROW][C](Ps-Ns)/(Ps+Ns)[/C][C]1 (0.333)[/C][C]1 (0.333)[/C][C]1 (0.333)[/C][/ROW]
[ROW][C](Pc-Nc)/(Pc+Nc)[/C][C]1 (0.333)[/C][C]1 (0.333)[/C][C]1 (0.333)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=266366&T=3

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266366&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)1 (0.333)1 (0.333)
(Ps-Ns)/(Ps+Ns)1 (0.333)1 (0.333)1 (0.333)
(Pc-Nc)/(Pc+Nc)1 (0.333)1 (0.333)1 (0.333)


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 ;
Parameters (R input):
par1 = 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 ;
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)
}
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')