Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_rngnorm.wasp

Title produced by software

Random Number Generator - Normal Distribution

Date of computation

Sun, 18 Mar 2012 22:02:45 -0400

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/2012/Mar/18/t1332123900jvyx3rl5sn3pps8.htm/, Retrieved Sun, 05 May 2024 20:48:21 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=164030, Retrieved Sun, 05 May 2024 20:48:21 +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

199

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

-       [Random Number Generator - Normal Distribution] [] [2012-03-19 02:02:45] [d41d8cd98f00b204e9800998ecf8427e] [Current]

Feedback Forum

Post a new message

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gertrude Mary Cox' @ cox.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 & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=164030&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=164030&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=164030&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	1 seconds
R Server	'Gertrude Mary Cox' @ cox.wessa.net

Index	Value
1	-0.0185722736397051
2	0.736766313677624
3	-1.0432722247194
4	-0.458356804528582
5	0.559036319861178
6	-0.699742373200756
7	1.00570164520023
8	-1.11040632911585
9	-0.334420304433788
10	-1.80971655416833
11	-0.604487003987474
12	1.70455125387166
13	-0.460629722750496
14	0.536444810473306
15	-1.7607615453794
16	-1.89732890779344
17	-1.58825922169146
18	-1.10512891467282
19	0.189307786610327
20	-0.0476783982472002
21	-0.0447870672099308
22	-1.21155944689719
23	0.850936473801036
24	0.717192753630748
25	0.598375581652734
26	-1.04866971062946
27	-1.03522014841414
28	-0.0332108026837868
29	0.142391912270691
30	-0.0495284109591487
31	-0.609216206068329
32	-0.28588100081612
33	-2.62152390810176
34	0.663558420423065
35	2.03333259961978
36	0.669902559850421
37	1.1668782342422
38	0.337912851293415
39	-1.67344153737416
40	1.59335246542617
41	1.49708323550445
42	-0.60049161316251
43	0.0746631649823766
44	-0.214819289207973
45	-0.144197154451711
46	-2.36398170331731
47	1.03701508328026
48	0.116953174138611
49	-0.66301371194457
50	0.3481306323787
51	-0.364560311495071
52	1.01263197429929
53	-0.183162328521238
54	-0.843094952309011
55	-1.12460850410102
56	-0.492285719210438
57	-0.770842744766785
58	-0.093057136515492
59	0.796139014178844
60	-0.0924721503560423
61	-0.139880238938034
62	1.03615485615576
63	0.879780343240045
64	-0.442464285359442
65	-1.51846971104136
66	0.987113469952841
67	-0.446116144164368
68	1.44804203053882
69	0.428838885583118
70	-0.584927497544963
71	-2.11399280341423
72	-2.83597417593775
73	-1.15183434874134
74	0.894710666539205
75	0.246510323102018
76	-0.174698698867864
77	0.00338219900829144
78	-0.212957808286429
79	-1.39554305643623
80	-0.104509632532821
81	-1.53356102584922
82	-1.35999212046853
83	-0.116791464912253
84	0.276508197089773
85	-0.995184094442234
86	-0.680749022467349
87	1.06628183284684
88	-0.93455006168945
89	0.397487128138224
90	-0.499624150436808
91	-0.0939170366231954
92	-0.836278707871685
93	-1.4903278608047
94	0.822274433514878
95	1.38370496555531
96	-0.381754942402624
97	-0.566662401944688
98	-0.246569000401017
99	0.98776086036322
100	-0.752071905992995

\begin{tabular}{lllllllll}
\hline
Index & Value \tabularnewline
1 & -0.0185722736397051 \tabularnewline
2 & 0.736766313677624 \tabularnewline
3 & -1.0432722247194 \tabularnewline
4 & -0.458356804528582 \tabularnewline
5 & 0.559036319861178 \tabularnewline
6 & -0.699742373200756 \tabularnewline
7 & 1.00570164520023 \tabularnewline
8 & -1.11040632911585 \tabularnewline
9 & -0.334420304433788 \tabularnewline
10 & -1.80971655416833 \tabularnewline
11 & -0.604487003987474 \tabularnewline
12 & 1.70455125387166 \tabularnewline
13 & -0.460629722750496 \tabularnewline
14 & 0.536444810473306 \tabularnewline
15 & -1.7607615453794 \tabularnewline
16 & -1.89732890779344 \tabularnewline
17 & -1.58825922169146 \tabularnewline
18 & -1.10512891467282 \tabularnewline
19 & 0.189307786610327 \tabularnewline
20 & -0.0476783982472002 \tabularnewline
21 & -0.0447870672099308 \tabularnewline
22 & -1.21155944689719 \tabularnewline
23 & 0.850936473801036 \tabularnewline
24 & 0.717192753630748 \tabularnewline
25 & 0.598375581652734 \tabularnewline
26 & -1.04866971062946 \tabularnewline
27 & -1.03522014841414 \tabularnewline
28 & -0.0332108026837868 \tabularnewline
29 & 0.142391912270691 \tabularnewline
30 & -0.0495284109591487 \tabularnewline
31 & -0.609216206068329 \tabularnewline
32 & -0.28588100081612 \tabularnewline
33 & -2.62152390810176 \tabularnewline
34 & 0.663558420423065 \tabularnewline
35 & 2.03333259961978 \tabularnewline
36 & 0.669902559850421 \tabularnewline
37 & 1.1668782342422 \tabularnewline
38 & 0.337912851293415 \tabularnewline
39 & -1.67344153737416 \tabularnewline
40 & 1.59335246542617 \tabularnewline
41 & 1.49708323550445 \tabularnewline
42 & -0.60049161316251 \tabularnewline
43 & 0.0746631649823766 \tabularnewline
44 & -0.214819289207973 \tabularnewline
45 & -0.144197154451711 \tabularnewline
46 & -2.36398170331731 \tabularnewline
47 & 1.03701508328026 \tabularnewline
48 & 0.116953174138611 \tabularnewline
49 & -0.66301371194457 \tabularnewline
50 & 0.3481306323787 \tabularnewline
51 & -0.364560311495071 \tabularnewline
52 & 1.01263197429929 \tabularnewline
53 & -0.183162328521238 \tabularnewline
54 & -0.843094952309011 \tabularnewline
55 & -1.12460850410102 \tabularnewline
56 & -0.492285719210438 \tabularnewline
57 & -0.770842744766785 \tabularnewline
58 & -0.093057136515492 \tabularnewline
59 & 0.796139014178844 \tabularnewline
60 & -0.0924721503560423 \tabularnewline
61 & -0.139880238938034 \tabularnewline
62 & 1.03615485615576 \tabularnewline
63 & 0.879780343240045 \tabularnewline
64 & -0.442464285359442 \tabularnewline
65 & -1.51846971104136 \tabularnewline
66 & 0.987113469952841 \tabularnewline
67 & -0.446116144164368 \tabularnewline
68 & 1.44804203053882 \tabularnewline
69 & 0.428838885583118 \tabularnewline
70 & -0.584927497544963 \tabularnewline
71 & -2.11399280341423 \tabularnewline
72 & -2.83597417593775 \tabularnewline
73 & -1.15183434874134 \tabularnewline
74 & 0.894710666539205 \tabularnewline
75 & 0.246510323102018 \tabularnewline
76 & -0.174698698867864 \tabularnewline
77 & 0.00338219900829144 \tabularnewline
78 & -0.212957808286429 \tabularnewline
79 & -1.39554305643623 \tabularnewline
80 & -0.104509632532821 \tabularnewline
81 & -1.53356102584922 \tabularnewline
82 & -1.35999212046853 \tabularnewline
83 & -0.116791464912253 \tabularnewline
84 & 0.276508197089773 \tabularnewline
85 & -0.995184094442234 \tabularnewline
86 & -0.680749022467349 \tabularnewline
87 & 1.06628183284684 \tabularnewline
88 & -0.93455006168945 \tabularnewline
89 & 0.397487128138224 \tabularnewline
90 & -0.499624150436808 \tabularnewline
91 & -0.0939170366231954 \tabularnewline
92 & -0.836278707871685 \tabularnewline
93 & -1.4903278608047 \tabularnewline
94 & 0.822274433514878 \tabularnewline
95 & 1.38370496555531 \tabularnewline
96 & -0.381754942402624 \tabularnewline
97 & -0.566662401944688 \tabularnewline
98 & -0.246569000401017 \tabularnewline
99 & 0.98776086036322 \tabularnewline
100 & -0.752071905992995 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=164030&T=1

[TABLE]
[ROW][C]Index[/C][C]Value[/C][/ROW]
[ROW][C]1[/C][C]-0.0185722736397051[/C][/ROW]
[ROW][C]2[/C][C]0.736766313677624[/C][/ROW]
[ROW][C]3[/C][C]-1.0432722247194[/C][/ROW]
[ROW][C]4[/C][C]-0.458356804528582[/C][/ROW]
[ROW][C]5[/C][C]0.559036319861178[/C][/ROW]
[ROW][C]6[/C][C]-0.699742373200756[/C][/ROW]
[ROW][C]7[/C][C]1.00570164520023[/C][/ROW]
[ROW][C]8[/C][C]-1.11040632911585[/C][/ROW]
[ROW][C]9[/C][C]-0.334420304433788[/C][/ROW]
[ROW][C]10[/C][C]-1.80971655416833[/C][/ROW]
[ROW][C]11[/C][C]-0.604487003987474[/C][/ROW]
[ROW][C]12[/C][C]1.70455125387166[/C][/ROW]
[ROW][C]13[/C][C]-0.460629722750496[/C][/ROW]
[ROW][C]14[/C][C]0.536444810473306[/C][/ROW]
[ROW][C]15[/C][C]-1.7607615453794[/C][/ROW]
[ROW][C]16[/C][C]-1.89732890779344[/C][/ROW]
[ROW][C]17[/C][C]-1.58825922169146[/C][/ROW]
[ROW][C]18[/C][C]-1.10512891467282[/C][/ROW]
[ROW][C]19[/C][C]0.189307786610327[/C][/ROW]
[ROW][C]20[/C][C]-0.0476783982472002[/C][/ROW]
[ROW][C]21[/C][C]-0.0447870672099308[/C][/ROW]
[ROW][C]22[/C][C]-1.21155944689719[/C][/ROW]
[ROW][C]23[/C][C]0.850936473801036[/C][/ROW]
[ROW][C]24[/C][C]0.717192753630748[/C][/ROW]
[ROW][C]25[/C][C]0.598375581652734[/C][/ROW]
[ROW][C]26[/C][C]-1.04866971062946[/C][/ROW]
[ROW][C]27[/C][C]-1.03522014841414[/C][/ROW]
[ROW][C]28[/C][C]-0.0332108026837868[/C][/ROW]
[ROW][C]29[/C][C]0.142391912270691[/C][/ROW]
[ROW][C]30[/C][C]-0.0495284109591487[/C][/ROW]
[ROW][C]31[/C][C]-0.609216206068329[/C][/ROW]
[ROW][C]32[/C][C]-0.28588100081612[/C][/ROW]
[ROW][C]33[/C][C]-2.62152390810176[/C][/ROW]
[ROW][C]34[/C][C]0.663558420423065[/C][/ROW]
[ROW][C]35[/C][C]2.03333259961978[/C][/ROW]
[ROW][C]36[/C][C]0.669902559850421[/C][/ROW]
[ROW][C]37[/C][C]1.1668782342422[/C][/ROW]
[ROW][C]38[/C][C]0.337912851293415[/C][/ROW]
[ROW][C]39[/C][C]-1.67344153737416[/C][/ROW]
[ROW][C]40[/C][C]1.59335246542617[/C][/ROW]
[ROW][C]41[/C][C]1.49708323550445[/C][/ROW]
[ROW][C]42[/C][C]-0.60049161316251[/C][/ROW]
[ROW][C]43[/C][C]0.0746631649823766[/C][/ROW]
[ROW][C]44[/C][C]-0.214819289207973[/C][/ROW]
[ROW][C]45[/C][C]-0.144197154451711[/C][/ROW]
[ROW][C]46[/C][C]-2.36398170331731[/C][/ROW]
[ROW][C]47[/C][C]1.03701508328026[/C][/ROW]
[ROW][C]48[/C][C]0.116953174138611[/C][/ROW]
[ROW][C]49[/C][C]-0.66301371194457[/C][/ROW]
[ROW][C]50[/C][C]0.3481306323787[/C][/ROW]
[ROW][C]51[/C][C]-0.364560311495071[/C][/ROW]
[ROW][C]52[/C][C]1.01263197429929[/C][/ROW]
[ROW][C]53[/C][C]-0.183162328521238[/C][/ROW]
[ROW][C]54[/C][C]-0.843094952309011[/C][/ROW]
[ROW][C]55[/C][C]-1.12460850410102[/C][/ROW]
[ROW][C]56[/C][C]-0.492285719210438[/C][/ROW]
[ROW][C]57[/C][C]-0.770842744766785[/C][/ROW]
[ROW][C]58[/C][C]-0.093057136515492[/C][/ROW]
[ROW][C]59[/C][C]0.796139014178844[/C][/ROW]
[ROW][C]60[/C][C]-0.0924721503560423[/C][/ROW]
[ROW][C]61[/C][C]-0.139880238938034[/C][/ROW]
[ROW][C]62[/C][C]1.03615485615576[/C][/ROW]
[ROW][C]63[/C][C]0.879780343240045[/C][/ROW]
[ROW][C]64[/C][C]-0.442464285359442[/C][/ROW]
[ROW][C]65[/C][C]-1.51846971104136[/C][/ROW]
[ROW][C]66[/C][C]0.987113469952841[/C][/ROW]
[ROW][C]67[/C][C]-0.446116144164368[/C][/ROW]
[ROW][C]68[/C][C]1.44804203053882[/C][/ROW]
[ROW][C]69[/C][C]0.428838885583118[/C][/ROW]
[ROW][C]70[/C][C]-0.584927497544963[/C][/ROW]
[ROW][C]71[/C][C]-2.11399280341423[/C][/ROW]
[ROW][C]72[/C][C]-2.83597417593775[/C][/ROW]
[ROW][C]73[/C][C]-1.15183434874134[/C][/ROW]
[ROW][C]74[/C][C]0.894710666539205[/C][/ROW]
[ROW][C]75[/C][C]0.246510323102018[/C][/ROW]
[ROW][C]76[/C][C]-0.174698698867864[/C][/ROW]
[ROW][C]77[/C][C]0.00338219900829144[/C][/ROW]
[ROW][C]78[/C][C]-0.212957808286429[/C][/ROW]
[ROW][C]79[/C][C]-1.39554305643623[/C][/ROW]
[ROW][C]80[/C][C]-0.104509632532821[/C][/ROW]
[ROW][C]81[/C][C]-1.53356102584922[/C][/ROW]
[ROW][C]82[/C][C]-1.35999212046853[/C][/ROW]
[ROW][C]83[/C][C]-0.116791464912253[/C][/ROW]
[ROW][C]84[/C][C]0.276508197089773[/C][/ROW]
[ROW][C]85[/C][C]-0.995184094442234[/C][/ROW]
[ROW][C]86[/C][C]-0.680749022467349[/C][/ROW]
[ROW][C]87[/C][C]1.06628183284684[/C][/ROW]
[ROW][C]88[/C][C]-0.93455006168945[/C][/ROW]
[ROW][C]89[/C][C]0.397487128138224[/C][/ROW]
[ROW][C]90[/C][C]-0.499624150436808[/C][/ROW]
[ROW][C]91[/C][C]-0.0939170366231954[/C][/ROW]
[ROW][C]92[/C][C]-0.836278707871685[/C][/ROW]
[ROW][C]93[/C][C]-1.4903278608047[/C][/ROW]
[ROW][C]94[/C][C]0.822274433514878[/C][/ROW]
[ROW][C]95[/C][C]1.38370496555531[/C][/ROW]
[ROW][C]96[/C][C]-0.381754942402624[/C][/ROW]
[ROW][C]97[/C][C]-0.566662401944688[/C][/ROW]
[ROW][C]98[/C][C]-0.246569000401017[/C][/ROW]
[ROW][C]99[/C][C]0.98776086036322[/C][/ROW]
[ROW][C]100[/C][C]-0.752071905992995[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=164030&T=1

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

As an alternative you can also use a QR Code:

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

Index	Value
1	-0.0185722736397051
2	0.736766313677624
3	-1.0432722247194
4	-0.458356804528582
5	0.559036319861178
6	-0.699742373200756
7	1.00570164520023
8	-1.11040632911585
9	-0.334420304433788
10	-1.80971655416833
11	-0.604487003987474
12	1.70455125387166
13	-0.460629722750496
14	0.536444810473306
15	-1.7607615453794
16	-1.89732890779344
17	-1.58825922169146
18	-1.10512891467282
19	0.189307786610327
20	-0.0476783982472002
21	-0.0447870672099308
22	-1.21155944689719
23	0.850936473801036
24	0.717192753630748
25	0.598375581652734
26	-1.04866971062946
27	-1.03522014841414
28	-0.0332108026837868
29	0.142391912270691
30	-0.0495284109591487
31	-0.609216206068329
32	-0.28588100081612
33	-2.62152390810176
34	0.663558420423065
35	2.03333259961978
36	0.669902559850421
37	1.1668782342422
38	0.337912851293415
39	-1.67344153737416
40	1.59335246542617
41	1.49708323550445
42	-0.60049161316251
43	0.0746631649823766
44	-0.214819289207973
45	-0.144197154451711
46	-2.36398170331731
47	1.03701508328026
48	0.116953174138611
49	-0.66301371194457
50	0.3481306323787
51	-0.364560311495071
52	1.01263197429929
53	-0.183162328521238
54	-0.843094952309011
55	-1.12460850410102
56	-0.492285719210438
57	-0.770842744766785
58	-0.093057136515492
59	0.796139014178844
60	-0.0924721503560423
61	-0.139880238938034
62	1.03615485615576
63	0.879780343240045
64	-0.442464285359442
65	-1.51846971104136
66	0.987113469952841
67	-0.446116144164368
68	1.44804203053882
69	0.428838885583118
70	-0.584927497544963
71	-2.11399280341423
72	-2.83597417593775
73	-1.15183434874134
74	0.894710666539205
75	0.246510323102018
76	-0.174698698867864
77	0.00338219900829144
78	-0.212957808286429
79	-1.39554305643623
80	-0.104509632532821
81	-1.53356102584922
82	-1.35999212046853
83	-0.116791464912253
84	0.276508197089773
85	-0.995184094442234
86	-0.680749022467349
87	1.06628183284684
88	-0.93455006168945
89	0.397487128138224
90	-0.499624150436808
91	-0.0939170366231954
92	-0.836278707871685
93	-1.4903278608047
94	0.822274433514878
95	1.38370496555531
96	-0.381754942402624
97	-0.566662401944688
98	-0.246569000401017
99	0.98776086036322
100	-0.752071905992995

Parameter	Value	Standard Deviation
# simulated values	100	-
true mean	0	-
true standard deviation	1	-
mean	-0.21864979882118	0.0986872251563293
standard deviation	0.986872251563293	0.0697824061245241

\begin{tabular}{lllllllll}
\hline
Parameter & Value & Standard Deviation \tabularnewline
# simulated values & 100 & - \tabularnewline
true mean & 0 & - \tabularnewline
true standard deviation & 1 & - \tabularnewline
mean & -0.21864979882118 & 0.0986872251563293 \tabularnewline
standard deviation & 0.986872251563293 & 0.0697824061245241 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=164030&T=2

[TABLE]
[ROW][C]Parameter[/C][C]Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]# simulated values[/C][C]100[/C][C]-[/C][/ROW]
[ROW][C]true mean[/C][C]0[/C][C]-[/C][/ROW]
[ROW][C]true standard deviation[/C][C]1[/C][C]-[/C][/ROW]
[ROW][C]mean[/C][C]-0.21864979882118[/C][C]0.0986872251563293[/C][/ROW]
[ROW][C]standard deviation[/C][C]0.986872251563293[/C][C]0.0697824061245241[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=164030&T=2

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

As an alternative you can also use a QR Code:

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

Parameter	Value	Standard Deviation
# simulated values	100	-
true mean	0	-
true standard deviation	1	-
mean	-0.21864979882118	0.0986872251563293
standard deviation	0.986872251563293	0.0697824061245241

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 100 ; par2 = 0 ; par3 = 1 ; par4 = 3 ; par5 = Y ; par6 = 0 ;

Parameters (R input):

par1 = 100 ; par2 = 0 ; par3 = 1 ; par4 = 3 ; par5 = Y ; par6 = 0 ; par7 = ; par8 = ;

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

library(MASS)
library(msm)
par1 <- as.numeric(par1)
if (par1 > 10000) par1=10000 #impose restriction on number of random values
par2 <- as.numeric(par2)
par3 <- as.numeric(par3)
par4 <- as.numeric(par4)
if (par6 == '0') par6 = 'Sturges' else {
par6 <- as.numeric(par6)
if (par6 > 50) par6 = 50 #impose restriction on the number of bins
}
if (par7 == '') par7 <- -Inf else par7 <- as.numeric(par7)
if (par8 == '') par8 <- Inf else par8 <- as.numeric(par8)
x <- rtnorm(par1,par2,par3,par7,par8)
x <- as.ts(x) #otherwise the fitdistr function does not work properly
if ((par7 == -Inf) & (par8 == Inf)) (r <- fitdistr(x,'normal'))
bitmap(file='test1.png')
myhist<-hist(x,col=par4,breaks=par6,main=main,ylab=ylab,xlab=xlab,freq=F)
if ((par7 == -Inf) & (par8 == Inf)) {
curve(1/(r$estimate[2]*sqrt(2*pi))*exp(-1/2*((x-r$estimate[1])/r$estimate[2])^2),min(x),max(x),add=T)
}
dev.off()
load(file='createtable')
if (par5 == 'Y')
{
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Index',1,TRUE)
a<-table.element(a,'Value',1,TRUE)
a<-table.row.end(a)
for (i in 1:par1)
{
a<-table.row.start(a)
a<-table.element(a,i,header=TRUE)
a<-table.element(a,x[i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')
}
if ((par7 == -Inf) & (par8 == Inf)) {
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Parameter',1,TRUE)
a<-table.element(a,'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,'# simulated values',header=TRUE)
a<-table.element(a,par1)
a<-table.element(a,'-')
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'true mean',header=TRUE)
a<-table.element(a,par2)
a<-table.element(a,'-')
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'true standard deviation',header=TRUE)
a<-table.element(a,par3)
a<-table.element(a,'-')
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'mean',header=TRUE)
a<-table.element(a,r$estimate[1])
a<-table.element(a,r$sd[1])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'standard deviation',header=TRUE)
a<-table.element(a,r$estimate[2])
a<-table.element(a,r$sd[2])
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