Home » date » 2009 » Jan » 29 »

Random numbers for non-fire wx days

*Unverified author*

R Software Module: rwasp_rngnorm.wasp (opens new window with default values)

Title produced by software: Random Number Generator - Normal Distribution

Date of computation: Thu, 29 Jan 2009 15:53:16 -0700

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2009/Jan/29/t1233269766gfokgvkjv8s1dn2.htm/, Retrieved Thu, 29 Jan 2009 23:56:06 +0100

BibTeX entries for LaTeX users:

@Manual{KEY,
    author = {{YOUR NAME}},
    publisher = {Office for Research Development and Education},
    title = {Statistical Computations at FreeStatistics.org, URL http://www.freestatistics.org/blog/date/2009/Jan/29/t1233269766gfokgvkjv8s1dn2.htm/},
    year = {2009},
}
@Manual{R,
    title = {R: A Language and Environment for Statistical Computing},
    author = {{R Development Core Team}},
    organization = {R Foundation for Statistical Computing},
    address = {Vienna, Austria},
    year = {2009},
    note = {{ISBN} 3-900051-07-0},
    url = {http://www.R-project.org},
}

Original text written by user:

list of random numbers generated to select sample size for for fire weather dates

IsPrivate?

No (this computation is public)

User-defined keywords:

Black Hills, wildland fire, south dakota

Output produced by software:

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	4 seconds
R Server	'Herman Ole Andreas Wold' @ 193.190.124.10:1001

Index	Value
1	159.322800943034
2	227.962752965694
3	283.478561289010
4	350.260287201957
5	323.905222154332
6	409.353216905618
7	345.874733289561
8	394.406723623305
9	135.424448114720
10	369.202577540531
11	267.625427281442
12	432.548642792259
13	455.871835310336
14	488.065086312934
15	412.001673407936
16	456.916362240343
17	179.860621913102
18	352.153619354341
19	508.517165561883
20	269.386412408620
21	159.913327106362
22	557.877659609622
23	380.555101140888
24	228.106168605840
25	463.447902275502
26	442.781664298348
27	509.370990242217
28	499.673680844554
29	175.813461334289
30	71.7596719972253
31	371.198303130187
32	424.459099213232
33	484.471295486853
34	542.829554675415
35	117.337888790088
36	259.119519198839
37	307.254305840554
38	574.457669824202
39	282.82569576142
40	292.176734243565
41	654.798165612256
42	168.315175603984
43	246.861838297455
44	234.667967148247
45	301.969490242235
46	506.900987040791
47	385.186852371943
48	354.489116294984
49	321.344204510963
50	162.122615155695
51	360.715472688927
52	301.011145743492
53	167.893547517582
54	91.3804191638033
55	361.699795929242
56	239.741568821999
57	379.807183805325
58	131.312644273201
59	17.1421577199476
60	468.010478476514
61	342.079407049225
62	394.996985000277
63	412.877849389
64	332.022187239831
65	389.606046905928
66	248.385349962193
67	392.052914242071
68	514.656838998007
69	313.735490734827
70	203.285309040021
71	590.269845647012
72	608.351047072
73	431.942911632162
74	389.854811633601
75	61.4305206798034
76	278.88858057042
77	173.681254702784
78	414.484416373666
79	368.432078109525
80	601.421315364545
81	286.388162864728
82	443.81278727834
83	233.810968027992
84	250.950107408547
85	181.532579532556
86	305.280897474029
87	521.623590250505
88	484.701405972738
89	24.9238135841117
90	314.514767299237
91	163.430063709501
92	224.536505881802
93	578.149526075108
94	373.390718174598
95	311.358924300991
96	411.98782964202
97	339.399341871818
98	408.044517743365
99	439.431268182859
100	532.795856386574
101	314.349856951088
102	454.334271101298
103	421.823255989853
104	528.047807701884
105	322.870859058898
106	646.600565875411
107	306.572415401385
108	112.067446246828
109	242.875442303858
110	282.67996248221
111	73.786733105293
112	188.205724916364
113	254.575274573666
114	662.453130842771
115	588.312528255121
116	464.359082354374
117	580.368593168836
118	108.967196102130
119	595.84626989849
120	312.681498051236
121	138.391290471321
122	617.914281482857
123	278.845374836949
124	494.554412287704
125	155.716525203924
126	621.527916683733
127	340.552956855508
128	522.565727851637
129	306.770686817322
130	218.527623499862
131	259.591998973611
132	246.912936781765
133	206.530498655788
134	370.103237377643
135	593.021000969393
136	268.33310349845
137	352.552950145344
138	352.891020825585
139	149.062169243496
140	645.266672082242
141	368.658086431778
142	378.00017813529
143	317.592246039203
144	130.805898859023
145	629.926425795562
146	221.528927888558
147	287.314948468623
148	311.022730886413
149	460.380747883704
150	332.85791497969
151	308.241551131821
152	293.227612321753
153	519.321288068604
154	371.900620173165
155	349.930883871823
156	313.756134439800
157	161.792535840839
158	399.948522463103
159	552.398666301931
160	160.127569911156
161	409.572595116937
162	66.1461340509009
163	345.952336444433
164	209.781195156153
165	191.292981979054
166	557.509646593916
167	632.981329880676
168	666.693460106479
169	247.855389850250
170	649.415868631635
171	511.406722954797
172	252.825716981559
173	590.513860848052
174	365.502437408925
175	653.274711069877
176	408.511451659377
177	486.155103190651
178	412.484423708308
179	282.414505447763
180	318.015592772021
181	347.755450227957
182	201.918102320559
183	191.053760562012
184	398.076928360303
185	142.531967811967
186	523.729314653028
187	573.372374600837
188	141.525739975092
189	445.273407931293
190	474.841619135041
191	333.719515015549
192	532.405070467085
193	248.728517344997
194	330.393487079917
195	511.218119670814
196	302.217338115455
197	139.582746361390
198	404.493674584327
199	474.465317219544
200	554.464851325817
201	244.711788766216
202	295.248994569199
203	60.1180470419145
204	561.215446955356
205	204.187831938739
206	121.986891677344
207	590.707696258454
208	248.519093343588
209	346.853991674544
210	479.726571173132
211	244.463099695452
212	337.738967899384
213	150.699818167344
214	262.367536370112
215	292.95662344244
216	97.1740008081465
217	565.749108637744
218	473.612666675935
219	168.019614222530
220	421.005690658938
221	372.626083353621
222	549.442747119969
223	595.344907328772
224	589.188748739759
225	580.138513473205
226	243.511536030527
227	485.283550901824
228	460.615446704621
229	445.346666154801
230	303.647197631404
231	273.437958126062
232	443.135613918877
233	194.083163490741
234	182.303622655531
235	516.575075783126
236	253.341717585043
237	300.851643999145
238	363.616794073683
239	480.752133238821
240	183.884016558817
241	453.089280617536
242	494.920242870961
243	376.030337155017
244	376.280916499994
245	593.406034137658
246	301.68275435602
247	204.260030506886
248	313.437822065467
249	134.817654923797
250	307.183166726674
251	652.459583200075
252	586.744049512882
253	149.275602566052
254	365.979176253346
255	616.547047035344
256	620.316571431386
257	251.524311630087
258	172.548571576488
259	455.789371219518
260	324.010502879453
261	105.432587880183
262	213.834715016146
263	186.077236964122
264	498.200360600026
265	404.91920033425
266	459.672904262708
267	184.866973526883
268	437.504812548769
269	351.647029083142
270	363.537393134914
271	262.772729967332
272	49.1003152278599
273	508.490980310423
274	642.656047188531
275	453.426741891114
276	76.2265753914801
277	470.089180398151
278	46.0539897038093
279	472.998719039939
280	461.519264720434
281	378.130002313026
282	100.902681662885
283	111.674691239128
284	220.423077711940
285	418.852063248131
286	247.533304838187
287	315.625764671470
288	306.901558944047
289	147.471210785532
290	370.914176826049
291	289.461944280329
292	503.805904392913
293	321.908912638201
294	449.417605216742
295	464.057577991832
296	285.595570114313
297	395.991334117123
298	345.494301851742
299	270.024730399544
300	622.620774192549
301	298.984307348072
302	475.438611038824
303	220.629648058678

Charts produced by software:

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jan/29/t1233269766gfokgvkjv8s1dn2/1g2we1233269589.png (open in new window)

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jan/29/t1233269766gfokgvkjv8s1dn2/1g2we1233269589.ps (open in new window)

Parameters (Session):

par1 = 303 ; par2 = 346 ; par3 = 212 ; par4 = 2 ; par5 = Y ; par6 = 0 ; par7 = 1 ; par8 = 671 ;

Parameters (R input):

par1 = 303 ; par2 = 346 ; par3 = 212 ; par4 = 2 ; par5 = Y ; par6 = 0 ; par7 = 1 ; par8 = 671 ;

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')

}

This work is licensed under a Creative Commons Attribution-Noncommercial-Share Alike 3.0 License.

Software written by Ed van Stee & Patrick Wessa

Disclaimer

Information provided on this web site is provided "AS IS" without warranty of any kind, either express or implied, including, without limitation, warranties of merchantability, fitness for a particular purpose, and noninfringement. We use reasonable efforts to include accurate and timely information and periodically update the information, and software without notice. However, we make no warranties or representations as to the accuracy or completeness of such information (or software), and we assume no liability or responsibility for errors or omissions in the content of this web site, or any software bugs in online applications. Your use of this web site is AT YOUR OWN RISK. Under no circumstances and under no legal theory shall we be liable to you or any other person for any direct, indirect, special, incidental, exemplary, or consequential damages arising from your access to, or use of, this web site.

We may request personal information to be submitted to our servers in order to be able to:

personalize online software applications according to your needs
enforce strict security rules with respect to the data that you upload (e.g. statistical data)
manage user sessions of online applications
alert you about important changes or upgrades in resources or applications

We NEVER allow other companies to directly offer registered users information about their products and services. Banner references and hyperlinks of third parties NEVER contain any personal data of the visitor.

We do NOT sell, nor transmit by any means, personal information, nor statistical data series uploaded by you to third parties.

We carefully protect your data from loss, misuse, alteration, and destruction. However, at any time, and under any circumstance you are solely responsible for managing your passwords, and keeping them secret.

We store a unique ANONYMOUS USER ID in the form of a small 'Cookie' on your computer. This allows us to track your progress when using this website which is necessary to create state-dependent features. The cookie is used for NO OTHER PURPOSE. At any time you may opt to disallow cookies from this website - this will not affect other features of this website.

We examine cookies that are used by third-parties (banner and online ads) very closely: abuse from third-parties automatically results in termination of the advertising contract without refund. We have very good reason to believe that the cookies that are produced by third parties (banner ads) do NOT cause any privacy or security risk.

FreeStatistics.org is safe. There is no need to download any software to use the applications and services contained in this website. Hence, your system's security is not compromised by their use, and your personal data - other than data you submit in the account application form, and the user-agent information that is transmitted by your browser - is never transmitted to our servers.

As a general rule, we do not log on-line behavior of individuals (other than normal logging of webserver 'hits'). However, in cases of abuse, hacking, unauthorized access, Denial of Service attacks, illegal copying, hotlinking, non-compliance with international webstandards (such as robots.txt), or any other harmful behavior, our system engineers are empowered to log, track, identify, publish, and ban misbehaving individuals - even if this leads to ban entire blocks of IP addresses, or disclosing user's identity.

FreeStatistics.org is powered by