Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_fitdistrchisq1.wasp

Title produced by software

Maximum-likelihood Fitting - Chi-squared Distribution

Date of computation

Sun, 08 Nov 2015 15:34:38 +0000

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2015/Nov/08/t1446996919372dzz9zgv2a4h6.htm/, Retrieved Tue, 14 May 2024 08:16:00 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=283251, Retrieved Tue, 14 May 2024 08:16:00 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

160

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Maximum-likelihood Fitting - Chi-squared Distribution] [] [2015-11-08 15:34:38] [7b81fac622814275349f5d25cf6bd6bd] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

19.38034751
13.2419589
7.170536973
12.92846636
8.255860197
7.591591426
7.731912777
13.4522736
12.27051983
15.6893778
8.882384132
8.174744863
13.26121964
11.90501503
9.143767616
16.9927077
7.260761223
6.456335993
8.249671069
13.0006802
19.80685632
11.27854274
14.45348515
12.06250672
6.198698383
11.85343315
6.745787061
7.100273569
14.12933621
17.55965746
15.17677525
8.455519619
8.611383733
6.100045706
16.40693938
8.421599073
10.05202724
12.30756626
9.142294086
21.53370113
3.828792415
12.52776506
15.27040796
8.902963962
13.72706262
8.195309384
22.72357321
14.00453038
17.08569885
13.99721221
9.855109535
6.161829109
21.10604941
7.019170831
15.94993786
11.14787766
14.47785074
3.542771623
4.049618823
17.62079137
15.80868536
7.924695869
12.84015444
7.100459866
13.24958943
8.033931016
6.180207197
8.153261592
9.247565014
10.53037463
6.41179366
19.86117886
11.33903259
20.97659201
11.15698092
8.084232242
10.45489372
11.20187914
13.3093564
9.318246053
14.76723836
17.33738442
14.297418
9.539944926
11.82381836
12.70487344
14.91466961
10.67396656
12.27302204
9.399947678
9.113786833
13.41282985
13.39422322
19.50268239
15.20247052
21.47634747
9.230992633
19.29806519
9.920946337
6.905765713
5.524413097
8.325413038
15.61615189
24.08901125
5.790063295
19.59424881
17.91478318
13.86919381
8.345229053
10.34154994
13.01840331
10.57065413
12.78181931
8.360820444
18.38055089
4.656926305
14.6082977
14.58911466
13.24704519
13.1762841
19.96086061
14.91350964
9.699369854
7.844968622
9.678318374
11.32237576
13.75733278
15.69625917
7.832073771
13.58868066
5.164690183
10.13822041
13.07008542
17.79205345
13.4374493
11.24629715
7.153779647
11.75585378
20.37874863
26.13768173
8.598325557
6.271317984
10.83805857
13.15714531
10.75402042
17.05821932
12.29721596
11.30875708
6.341929315
6.518719868

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	3 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 & 3 seconds \tabularnewline
R Server & 'Sir Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=283251&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]3 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=283251&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=283251&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 Output	view raw output of R engine
Computing time	3 seconds
R Server	'Sir Maurice George Kendall' @ kendall.wessa.net

Parameter	Estimated Value	Standard Deviation
df	12.148188124624	0.386054195895464

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
df & 12.148188124624 & 0.386054195895464 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=283251&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]df[/C][C]12.148188124624[/C][C]0.386054195895464[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=283251&T=1

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

As an alternative you can also use a QR Code:

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

Parameter	Estimated Value	Standard Deviation
df	12.148188124624	0.386054195895464

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Parameters (Session):

Parameters (R input):

R code (references can be found in the software module):

library(MASS)
library(car)
chii <- x
chi_df <- fitdistr(chii,'chi-squared',start=list(df=3), method='Brent',lower=0.1,upper=100)
chi_k <- chi_df[[1]][1]
bitmap(file='test1.png')
chi_hist <- hist(chii,breaks=50,col='gray',freq=FALSE,main='Histogram scaled to density',xlab='x')
curve(dchisq(x,df=chi_k),add=TRUE,col='red')
dev.off()
f<-chi_df
f$estimate
f$sd
xlab <- paste('Chisq(df = ',round(f$estimate[[1]],2),sep='')
xlab <- paste(xlab,')',sep='')
xlab
bitmap(file='test2.png')
qqPlot(x, dist='chisq', df=f$estimate[[1]], ncp=0, main='QQ plot (Chi-squared 1 param.)', xlab=xlab )
grid()
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Parameter',1,TRUE)
a<-table.element(a,'Estimated Value',1,TRUE)
a<-table.element(a,'Standard Deviation',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'df',header=TRUE)
a<-table.element(a,f$estimate[1])
a<-table.element(a,f$sd[1])
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code