R version 3.0.2 (2013-09-25) -- "Frisbee Sailing" Copyright (C) 2013 The R Foundation for Statistical Computing Platform: x86_64-pc-linux-gnu (64-bit) R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > x <- c(6.3152956 + ,5.47977 + ,3.6421699 + ,4.5933366 + ,2.4181575 + ,2.0940581 + ,5.5120039 + ,3.5484272 + ,5.8182264 + ,3.8277805 + ,6.7368937 + ,12.861342 + ,7.655561 + ,2.4497795 + ,6.1056621 + ,8.2680059 + ,1.8624055 + ,3.9808917 + ,4.7634602 + ,6.3805956 + ,5.6311238 + ,2.4880573 + ,1.2237383 + ,1.3456535 + ,0.75111165 + ,11.33023 + ,3.8947577 + ,2.9985153 + ,3.2678962 + ,1.3551972 + ,4.2871142 + ,7.6249388 + ,4.4437861 + ,1.1342815 + ,9.0641842 + ,3.9808917 + ,3.4507052 + ,8.0967289 + ,8.7352138 + ,7.2758452 + ,5.5120039 + ,9.7863588 + ,7.0431161 + ,0.78527179 + ,4.0087301 + ,3.6121513 + ,3.1847134 + ,5.8182264 + ,2.2747953 + ,5.4478927 + ,2.4035573 + ,9.033562 + ,4.9740959 + ,9.3276124 + ,5.8734468 + ,3.2832097 + ,2.1435571 + ,2.5605736 + ,9.1866732 + ,2.8351911 + ,5.8976174 + ,2.5332947 + ,8.2680059 + ,14.102052 + ,0.72932367 + ,4.5933366 + ,3.3777263 + ,3.1847134 + ,5.007411 + ,2.3189661 + ,3.387993 + ,2.4497795 + ,5.8182264 + ,5.3588927 + ,7.1432823 + ,5.599636 + ,3.8277805 + ,8.0713228 + ,3.9439175 + ,6.3455414 + ,5.4836124 + ,6.9801937 + ,10.047012 + ,5.5120039 + ,6.255687 + ,3.2344745 + ,1.9183215 + ,11.091042 + ,5.1844171 + ,5.1366345 + ,4.2418194 + ,3.902835 + ,6.7803575 + ,1.0261854 + ,4.5930644 + ,0.43868145 + ,7.3493386 + ,4.5933366 + ,4.7245748 + ,4.8172135 + ,8.5304823 + ,6.1951871 + ,4.7046902 + ,5.0833414 + ,5.790388 + ,5.1037073 + ,6.9908342 + ,4.3162053 + ,7.7100274 + ,5.7109839 + ,1.9819298 + ,5.8175871 + ,3.6746693 + ,2.756002 + ,4.9481497 + ,3.9808917 + ,4.1571449 + ,4.744452 + ,6.613622 + ,2.737576 + ,5.2495275 + ,3.9851788 + ,7.9617834 + ,6.1182562 + ,3.1429922 + ,6.1244488 + ,4.8621578 + ,1.8094962 + ,2.3810941 + ,3.6746693 + ,6.9840206 + ,12.248898 + ,7.3493386 + ,1.9780828 + ,3.2153356 + ,4.7278219 + ,8.7296712 + ,6.654625 + ,4.6267022 + ,3.0622244 + ,5.9061957 + ,4.4795968 + ,3.3684468 + ,2.807039 + ,7.7241183 + ,3.6945631 + ,6.4988282 + ,2.3891985 + ,4.5933366 + ,4.5933366 + ,4.0829659 + ,2.4560772 + ,7.655561 + ,3.1649325 + ,4.9425376 + ,3.6746693 + ,2.0220402 + ,9.7991181 + ,7.5826509 + ,2.9903412 + ,4.2871142 + ,4.5933366 + ,1.2132241 + ,6.1244488 + ,7.1463086 + ,3.3616419 + ,2.1435571 + ,1.9598236 + ,4.322111 + ,0.10289074 + ,2.5477707 + ,7.9617834 + ,6.5739496 + ,4.2871142 + ,3.2938447 + ,6.9107704 + ,4.4479237 + ,0.77992981 + ,4.7230919 + ,3.9317449 + ,1.3504085 + ,3.5385704 + ,2.8705479 + ,2.4811139 + ,4.1340029 + ,1.5329547 + ,2.4497795 + ,4.4613442 + ,4.0429137 + ,3.3684468 + ,5.1087252 + ,7.2599849 + ,8.2680059 + ,3.2153356 + ,4.9146811 + ,5.6395966 + ,4.3036667 + ,4.5933366 + ,2.7186578 + ,4.4053672 + ,2.3828757 + ,7.9617834 + ,4.7890427 + ,9.6096962 + ,0.93120274 + ,2.8201186 + ,3.5107077 + ,3.9808917 + ,5.5120039 + ,2.9488087 + ,4.5933366 + ,4.4785032 + ,3.0421143 + ,3.5783296 + ,5.20378 + ,2.6154651 + ,2.799748 + ,6.548653 + ,4.4855118 + ,2.6211633 + ,7.8340543 + ,6.2784349 + ,4.5933366 + ,6.4306712 + ,5.2477254 + ,12.535891 + ,2.2798843 + ,7.655561 + ,4.899559 + ,9.8369525 + ,7.3493386 + ,4.4605328 + ,1.7646227 + ,6.587087 + ,3.7913254 + ,5.8182264 + ,9.5601152 + ,3.1376486 + ,4.7938485 + ,0.51889424 + ,2.943358 + ,3.3924121 + ,6.1372081 + ,4.3854116 + ,3.6746693 + ,2.8172464 + ,3.9196472 + ,2.9236713 + ,6.0884226 + ,1.7095431 + ,9.1866732 + ,2.5297811 + ,4.8131688 + ,4.0185658 + ,3.1867051 + ,1.5696087 + ,3.0622244 + ,4.899559 + ,5.1574306 + ,1.7085372 + ,5.7562599 + ,5.7413645 + ,9.9079972 + ,2.3700193 + ,4.7770701 + ,3.3684468 + ,7.9617834 + ,3.0009799 + ,4.8344795 + ,5.0526703 + ,6.4306712 + ,0.7655561 + ,5.2002695 + ,3.4805611 + ,0.92954832 + ,1.8761645 + ,4.2871142 + ,3.7555582 + ,3.6746693 + ,15.923567 + ,5.4082564 + ,5.1366345 + ,1.7122115 + ,4.4607615 + ,2.9013279 + ,6.0445247 + ,8.2680059 + ,6.2856185 + ,5.6651151 + ,5.6651151 + ,3.1847134 + ,5.8614357 + ,6.511874 + ,1.7777507 + ,6.8243858 + ,4.2462845 + ,5.3895149 + ,2.9785089 + ,1.6331863 + ,2.756002 + ,3.9709094 + ,6.2605477 + ,3.2570932 + ,3.155134 + ,6.1244488 + ,3.6938917 + ,3.1154805 + ,0.91866732 + ,12.248898 + ,1.728474 + ,5.5872164 + ,4.4437861 + ,3.2729405 + ,3.6746693 + ,5.144537 + ,5.2086434 + ,6.4512475 + ,4.5933366 + ,3.8964682 + ,5.0179307 + ,5.7569819 + ,0.42462845 + ,5.0906418 + ,5.8674351 + ,4.6083708 + ,4.2871142 + ,4.472912 + ,7.123701 + ,8.5495661 + ,10.411563 + ,3.0330604 + ,5.9713376 + ,5.4439545 + ,2.2568835 + ,5.6617127 + ,2.5477707 + ,5.9021715 + ,2.8784909 + ,3.7103457 + ,7.6471357 + ,4.4897275 + ,4.2194336 + ,6.1244488 + ,3.9808917 + ,5.1196338 + ,3.3868202 + ,1.6543966 + ,8.9327326 + ,5.1366345 + ,3.9808917 + ,5.7526182 + ,8.1731582 + ,7.5932666 + ,10.419404 + ,4.4912625 + ,4.0143446 + ,3.0896473 + ,3.7733571 + ,5.9713376 + ,3.8216561 + ,5.8182264 + ,4.0059288 + ,5.5120039 + ,6.7368937 + ,9.4361878 + ,7.0431161 + ,7.3065743 + ,6.6494016 + ,9.1993096 + ,7.655561 + ,7.6072101 + ,7.2741749 + ,3.3684468 + ,2.8708354 + ,5.6962353 + ,6.2704201 + ,4.3036667 + ,11.452719 + ,1.2489072 + ,5.0726044 + ,7.0147872 + ,6.4306712 + ,6.7368937 + ,3.6746693 + ,0.44960659 + ,7.4832849 + ,3.2148526 + ,3.2920013 + ,5.0593273 + ,3.0622244 + ,3.0330604 + ,3.642875 + ,3.461645 + ,4.5933366 + ,6.8593827 + ,5.1924675 + ,9.0723662 + ,7.9617834 + ,2.4497795 + ,14.698677 + ,0.42871142 + ,7.9617834 + ,7.3493386 + ,5.0551006 + ,5.1848809 + ,3.6316907 + ,4.9852788 + ,0.07655561 + ,0.47473988 + ,7.0929028 + ,2.7322229 + ,4.0227958 + ,4.9358765 + ,3.6746693 + ,3.3093662 + ,5.3737099 + ,4.7574718 + ,2.6628038 + ,5.2942805 + ,3.2663727 + ,4.8407643 + ,1.1857975 + ,4.1571269 + ,6.7368937 + ,2.8466712 + ,2.756002 + ,3.9808917 + ,6.0306275 + ,5.3744944 + ,2.1435571 + ,4.5933366 + ,3.3684468 + ,5.7511754 + ,6.1480953 + ,2.7746777 + ,4.7651572 + ,2.4497795 + ,7.0122129 + ,8.1659317 + ,3.5433038 + ,2.3707544 + ,7.7307027 + ,3.3684468 + ,6.1244488 + ,4.5933366 + ,3.7467216 + ,5.9713376 + ,1.8872376 + ,1.8387491 + ,2.6028907 + ,3.0622244 + ,5.8021094 + ,7.3493386 + ,1.481262 + ,4.8285041 + ,6.4994151 + ,3.6746693 + ,5.729114 + ,6.8243858 + ,3.2459579 + ,4.7691215 + ,3.4634553 + ,5.5120039 + ,5.8903453 + ,3.2563531 + ,3.8602586 + ,4.8459422 + ,8.0978823 + ,4.103005 + ,3.3684468 + ,4.2871142 + ,5.2764482 + ,4.7770701 + ,4.8745613 + ,3.7359138 + ,5.8182264 + ,4.0194111 + ,5.6816483 + ,7.655561 + ,7.3493386 + ,4.683402 + ,5.790388 + ,2.0489723 + ,2.3221868 + ,9.9263794 + ,4.9761146 + ,3.7969757 + ,4.8144292 + ,2.2707006 + ,5.5732484 + ,7.3720217 + ,6.4729947 + ,1.5824663 + ,3.2449772 + ,0.60316541 + ,1.9798396 + ,7.3493386 + ,4.962845 + ,3.221889 + ,5.1075592 + ,4.6855553 + ,2.2116065 + ,2.2747953 + ,2.6444832 + ,7.4138064 + ,7.2633814 + ,7.5886737 + ,7.469477 + ,2.6589637 + ,5.7259401 + ,2.756002 + ,4.336631 + ,8.9825249 + ,7.7025626 + ,3.6396724 + ,2.6710499 + ,5.6140781 + ,5.1113312 + ,5.3973275 + ,2.3653044 + ,7.0194928 + ,4.5267665 + ,9.6241338 + ,7.091467 + ,4.5495905 + ,5.5201699 + ,2.5225452 + ,10.557061 + ,7.6993071 + ,6.026848 + ,5.0417626 + ,5.0103652 + ,3.9808917 + ,3.7784735 + ,4.4912625 + ,0.22966683 + ,6.1703822 + ,12.248898 + ,3.9808917 + ,0.44479237 + ,4.4317494 + ,3.0622244 + ,2.5077993 + ,3.1070374 + ,6.6348195 + ,6.0251334 + ,5.6969623 + ,12.312036 + ,3.8901222 + ,2.756002 + ,5.1751592 + ,2.7052942 + ,4.1845131 + ,3.9352151 + ,4.3826331 + ,10.899088 + ,7.3961923 + ,6.4306712 + ,14.091652 + ,6.8243858 + ,3.6053359 + ,5.6927971 + ,2.4115017 + ,5.3588927 + ,0.42581126 + ,3.0622244 + ,2.4566933 + ,6.7368937 + ,12.669746 + ,2.4126616 + ,2.5735058 + ,9.8344211 + ,0.61441416 + ,6.616024 + ,15.127389 + ,9.392703 + ,4.9608035 + ,4.8932856 + ,2.2116065 + ,3.3684468 + ,5.5271885 + ,7.5456271 + ,5.1328714 + ,9.366804 + ,5.9323092 + ,3.7945521 + ,3.899649 + ,8.5742283 + ,6.27756 + ,3.6746693 + ,1.1961365 + ,3.0622244 + ,5.7124904 + ,6.7924086 + ,3.1161579 + ,7.5636943 + ,3.8496535 + ,5.3725249 + ,3.0547251 + ,9.5903301 + ,12.395986 + ,5.9250481 + ,4.9485003 + ,3.9196472 + ,3.0622244 + ,3.2685216 + ,11.154189 + ,2.9856688 + ,6.1030132 + ,4.1449632 + ,6.3694268 + ,2.9890655 + ,6.2729203 + ,5.3674945 + ,4.3711752 + ,4.4096031 + ,4.069356 + ,3.9602653 + ,6.7368937 + ,0.96214906 + ,6.5327454 + ,5.5028172 + ,2.7513722 + ,2.8640234 + ,6.5550458 + ,4.7770701 + ,4.9631897 + ,6.1244488 + ,6.708226 + ,6.0938266 + ,8.9171975 + ,5.2588759 + ,3.0219908 + ,3.8216561 + ,5.5120039 + ,5.5120039 + ,3.1070374 + ,8.0830289 + ,21.231423 + ,5.8182264 + ,4.9307147 + ,4.4136348 + ,7.4173205 + ,3.6746693 + ,5.8182264 + ,3.2235513 + ,1.6211776 + ,1.0158575 + ,6.3796342 + ,3.5850432 + ,2.756002 + ,0.77298868 + ,2.1373915 + ,3.5521803 + ,4.3051585 + ,3.5746783 + ,10.128064 + ,4.4446 + ,4.7464478 + ,5.9158762 + ,5.3106216 + ,8.6984495 + ,15.311122 + ,2.8100412 + ,8.0223293 + ,7.8723252 + ,12.948835 + ,3.5276825 + ,7.1700864 + ,8.3598726 + ,7.1113429 + ,11.18476 + ,8.5742283 + ,2.9973773 + ,9.3178657 + ,6.244536 + ,2.1231423 + ,2.3945213 + ,7.1432823 + ,5.9028227 + ,7.7361459 + ,3.6512637 + ,2.6650321 + ,32.4974 + ,8.4211171 + ,6.0884226 + ,1.559605 + ,6.0325821 + ,5.8794708 + ,8.7273395 + ,2.756002 + ,11.777786 + ,7.6629607 + ,6.877016 + ,7.0431161 + ,5.8542525 + ,0.91121985 + ,1.6331863 + ,9.0165496 + ,2.7014275 + ,7.9268122 + ,5.8182264 + ,8.2719828 + ,6.7691276 + ,8.2935244 + ,7.2052339 + ,6.4245874 + ,7.2831283 + ,5.0685094 + ,8.3698118 + ,7.2325058 + ,5.1753277 + ,4.1082474 + ,4.2871142 + ,8.7160577 + ,6.7368937 + ,4.1739363 + ,3.4450024 + ,9.1866732 + ,7.5191253 + ,3.0115493 + ,4.1449632 + ,16.003585 + ,3.0944583 + ,11.024008 + ,1.8115548 + ,7.655561 + ,6.4306712 + ,4.0727585 + ,1.9035068 + ,6.0504054 + ,2.6265677 + ,3.7913254 + ,5.0924076 + ,7.3065743 + ,4.4855118 + ,12.283894 + ,2.9856688 + ,15.311122 + ,1.2156506 + ,4.3967511 + ,3.5521803 + ,6.1863972 + ,2.5624131 + ,2.5971548 + ,4.6443737 + ,2.5787153 + ,4.2062252 + ,4.5933366 + ,1.5923567 + ,2.7408197 + ,4.4402254 + ,1.6939965 + ,6.3694268 + ,1.9200975 + ,7.2624376 + ,3.6746693 + ,3.6746693 + ,3.8216561 + ,7.655561 + ,9.6708574 + ,6.720986 + ,7.1009596 + ,10.795639 + ,9.2741653 + ,4.0783344 + ,5.8182264 + ,7.1349829 + ,3.899649 + ,8.846426 + ,4.2871142 + ,20.99811 + ,6.6302906 + ,3.9808917 + ,2.695103 + ,7.655561 + ,6.848846 + ,5.5732484 + ,0.66870622 + ,5.2531355 + ,8.0820521 + ,3.3458078 + ,10.148103 + ,7.3493386 + ,3.0622244 + ,2.9292203 + ,4.1588422 + ,7.1299553 + ,5.3895149 + ,1.0919017 + ,4.5933366 + ,5.0526703 + ,3.1450896 + ,4.6391494 + ,6.1244488 + ,30.862171 + ,9.1866732 + ,10.313191 + ,6.7368937 + ,7.6963907 + ,16.971827 + ,6.8243858 + ,4.5066699 + ,4.1878494 + ,3.1756401 + ,5.2057815 + ,2.1963541 + ,4.3823577 + ,4.5933366 + ,4.5933366 + ,6.4306712 + ,3.9156312 + ,3.0622244 + ,5.8362422 + ,7.3493386 + ,8.7579618 + ,10.795639 + ,5.790388 + ,2.388535 + ,2.9125701 + ,7.1130654 + ,2.11308 + ,7.4751219 + ,1.1905471 + ,7.4126949 + ,2.5477707 + ,10.464058 + ,7.4309979 + ,3.3760212 + ,6.1244488 + ,3.2842357 + ,6.7368937 + ,4.7120759 + ,8.0748311 + ,4.3526834 + ,15.311122 + ,2.3246083 + ,7.1962273 + ,9.7378736 + ,3.1847134 + ,9.2758642 + ,6.1621543 + ,5.7808672 + ,7.9617834 + ,4.6436087 + ,2.763975 + ,2.8810907 + ,2.7173322 + ,1.8366282 + ,2.756002 + ,4.5593459 + ,3.035096 + ,3.9808917 + ,6.1244488 + ,12.861342 + ,7.8392945 + ,2.8034449 + ,13.99874 + ,2.9193206 + ,10.411563 + ,5.5290163 + ,4.4096031 + ,4.899559 + ,5.6712396 + ,4.1340029 + ,7.2517193 + ,8.9570064 + ,11.636453 + ,3.2764541 + ,3.6307807 + ,2.9711612 + ,5.5640969 + ,6.1351746 + ,7.2517193 + ,14.649096 + ,10.311001 + ,5.5120039 + ,1.1362041 + ,5.4284887 + ,13.178124 + ,8.7894573 + ,6.0251334 + ,2.8847041 + ,4.9487291 + ,5.7263596 + ,4.899559 + ,3.9808917 + ,7.8392945 + ,8.2796634 + ,6.4994151 + ,1.7249894 + ,4.899559 + ,12.132241 + ,3.122268 + ,5.3978193 + ,8.5742283 + ,6.4306712 + ,7.0063694 + ,5.4346645 + ,8.9623181 + ,10.978937 + ,8.8192063 + ,3.2386916 + ,5.6051868 + ,7.1812164 + ,6.1556006 + ,6.7368937 + ,7.873905 + ,5.5455208 + ,7.9617834 + ,2.3873414 + ,3.0622244 + ,1.0686958 + ,4.1521687 + ,4.0312828 + ,5.6533374 + ,16.472655 + ,1.5923567 + ,4.2819676 + ,9.4783136 + ,1.7402805 + ,3.3684468 + ,5.4268658 + ,5.2057815 + ,3.5336626 + ,9.1866732 + ,1.8587821 + ,1.305408 + ,3.8176375 + ,4.4096031 + ,0.21231423 + ,8.7119819 + ,4.0873327 + ,5.6600356 + ,8.5742283 + ,2.6580811 + ,2.4417299 + ,7.2956581 + ,7.9617834 + ,1.5923567 + ,7.1962273 + ,5.1681752 + ,8.3151785 + ,3.0504292 + ,1.3965455 + ,2.8221056 + ,3.2587765 + ,5.5120039 + ,4.7426856 + ,5.790388 + ,9.8598726 + ,3.6746693 + ,2.857669 + ,3.9439175 + ,2.1482046 + ,3.9808917 + ,8.5742283 + ,5.8078904 + ,4.324072 + ,6.7341957 + ,1.1927765 + ,4.1340029 + ,4.5933366 + ,12.176845 + ,7.4358014 + ,6.8331015 + ,8.9171975 + ,8.2839365 + ,7.3519092 + ,0.68243858 + ,3.7031551 + ,5.8505118 + ,7.1513025 + ,7.1615858 + ,1.1853772 + ,5.2406676 + ,3.7809383 + ,3.5265974 + ,7.655561 + ,4.8085103 + ,5.3391207 + ,3.7436631 + ,4.4708476 + ,5.7222235 + ,1.7292561 + ,1.3339114 + ,3.3463257 + ,4.9806364 + ,5.6651151 + ,4.4096031 + ,0.67570691 + ,8.9303303 + ,3.1154805 + ,6.0868242 + ,3.0622244 + ,6.0387342 + ,6.522538 + ,5.2057815 + ,2.3331234 + ,4.8211491 + ,6.6656792 + ,5.2789037 + ,5.6395966 + ,6.804311 + ,5.5120039 + ,7.9617834 + ,12.552361 + ,9.1101856 + ,4.5495905 + ,6.2953636 + ,6.1753445 + ,6.1244488 + ,3.499685 + ,3.3665046 + ,6.1223052 + ,5.2980985 + ,4.3126327 + ,5.0745433 + ,3.8216561 + ,6.27756 + ,8.7273395 + ,5.2608835 + ,10.942349 + ,5.5732484 + ,9.330215 + ,7.9141081 + ,5.3895149 + ,2.9091132 + ,9.0133397 + ,4.9927017 + ,2.2456312 + ,3.3684468 + ,7.3493386 + ,4.0589484 + ,3.0293615 + ,2.4497795 + ,2.7186578 + ,0.67982387 + ,5.2370842 + ,3.1790365 + ,4.899559 + ,0.097991181 + ,2.5641815 + ,11.373976 + ,5.7039643 + ,8.0098425 + ,0.90806491 + ,7.4063102 + ,2.8365868 + ,3.6676162 + ,2.9856688 + ,4.6545811 + ,2.789008 + ,2.102121 + ,4.0904575 + ,8.6481441 + ,3.0170969 + ,2.5477707 + ,1.1450655 + ,7.655561 + ,7.0771408 + ,1.7498425 + ,5.5120039 + ,3.9808917 + ,4.014669 + ,3.9705517 + ,3.5385704 + ,4.4626557 + ,6.1244488 + ,4.088263 + ,1.7076211 + ,6.7368937 + ,0.59416294 + ,1.451997 + ,9.7991181 + ,5.6971617 + ,16.78099 + ,2.8626637 + ,5.790388 + ,7.5024498 + ,3.5498398 + ,2.4146942 + ,4.3551636 + ,1.9954344 + ,1.1708505 + ,7.3493386 + ,4.2704851 + ,2.6539278 + ,3.3523299 + ,5.9713376 + ,4.899559 + ,1.6379756 + ,5.9713376 + ,2.7522214 + ,12.786804 + ,3.3684468 + ,3.6746693 + ,2.6832904 + ,2.895194 + ,11.207202 + ,4.1040121 + ,2.798163 + ,2.1638797 + ,3.051034 + ,6.1712957 + ,9.6832501 + ,8.0492756 + ,4.7360245 + ,6.8734821 + ,3.8277805 + ,10.294023 + ,13.087863 + ,3.4066626 + ,5.2768155 + ,4.5495905 + ,3.7031551 + ,3.5840826 + ,5.3524595 + ,4.5495905 + ,3.5385704 + ,6.0661207 + ,7.0640592 + ,2.9034424 + ,8.3343015 + ,1.9904459 + ,5.5120039 + ,3.5125515 + ,4.1646252 + ,5.0246058 + ,5.5160598 + ,5.9713376 + ,7.0147872 + ,5.2454103 + ,4.4402254 + ,3.0622244 + ,6.5664193 + ,7.380746 + ,2.1755158 + ,4.899559 + ,6.8111174 + ,3.9808917 + ,6.4306712 + ,3.3760212 + ,5.1110294 + ,2.9217554 + ,7.3493386 + ,10.10077 + ,6.5010265 + ,8.2680059 + ,2.7773663 + ,5.8087998 + ,4.5933366 + ,11.008886 + ,7.7285931 + ,1.9610304 + ,7.6644554 + ,4.2862899 + ,2.248033 + ,6.1024448 + ,6.7368937 + ,2.9785089 + ,4.0621344 + ,5.5120039 + ,5.7096455 + ,6.4148654 + ,6.3900398 + ,10.411563 + ,3.7637522 + ,2.7613122 + ,5.0880036 + ,3.3347784 + ,2.895194 + ,2.5186661 + ,4.0699212 + ,3.8277805 + ,5.649159 + ,5.8182264 + ,2.2966683 + ,3.9808917 + ,1.4928344 + ,2.5683172 + ,5.5953969 + ,10.615711 + ,8.2046853 + ,1.2248898 + ,11.005995 + ,6.6148151 + ,1.5976823 + ,7.1671632 + ,7.655561 + ,4.1513955 + ,9.5983723 + ,6.486178 + ,9.4222289 + ,8.0440522 + ,4.899559 + ,4.899559 + ,4.6584903 + ,3.5092098 + ,1.8423962 + ,3.0696033 + ,3.934781 + ,3.0622244 + ,6.1244488 + ,4.899559 + ,5.3588927 + ,6.250372 + ,3.9808917 + ,5.8644338 + ,4.6350289 + ,1.6193458 + ,5.1644001 + ,3.9282808 + ,4.0867083 + ,6.244536 + ,4.5001385 + ,3.1743397 + ,3.7705169 + ,2.3302781 + ,7.9617834 + ,6.848846 + ,5.1408831 + ,9.5678084 + ,5.8704394 + ,3.9196472 + ,7.655561 + ,6.7368937 + ,4.2871142 + ,8.2104658 + ,2.6429157 + ,3.6746693 + ,0.68982961 + ,1.8219184 + ,6.6494016 + ,3.9808917 + ,2.5022748 + ,1.4868391 + ,4.0969726 + ,7.296718 + ,4.2111912 + ,8.3685899 + ,3.1563066 + ,4.7127233 + ,3.5262163 + ,4.7035767 + ,4.170458 + ,4.8386529 + ,2.4581836 + ,6.1244488 + ,8.8804508 + ,7.655561 + ,5.2025656 + ,3.1546689 + ,3.4198264 + ,4.8859416 + ,0.51979 + ,4.2871142 + ,3.0622244 + ,4.6932618 + ,10.924692 + ,4.6768518 + ,2.4497795 + ,2.2292994 + ,4.2099461 + ,5.1717568 + ,1.2208649 + ,2.920081 + ,2.9098904 + ,1.5589506 + ,3.7688916 + ,7.9617834 + ,0.81659317 + ,3.9502695 + ,2.1710424 + ,4.4585987 + ,3.5486806 + ,11.636453 + ,2.9155827 + ,2.388535 + ,4.899559 + ,7.0431161 + ,4.3871052 + ,5.3078556 + ,5.8941695 + ,2.3306841 + ,1.007024 + ,6.3614749 + ,6.0537661 + ,3.4011502 + ,4.9761146 + ,2.866242 + ,2.7811709 + ,2.7793862 + ,3.1483858 + ,3.6746693 + ,8.8804508 + ,4.899559 + ,0.2813351 + ,7.5564133 + ,4.899559 + ,2.2845864 + ,2.8266687 + ,6.0155697 + ,4.5083711 + ,9.477341 + ,8.6365108 + ,3.6746693 + ,3.122268 + ,9.2007478 + ,4.244108 + ,2.5150747 + ,3.5923014 + ,4.7356333 + ,3.8770424 + ,6.0495647 + ,2.9239909 + ,10.393004 + ,8.593671 + ,7.3175232 + ,7.1628053 + ,6.7691276 + ,6.2195911 + ,11.306675 + ,4.6793541 + ,4.2874353 + ,3.1131118 + ,4.8107453 + ,6.6079579 + ,2.5830213 + ,12.095786 + ,1.446168 + ,7.9617834 + ,5.5885595 + ,5.2182493 + ,3.2168822 + ,3.3291528 + ,3.0622244 + ,4.2747831 + ,4.7464478 + ,6.3422457 + ,1.8355697 + ,5.5941505 + ,2.920081 + ,7.0431161 + ,6.1244488 + ,0.66175862 + ,6.1244488 + ,6.4306712 + ,7.3493386 + ,8.1469412 + ,5.5363283 + ,1.9658159 + ,7.6052857 + ,5.8268055 + ,2.9488087 + ,3.1531816 + ,2.1435571 + ,10.770968 + ,3.1428093 + ,5.1297397 + ,5.4595086 + ,5.5120039 + ,8.3808247 + ,7.1147852 + ,10.105341 + ,10.5654 + ,7.0431161 + ,6.2988793 + ,6.3694268 + ,4.5495905 + ,6.1110613 + ,7.7205173 + ,1.6529654 + ,3.7288588 + ,5.1242371 + ,1.5519415 + ,6.2278839 + ,3.6746693 + ,4.2788855 + ,5.7876041 + ,4.3826331 + ,2.3530366 + ,3.3684468 + ,3.9808917 + ,5.3750437 + ,5.6869882 + ,5.974083 + ,5.2057815 + ,3.3401218 + ,4.4585987 + ,2.8919077 + ,3.6746693 + ,4.432333 + ,2.8999441 + ,3.8572003 + ,7.4189346 + ,6.7368937 + ,4.1159462 + ,8.3510262 + ,11.980796 + ,5.3282705 + ,3.1847134 + ,4.5495905 + ,9.9146737 + ,2.5661 + ,10.781212 + ,6.3141777 + ,2.1435571 + ,9.1947105 + ,2.9010547 + ,1.9231361 + ,5.2057815 + ,0.55120039 + ,5.3978193 + ,10.734989 + ,5.6061305 + ,3.0622244 + ,6.4278619 + ,4.3813552 + ,6.9874556 + ,5.1783957 + ,4.0829659 + ,3.7467216 + ,7.2758802 + ,4.0420289 + ,5.2057815 + ,5.2057815 + ,8.2424532 + ,2.2747953 + ,3.8186012 + ,5.5107716 + ,3.6059544 + ,4.6646781 + ,4.9914258 + ,3.0622244 + ,8.4076433 + ,8.8804508 + ,7.0431161 + ,4.153974 + ,3.5240681 + ,5.3609063 + ,4.1122554 + ,8.5805749 + ,7.4934432 + ,4.5127517 + ,3.4501062 + ,4.3883846 + ,2.4804018 + ,6.3030786 + ,3.8277805 + ,3.461645 + ,3.9546441 + ,8.5379397 + ,5.1205753 + ,2.1435571 + ,3.9479918 + ,3.0534165 + ,4.6443737 + ,2.2579449 + ,9.4528595 + ,6.6625803 + ,10.183676 + ,5.9195416 + ,2.1615702 + ,7.4371955 + ,6.1244488 + ,1.7975805 + ,2.825149 + ,10.105341 + ,6.1244488 + ,6.9596009 + ,7.9950963 + ,6.8900049 + ,5.8107051 + ,7.1764129 + ,1.1921387 + ,3.8956739 + ,3.2899932 + ,3.8743472 + ,4.2685164 + ,6.1143123 + ,3.9844493 + ,8.772984 + ,3.9472504 + ,3.6746693 + ,2.4497795 + ,3.3684468 + ,3.8107681 + ,2.4497795 + ,4.3595188 + ,2.2427559 + ,4.5933366 + ,6.0966805 + ,1.8063296 + ,1.9301293 + ,4.2843678 + ,1.9904459 + ,0.27132808 + ,2.5168968 + ,3.2250262 + ,7.5502925 + ,1.4764709 + ,2.6476239 + ,5.3109506 + ,3.0622244 + ,4.1340029 + ,6.4994151 + ,2.9430717 + ,2.4497795 + ,3.1890621 + ,4.5495905 + ,4.6768518 + ,4.3456128 + ,2.3161552 + ,3.0622244 + ,6.1244488 + ,4.3378616 + ,3.6053359 + ,5.7880389 + ,5.7105205 + ,2.756002 + ,3.3602488 + ,7.2793449 + ,4.8593243 + ,5.1037073 + ,18.515775 + ,5.4712763 + ,5.607929 + ,5.4507594 + ,6.7368937 + ,3.4674434 + ,7.4718275 + ,4.4059193 + ,5.3588927 + ,1.7498425 + ,2.3109031 + ,10.841577 + ,2.756002 + ,3.9808917 + ,3.4253854 + ,1.1942675 + ,3.961299 + ,2.2442611 + ,5.9713376 + ,1.8439201 + ,4.1340029 + ,0.51868296 + ,5.6466549 + ,10.972971 + ,1.0191083 + ,3.7913254 + ,3.0622244 + ,7.0431161 + ,1.9833624 + ,3.1453959 + ,3.3523299 + ,0.55410411 + ,0.32497075 + ,4.4912625 + ,0.55146552 + ,5.7124904 + ,2.4250048 + ,4.5173239 + ,4.6301518 + ,2.3272905 + ,2.1435571 + ,3.6746693 + ,1.481262 + ,1.6761649) > par3 = '512' > par2 = 'yes' > par1 = '0' > ylab = 'Density' > xlab = 'Value' > par3 <- '512' > par2 <- 'yes' > par1 <- '0' > #'GNU S' R Code compiled by R2WASP v. 1.2.291 () > #Author: root > #To cite this work: Wessa, P. (2012), Kernel Density Estimation (v1.0.11) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_density.wasp/ > #Source of accompanying publication: http://www.xycoon.com/density_trace.htm > # > if (par1 == '0') bw <- 'nrd0' > if (par1 != '0') bw <- as.numeric(par1) > par3 <- as.numeric(par3) > mydensity <- array(NA, dim=c(par3,8)) > postscript(file="/var/wessaorg/rcomp/tmp/1pv891415789341.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > mydensity1<-density(x,bw=bw,kernel='gaussian',na.rm=TRUE) > mydensity[,8] = signif(mydensity1$x,3) > mydensity[,1] = signif(mydensity1$y,3) > plot(mydensity1,main='Gaussian Kernel',xlab=xlab,ylab=ylab) > grid() > dev.off() null device 1 > mydensity1 Call: density.default(x = x, bw = bw, kernel = "gaussian", na.rm = TRUE) Data: x (1569 obs.); Bandwidth 'bw' = 0.5176 x y Min. :-1.476 Min. :0.000e+00 1st Qu.: 7.405 1st Qu.:9.296e-05 Median :16.287 Median :1.300e-03 Mean :16.287 Mean :2.812e-02 3rd Qu.:25.169 3rd Qu.:2.907e-02 Max. :34.050 Max. :1.650e-01 > postscript(file="/var/wessaorg/rcomp/tmp/2gt8l1415789341.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > mydensity2<-density(x,bw=bw,kernel='epanechnikov',na.rm=TRUE) > mydensity[,2] = signif(mydensity2$y,3) > plot(mydensity2,main='Epanechnikov Kernel',xlab=xlab,ylab=ylab) > grid() > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/37rnf1415789341.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > mydensity3<-density(x,bw=bw,kernel='rectangular',na.rm=TRUE) > mydensity[,3] = signif(mydensity3$y,3) > plot(mydensity3,main='Rectangular Kernel',xlab=xlab,ylab=ylab) > grid() > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/4sdz61415789341.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > mydensity4<-density(x,bw=bw,kernel='triangular',na.rm=TRUE) > mydensity[,4] = signif(mydensity4$y,3) > plot(mydensity4,main='Triangular Kernel',xlab=xlab,ylab=ylab) > grid() > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/5tckq1415789341.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > mydensity5<-density(x,bw=bw,kernel='biweight',na.rm=TRUE) > mydensity[,5] = signif(mydensity5$y,3) > plot(mydensity5,main='Biweight Kernel',xlab=xlab,ylab=ylab) > grid() > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/6h7r91415789341.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > mydensity6<-density(x,bw=bw,kernel='cosine',na.rm=TRUE) > mydensity[,6] = signif(mydensity6$y,3) > plot(mydensity6,main='Cosine Kernel',xlab=xlab,ylab=ylab) > grid() > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/7hpyv1415789341.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > mydensity7<-density(x,bw=bw,kernel='optcosine',na.rm=TRUE) > mydensity[,7] = signif(mydensity7$y,3) > plot(mydensity7,main='Optcosine Kernel',xlab=xlab,ylab=ylab) > grid() > dev.off() null device 1 > > #Note: the /var/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab > load(file="/var/wessaorg/rcomp/createtable") > > a<-table.start() > a<-table.row.start(a) > a<-table.element(a,'Properties of Density Trace',2,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Bandwidth',header=TRUE) > a<-table.element(a,mydensity1$bw) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'#Observations',header=TRUE) > a<-table.element(a,mydensity1$n) > a<-table.row.end(a) > a<-table.end(a) > table.save(a,file="/var/wessaorg/rcomp/tmp/8bea01415789341.tab") > a<-table.start() > a<-table.row.start(a) > a<-table.element(a,'Maximum Density Values',3,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Kernel',1,TRUE) > a<-table.element(a,'x-value',1,TRUE) > a<-table.element(a,'max. density',1,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Gaussian',1,TRUE) > a<-table.element(a,mydensity1$x[mydensity1$y==max(mydensity1$y)],1) > a<-table.element(a,mydensity1$y[mydensity1$y==max(mydensity1$y)],1) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Epanechnikov',1,TRUE) > a<-table.element(a,mydensity2$x[mydensity2$y==max(mydensity2$y)],1) > a<-table.element(a,mydensity2$y[mydensity2$y==max(mydensity2$y)],1) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Rectangular',1,TRUE) > a<-table.element(a,mydensity3$x[mydensity3$y==max(mydensity3$y)],1) > a<-table.element(a,mydensity3$y[mydensity3$y==max(mydensity3$y)],1) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Triangular',1,TRUE) > a<-table.element(a,mydensity4$x[mydensity4$y==max(mydensity4$y)],1) > a<-table.element(a,mydensity4$y[mydensity4$y==max(mydensity4$y)],1) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Biweight',1,TRUE) > a<-table.element(a,mydensity5$x[mydensity5$y==max(mydensity5$y)],1) > a<-table.element(a,mydensity5$y[mydensity5$y==max(mydensity5$y)],1) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Cosine',1,TRUE) > a<-table.element(a,mydensity6$x[mydensity6$y==max(mydensity6$y)],1) > a<-table.element(a,mydensity6$y[mydensity6$y==max(mydensity6$y)],1) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Optcosine',1,TRUE) > a<-table.element(a,mydensity7$x[mydensity7$y==max(mydensity7$y)],1) > a<-table.element(a,mydensity7$y[mydensity7$y==max(mydensity7$y)],1) > a<-table.row.end(a) > a<-table.end(a) > table.save(a,file="/var/wessaorg/rcomp/tmp/9l14a1415789341.tab") > if (par2=='yes') { + a<-table.start() + a<-table.row.start(a) + a<-table.element(a,'Kernel Density Values',8,TRUE) + a<-table.row.end(a) + a<-table.row.start(a) + a<-table.element(a,'x-value',1,TRUE) + a<-table.element(a,'Gaussian',1,TRUE) + a<-table.element(a,'Epanechnikov',1,TRUE) + a<-table.element(a,'Rectangular',1,TRUE) + a<-table.element(a,'Triangular',1,TRUE) + a<-table.element(a,'Biweight',1,TRUE) + a<-table.element(a,'Cosine',1,TRUE) + a<-table.element(a,'Optcosine',1,TRUE) + a<-table.row.end(a) + for(i in 1:par3) { + a<-table.row.start(a) + a<-table.element(a,mydensity[i,8],1,TRUE) + for(j in 1:7) { + a<-table.element(a,mydensity[i,j],1) + } + a<-table.row.end(a) + } + a<-table.end(a) + table.save(a,file="/var/wessaorg/rcomp/tmp/1026pi1415789341.tab") + } > > try(system("convert tmp/1pv891415789341.ps tmp/1pv891415789341.png",intern=TRUE)) character(0) > try(system("convert tmp/2gt8l1415789341.ps tmp/2gt8l1415789341.png",intern=TRUE)) character(0) > try(system("convert tmp/37rnf1415789341.ps tmp/37rnf1415789341.png",intern=TRUE)) character(0) > try(system("convert tmp/4sdz61415789341.ps tmp/4sdz61415789341.png",intern=TRUE)) character(0) > try(system("convert tmp/5tckq1415789341.ps tmp/5tckq1415789341.png",intern=TRUE)) character(0) > try(system("convert tmp/6h7r91415789341.ps tmp/6h7r91415789341.png",intern=TRUE)) character(0) > try(system("convert tmp/7hpyv1415789341.ps tmp/7hpyv1415789341.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 13.522 0.488 14.040