Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_qqplot.wasp
Title produced by softwareQQPlot and Histogram
Date of computationTue, 16 Jun 2020 09:56:48 +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/2020/Jun/16/t1592294308iytefvpbemjybj5.htm/, Retrieved Thu, 25 Apr 2024 17:52:33 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=319178, Retrieved Thu, 25 Apr 2024 17:52:33 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact126
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [QQPlot and Histogram] [] [2020-06-16 07:56:48] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
51,00
55,00
52,00
45,00
40,00
55,00
38,00
43,00
35,00
44,00
44,50
44,00
46,50
44,50
45,00
31,00
40,50
45,00
46,30
38,70
36,00
26,00
48,00
50,80
36,50
42,00
35,00
26,00
38,80
33,00
57,00
28,60
41,50
31,00
28,00
36,60
42,00
37,30
40,60
28,50
34,80
54,0
46,00
45,30
37,00
42,70
44,50
58,00
32,30
47,50
38,60
30,60
47,00
31,80
30,50
45,70
43,20
48,30
38,00
34,70
41,40
43,70
40,00
33,00
26,80
34,70
41,80
10,30
15,80
9,80
48,30
8,50
10,20
8,90
9,20
8,00
9,30
8,00
13,00
8,00
53,00
9,00
8,70
8,70
13,00
12,90
23,00
10,30
8,00
39,10
13,10
9,00
12,40
9,10
10,10
10,60
13,00
8,40
8,00
12,50
8,50
11,40
9,80
40,50
40,30
49,00
16,60
10,60
8,00
49,00
13,00
11,70
13,70
9,90
15,00
13,00
9,30
37,10
54,00
10,00
12,00
10,70
12,80
10,50
9,30
10,70
10,60
8,20
18,50
12,00
12,50
22,30
11,00
13,00
8,50
29,10
34,90
40,40
37,30
43,90
21,50
32,00
38,30
10,20
10,50
26,70
33,00
37,80
28,30
29,70
43,50
24,50
37,10
37,20
39,50
37,00
32,00
24,50
32,80
38,60
31,10
37,80
48,70
22,10
33,50
31,60
45,00
38,10
32,30
41,70
43,60
41,20
36,30
36,00
9,00
35,50
39,50
32,10
42,80
33,00
33,80
33,90
8,40
39,60
31,60
36,20
19,40
15,40
13,80
17,50
23,00
14,50
12,20
21,60
9,30
17,50
10,60
8,50
12,10
14,70
18,40
15,00
17,00
14,70
13,90
62,00
19,00
13,00
9,30
19,40
10,00
16,20
16,50
10,70
8,70
14,30
23,80
18,60
13,30
26,60
20,70
12,50
12,00
9,00
8,50
10,00
8,30
15,00
13,00
15,70
20,80
8,00
11,50
14,00
16,00
13,00
10,00
10,30
15,90
12,50
10,70
10,00
8,30
27,10
13,50
9,50
9,50
13,00
23,00
12,80
8,90
14,80
8,50
19,80
17,40
11,10
13,90
12,90
15,90
8,20
12,00
14,90
12,40
8,20
15,70
15,50
18,30
12,00
9,80
17,10
20,50
8,00
9,70
16,70
19,80
19,10
19,50
17,80
14,00
17,00
9,00
20,20
8,40
11,80
13,80
18,00
8,00
16,00
14,80
14,50
11,70
9,20
9,50
12,40
9,20
14,60
18,70
18,00
16,50
12,40
13,80
15,50
17,70
29,00
15,10
13,90
16,00
18,00
15,30
16,50
10,20
8,00
13,60
20,70
26,80
8,10
36,90
40,70
43,10
10,00
44,40
37,50
49,30
20,40
59,50
42,60
41,80
46,50
41,50
40,00
44,40
8,00
31,50
34,50
28,60
44,50
29,20
23,70
39,70
39,80
41,70
40,00
29,30
33,00
34,50
32,00
36,00
43,20
37,60
42,00
36,80
40,50
31,70
37,90
38,30
38,90
55,00
38,70
34,40
41,00
44,10
45,00
37,50
40,20
33,10
42,70
40,20
Dataseries Y:
26,00
32,50
27,70
25,81
27,90
14,50
14,90
22,60
19,20
27,40
22,60
30,60
24,40
29,10
28,90
27,20
27,00
28,10
26,50
29,10
27,00
21,90
30,00
31,00
26,70
26,40
27,50
28,00
31,00
28,00
28,70
28,70
29,20
27,20
27,20
28,30
32,00
27,00
28,00
27,50
28,20
27,4
31,10
29,40
28,20
31,90
26,00
32,50
27,80
31,20
29,70
32,00
26,50
26,60
21,80
27,30
27,30
29,40
30,40
26,00
30,90
29,30
32,60
26,00
25,70
18,10
22,00
9,00
14,00
9,80
26,20
9,50
9,00
12,00
12,50
11,00
9,00
8,00
14,00
12,00
21,10
8,00
10,00
10,00
12,00
13,00
17,70
11,00
8,50
21,00
13,20
9,00
13,20
9,20
8,50
8,50
14,00
9,00
6,00
11,60
7,50
13,50
12,00
20,50
22,30
22,80
13,90
13,80
8,50
21,20
13,20
13,00
14,50
12,40
14,60
13,60
11,00
21,60
20,00
9,50
13,10
13,10
13,00
12,00
11,00
12,90
13,00
9,00
14,50
11,50
12,50
15,00
10,50
9,50
11,00
11,70
19,90
20,50
20,80
20,50
10,10
18,20
16,40
10,90
10,90
18,30
16,20
20,50
22,70
22,60
25,70
21,60
21,70
25,00
21,90
21,10
22,80
20,50
26,00
26,10
24,60
27,00
25,70
18,70
21,80
26,80
27,40
28,00
26,00
25,90
24,50
25,00
22,00
24,50
8,50
24,00
23,30
24,70
26,40
22,20
25,50
24,40
7,50
26,00
24,50
24,60
17,70
12,60
14,80
15,50
12,60
15,90
14,50
18,30
11,00
17,00
14,00
13,80
12,10
13,90
17,50
16,10
15,00
16,00
15,00
21,20
12,10
10,70
10,00
14,70
9,80
14,40
15,90
8,80
5,00
18,40
19,70
18,70
12,60
21,50
17,70
12,50
14,00
9,60
10,00
9,10
6,00
15,70
12,80
13,50
20,30
7,50
14,00
17,00
17,50
16,40
14,00
10,60
17,60
10,40
11,00
9,00
9,00
19,80
18,80
11,00
12,00
13,50
18,30
15,90
12,00
16,90
9,10
17,40
16,00
14,00
13,00
13,70
14,40
9,00
8,50
16,10
15,00
9,00
16,60
13,40
19,30
14,50
11,00
16,30
15,80
7,00
9,00
16,90
17,00
15,40
17,60
17,80
14,90
18,10
12,00
16,50
8,00
13,10
16,50
16,00
9,50
18,50
16,40
16,20
13,10
10,50
10,50
14,80
9,00
13,40
17,80
15,00
15,00
12,00
11,70
17,70
19,60
19,90
15,00
14,00
15,90
17,20
17,20
16,00
10,00
6,00
12,00
19,00
20,80
5,30
26,00
21,70
24,80
6,20
26,30
24,00
24,10
18,70
24,30
24,20
21,20
25,40
24,00
18,60
17,80
5,50
19,40
19,10
9,40
24,00
18,10
9,30
23,10
22,00
24,40
30,50
24,30
25,80
26,10
24,20
21,50
24,70
23,10
25,80
25,90
26,30
27,20
27,30
27,40
25,40
26,60
26,50
23,50
27,70
28,20
25,00
26,90
26,60
27,00
26,10
25,70




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

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







Descriptive Statistics
mean of X25.4177111716621
standard deviation of X14.2629171516879
mean of Y18.5727792915531
standard deviation of Y7.01219315978753

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
mean of X & 25.4177111716621 \tabularnewline
standard deviation of X & 14.2629171516879 \tabularnewline
mean of Y & 18.5727792915531 \tabularnewline
standard deviation of Y & 7.01219315978753 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319178&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]mean of X[/C][C]25.4177111716621[/C][/ROW]
[ROW][C]standard deviation of X[/C][C]14.2629171516879[/C][/ROW]
[ROW][C]mean of Y[/C][C]18.5727792915531[/C][/ROW]
[ROW][C]standard deviation of Y[/C][C]7.01219315978753[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=319178&T=1

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

As an alternative you can also use a QR Code:  

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

Descriptive Statistics
mean of X25.4177111716621
standard deviation of X14.2629171516879
mean of Y18.5727792915531
standard deviation of Y7.01219315978753



Parameters (Session):
par1 = 0 ;
Parameters (R input):
par1 = 0 ;
R code (references can be found in the software module):
library(car)
if(par1 == '') par1 <- 0
par1 <- as.numeric(par1)
if (par1 < 0) par1 <- 0
bitmap(file='test1.png')
if(par1 > 0) {
myhist<-hist(x, breaks=par1, col=2,main='Histogram (series X)')
} else {
myhist <- hist(x, col=2)
}
dev.off()
bitmap(file='test1a.png')
if(par1 > 0) {
myhist<-hist(y, breaks=par1, col=2,main='Histogram (series Y)')
} else {
myhist <- hist(y, col=2)
}
dev.off()
bitmap(file='test2.png')
qqPlot(x,main='Normal Q-Q Plot (series X)',ylab='Sample Quantiles',xlab='Normal Quantiles')
dev.off()
bitmap(file='test2a.png')
qqPlot(y,main='Normal Q-Q Plot (series Y)',ylab='Sample Quantiles',xlab='Normal Quantiles')
dev.off()
bitmap(file='test3.png')
qqplot(x,y,main='Q-Q Plot (series X vs Y)',ylab='Sample Quantiles of series Y',xlab='Sample Quantiles of series X')
qqline(x,y)
grid()
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Descriptive Statistics',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'mean of X',header=TRUE)
a<-table.element(a,mean(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'standard deviation of X',header=TRUE)
a<-table.element(a,sd(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'mean of Y',header=TRUE)
a<-table.element(a,mean(y))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'standard deviation of Y',header=TRUE)
a<-table.element(a,sd(y))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')