Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationThu, 06 Sep 2018 13:52:10 +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/2018/Sep/06/t1536234780f19eevvokl6aeel.htm/, Retrieved Thu, 02 May 2024 05:06:09 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=315411, Retrieved Thu, 02 May 2024 05:06:09 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact60
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [Vraag 5] [2018-09-06 11:52:10] [17c67da5f7e22a9568c52a83ae1d175d] [Current]
Feedback Forum

Post a new message
Dataseries X:
10 10 10 10 21 36 1 0
15 9 8 8 22 32 1 1
14 12 6 8 17 33 1 1
14 14 10 9 21 39 1 1
8 6 8 5 19 34 1 0
19 13 10 10 23 39 1 1
17 12 7 8 21 36 1 1
18 13 10 9 22 33 1 1
10 6 6 8 11 30 1 0
15 12 7 7 20 39 1 0
16 10 9 10 18 37 1 0
12 9 6 10 16 37 1 0
13 12 7 9 18 35 1 1
10 7 6 4 13 32 1 0
14 10 4 4 17 36 1 1
15 11 6 8 20 36 1 1
20 15 8 9 20 41 1 1
9 10 9 10 15 36 1 1
12 12 8 8 18 37 1 0
13 10 6 5 15 29 1 0
16 12 6 10 19 39 1 1
12 11 10 8 19 37 1 0
14 11 8 7 19 32 1 1
15 12 8 8 20 36 1 1
19 15 7 8 20 43 1 1
16 12 4 9 16 30 1 0
16 11 9 8 18 33 1 0
14 9 8 6 17 28 1 1
14 11 10 8 18 30 1 1
14 11 8 8 13 28 1 0
13 9 6 5 20 39 0 1
18 15 7 9 21 34 1 1
15 12 8 8 17 34 1 0
15 9 5 8 19 29 1 0
15 12 10 8 20 32 1 0
13 12 2 6 15 33 1 0
14 9 6 6 15 27 1 0
15 9 7 9 19 35 1 1
14 11 5 8 18 38 1 1
19 12 8 9 22 40 1 1
16 12 7 10 20 34 1 1
16 12 7 8 18 34 0 0
12 12 10 8 14 26 1 0
10 6 7 7 15 39 1 0
11 11 6 7 17 34 1 1
13 12 10 10 16 39 1 1
14 9 6 8 17 26 1 1
11 11 5 7 15 30 1 1
11 9 8 10 17 34 1 1
16 10 8 7 18 34 1 1
9 10 5 7 16 29 1 0
16 9 8 9 18 41 1 0
19 12 10 9 22 43 1 0
13 11 7 8 16 31 1 0
15 9 7 6 16 33 1 0
14 9 7 8 20 34 1 0
15 12 7 9 18 30 1 1
11 6 2 2 16 23 0 0
14 10 4 6 16 29 1 0
15 12 6 8 20 35 1 1
17 11 7 8 21 40 0 1
16 14 9 7 18 27 0 0
13 8 9 8 15 30 1 0
15 9 4 6 18 27 1 0
14 10 9 10 18 29 1 0
15 10 9 10 20 33 1 0
14 10 8 10 18 32 1 0
12 11 7 8 16 33 1 0
12 10 9 8 19 36 1 1
15 12 7 7 20 34 1 1
17 14 6 10 22 45 1 1
13 10 7 5 18 30 0 0
5 8 2 3 8 22 0 1
7 8 3 2 13 24 0 1
10 7 4 3 13 25 0 1
15 11 5 4 18 26 0 1
9 6 2 2 12 27 0 0
9 9 6 6 16 27 0 0
15 12 8 8 21 35 1 0
14 12 5 8 20 36 1 0
11 12 4 5 18 32 0 0
18 9 10 10 22 35 1 1
20 15 10 9 23 35 1 1
20 15 10 8 23 36 1 1
16 13 9 9 21 37 1 1
15 9 5 8 16 33 1 1
14 12 5 5 14 25 1 0
13 9 7 7 18 35 1 1
18 15 10 9 22 37 1 1
14 11 9 8 20 36 1 0
12 11 8 4 18 35 1 1
9 6 8 7 12 29 1 1
19 14 8 8 17 35 1 1
13 11 8 7 15 31 1 0
12 8 8 7 18 30 1 1
14 10 7 9 18 37 1 0
6 10 6 6 15 36 1 1
14 9 8 7 16 35 1 0
11 8 2 4 15 32 1 0
11 9 5 6 16 34 1 1
14 10 4 10 19 37 1 0
12 11 9 9 19 36 1 1
19 14 10 10 23 39 1 1
13 12 6 8 20 37 1 0
14 9 4 4 18 31 0 0
17 13 10 8 21 40 1 1
12 8 6 5 19 38 1 0
16 12 7 8 18 35 0 1
15 14 7 9 19 38 0 1
15 9 8 8 17 32 1 0
15 10 6 4 21 41 1 1
16 12 5 8 19 28 1 0
15 12 6 10 24 40 1 1
12 9 7 6 12 25 1 0
13 9 6 7 15 28 1 0
14 12 9 10 18 37 1 1
17 15 9 9 19 37 1 1
14 12 7 8 22 40 1 1
14 11 6 3 19 26 0 0
14 8 7 8 16 30 1 0
15 11 7 7 19 32 1 0
11 11 8 7 18 31 1 0
11 10 7 8 18 28 1 0
16 12 8 8 19 34 1 1
12 9 7 7 21 39 1 0
12 11 4 7 19 33 0 1
19 15 10 9 22 43 1 0
18 14 8 9 23 37 0 1
16 6 8 9 17 31 1 0
16 9 2 4 18 31 0 1
13 9 6 6 19 34 1 0
11 8 4 6 15 32 1 1
10 7 4 6 14 27 0 0
14 10 9 8 18 34 1 0
14 6 2 3 17 28 0 0
14 9 6 8 19 32 0 0
16 9 7 8 16 39 0 1
10 7 4 6 14 28 0 1
16 11 10 10 20 39 1 0
7 9 3 2 16 32 0 0
16 12 7 9 18 36 0 1
15 9 4 6 16 31 0 1
17 10 8 6 21 39 0 0
11 11 4 5 16 23 0 0
11 7 5 4 14 25 0 0
10 12 6 7 16 32 1 0
13 8 5 5 19 32 0 1
14 13 9 8 19 36 0 1
13 11 6 6 19 39 0 0
13 11 8 9 18 31 0 1
12 12 4 6 16 32 1 0
10 11 4 4 14 28 0 1
15 12 8 7 19 34 0 0
6 3 4 2 11 28 0 1
15 10 10 8 18 38 1 1
15 13 8 9 18 35 1 1
11 10 5 6 16 32 1 0
14 6 3 5 20 26 0 1
14 11 7 7 18 32 0 1
16 12 6 8 20 28 1 1
12 9 5 4 16 31 1 0
15 10 5 9 18 33 0 1
20 15 9 9 19 38 1 0
12 9 2 9 19 38 0 1
9 6 7 7 15 36 0 0
13 9 7 5 17 31 1 1
15 15 5 7 21 36 0 0
19 15 9 9 24 43 1 1
11 9 4 8 16 37 1 1
11 11 5 6 13 28 0 1
17 9 9 9 21 35 0 1
15 11 7 8 16 34 1 1
14 10 6 7 17 40 1 1
15 9 8 7 17 31 1 0
11 6 7 7 18 41 0 0
12 12 6 8 18 35 1 0
15 13 8 10 23 38 1 1
16 12 6 6 20 37 0 0
16 12 7 6 20 31 0 0




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315411&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 Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Perceived_Ease_of_Use7121415.520
Perceived_Usefulness69111215
Relative_Advantage257810
Intention_to_Use268910
Information_Quality1116182024
System_Quality2230.5343745
groupB00111
genderB00111

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Perceived_Ease_of_Use & 7 & 12 & 14 & 15.5 & 20 \tabularnewline
Perceived_Usefulness & 6 & 9 & 11 & 12 & 15 \tabularnewline
Relative_Advantage & 2 & 5 & 7 & 8 & 10 \tabularnewline
Intention_to_Use & 2 & 6 & 8 & 9 & 10 \tabularnewline
Information_Quality & 11 & 16 & 18 & 20 & 24 \tabularnewline
System_Quality & 22 & 30.5 & 34 & 37 & 45 \tabularnewline
groupB & 0 & 0 & 1 & 1 & 1 \tabularnewline
genderB & 0 & 0 & 1 & 1 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=315411&T=1

[TABLE]
[ROW][C]Boxplot statistics[/C][/ROW]
[ROW][C]Variable[/C][C]lower whisker[/C][C]lower hinge[/C][C]median[/C][C]upper hinge[/C][C]upper whisker[/C][/ROW]
[ROW][C]Perceived_Ease_of_Use[/C][C]7[/C][C]12[/C][C]14[/C][C]15.5[/C][C]20[/C][/ROW]
[ROW][C]Perceived_Usefulness[/C][C]6[/C][C]9[/C][C]11[/C][C]12[/C][C]15[/C][/ROW]
[ROW][C]Relative_Advantage[/C][C]2[/C][C]5[/C][C]7[/C][C]8[/C][C]10[/C][/ROW]
[ROW][C]Intention_to_Use[/C][C]2[/C][C]6[/C][C]8[/C][C]9[/C][C]10[/C][/ROW]
[ROW][C]Information_Quality[/C][C]11[/C][C]16[/C][C]18[/C][C]20[/C][C]24[/C][/ROW]
[ROW][C]System_Quality[/C][C]22[/C][C]30.5[/C][C]34[/C][C]37[/C][C]45[/C][/ROW]
[ROW][C]groupB[/C][C]0[/C][C]0[/C][C]1[/C][C]1[/C][C]1[/C][/ROW]
[ROW][C]genderB[/C][C]0[/C][C]0[/C][C]1[/C][C]1[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=315411&T=1

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

As an alternative you can also use a QR Code:  

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

Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Perceived_Ease_of_Use7121415.520
Perceived_Usefulness69111215
Relative_Advantage257810
Intention_to_Use268910
Information_Quality1116182024
System_Quality2230.5343745
groupB00111
genderB00111







Boxplot Notches
Variablelower boundmedianupper bound
Perceived_Ease_of_Use13.58666839370821414.4133316062918
Perceived_Usefulness10.64571576603561111.3542842339644
Relative_Advantage6.6457157660355877.35428423396442
Intention_to_Use7.6457157660355888.35428423396442
Information_Quality17.52762102138081818.4723789786192
System_Quality33.23238415974383434.7676158402562
groupB0.88190525534519411.11809474465481
genderB0.88190525534519411.11809474465481

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Perceived_Ease_of_Use & 13.5866683937082 & 14 & 14.4133316062918 \tabularnewline
Perceived_Usefulness & 10.6457157660356 & 11 & 11.3542842339644 \tabularnewline
Relative_Advantage & 6.64571576603558 & 7 & 7.35428423396442 \tabularnewline
Intention_to_Use & 7.64571576603558 & 8 & 8.35428423396442 \tabularnewline
Information_Quality & 17.5276210213808 & 18 & 18.4723789786192 \tabularnewline
System_Quality & 33.2323841597438 & 34 & 34.7676158402562 \tabularnewline
groupB & 0.881905255345194 & 1 & 1.11809474465481 \tabularnewline
genderB & 0.881905255345194 & 1 & 1.11809474465481 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=315411&T=2

[TABLE]
[ROW][C]Boxplot Notches[/C][/ROW]
[ROW][C]Variable[/C][C]lower bound[/C][C]median[/C][C]upper bound[/C][/ROW]
[ROW][C]Perceived_Ease_of_Use[/C][C]13.5866683937082[/C][C]14[/C][C]14.4133316062918[/C][/ROW]
[ROW][C]Perceived_Usefulness[/C][C]10.6457157660356[/C][C]11[/C][C]11.3542842339644[/C][/ROW]
[ROW][C]Relative_Advantage[/C][C]6.64571576603558[/C][C]7[/C][C]7.35428423396442[/C][/ROW]
[ROW][C]Intention_to_Use[/C][C]7.64571576603558[/C][C]8[/C][C]8.35428423396442[/C][/ROW]
[ROW][C]Information_Quality[/C][C]17.5276210213808[/C][C]18[/C][C]18.4723789786192[/C][/ROW]
[ROW][C]System_Quality[/C][C]33.2323841597438[/C][C]34[/C][C]34.7676158402562[/C][/ROW]
[ROW][C]groupB[/C][C]0.881905255345194[/C][C]1[/C][C]1.11809474465481[/C][/ROW]
[ROW][C]genderB[/C][C]0.881905255345194[/C][C]1[/C][C]1.11809474465481[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=315411&T=2

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

As an alternative you can also use a QR Code:  

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

Boxplot Notches
Variablelower boundmedianupper bound
Perceived_Ease_of_Use13.58666839370821414.4133316062918
Perceived_Usefulness10.64571576603561111.3542842339644
Relative_Advantage6.6457157660355877.35428423396442
Intention_to_Use7.6457157660355888.35428423396442
Information_Quality17.52762102138081818.4723789786192
System_Quality33.23238415974383434.7676158402562
groupB0.88190525534519411.11809474465481
genderB0.88190525534519411.11809474465481



Parameters (Session):
Parameters (R input):
par1 = grey ; par2 = no ;
R code (references can be found in the software module):
if(par2=='yes') {
z <- na.omit(as.data.frame(t(y)))
} else {
z <- as.data.frame(t(y))
}
bitmap(file='test1.png')
(r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=TRUE,col=par1))
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Boxplot statistics',6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,'lower whisker',1,TRUE)
a<-table.element(a,'lower hinge',1,TRUE)
a<-table.element(a,'median',1,TRUE)
a<-table.element(a,'upper hinge',1,TRUE)
a<-table.element(a,'upper whisker',1,TRUE)
a<-table.row.end(a)
for (i in 1:length(y[,1]))
{
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE)
for (j in 1:5)
{
a<-table.element(a,r$stats[j,i])
}
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,'Boxplot Notches',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,'lower bound',1,TRUE)
a<-table.element(a,'median',1,TRUE)
a<-table.element(a,'upper bound',1,TRUE)
a<-table.row.end(a)
for (i in 1:length(y[,1]))
{
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE)
a<-table.element(a,r$conf[1,i])
a<-table.element(a,r$stats[3,i])
a<-table.element(a,r$conf[2,i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')