Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software ModuleRscript (source code is shown below)
Title produced by softwareR console
Date of computationTue, 26 May 2009 13:26:21 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/May/26/t1243365982k3adtevrdr7zyxg.htm/, Retrieved Sat, 04 May 2024 19:08:13 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=40393, Retrieved Sat, 04 May 2024 19:08:13 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact96
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [R console] [test] [2009-05-26 19:26:21] [b768c7adc2675864c15627b87ad9ef22] [Current]
Feedback Forum

Post a new message
Dataseries X:
0.159396856628741
-1.0872293178152
-0.94930312481962
1.31336554592115
1.91252053784030
-1.16330713330466
0.680671438733284
1.49469481918583
0.879570782412165
-0.725483026600154
0.348367506109842
-1.01279019585736
-0.884745536022782
-0.505371508390324
0.877588446137797
-1.760081012808
-0.242280980298379
0.188885046997732
-0.660047050114993
0.543472039798083
1.08864288814322
-0.807424673517129
0.104680002148621
-0.733176003501387
-1.02851209427588
0.61631408318471
0.365170201563485
0.267931262754077
1.11525726903996
-1.08684957313300
-0.485206158281203
-0.182156873535629
-0.69537798879677
0.74331575934831
-0.9510519593109
0.256052859664903
-2.36757739974355
0.383399543438556
-0.379778275550738
-0.540745878975371
0.652599032465373
1.14352541656722
0.0502538445253986
1.28180740190279
-0.742675054665671
-0.137501738075567
-0.896595420315481
-2.43018209425028
-0.356119505874123
-1.71093669575290
-0.9275296092444
0.0311207467634074
1.47787322433471
-0.0912198306984205
-0.192981616285708
-1.14646219914903
-1.43076082837559
2.08662176902217
-1.03962623314476
0.932075696095005
-1.13059006969419
-0.119060088806900
0.957544383248211
0.662177183709199
-0.585604661097209
1.08871952632087
0.0850547912027542
0.700458936058942
2.07189913632935
-0.432256425698499
0.748467926634868
0.185113289450055
-0.237412943177725
-1.68538491847203
-2.50608366455710
0.522271375931628
-0.826316320753986
1.32607384076604
-0.413802494805955
0.91184503376872
0.676592566875507
-0.338518119446074
1.29823473587701
-0.896336060283072
-1.46411860794825
0.498747994965799
1.67583241069609
1.24447597521979
0.838126853255633
0.385395109681117
-0.978316595347486
-1.78419101713775
-2.18501421928279
-0.712387353770056
0.646974220399873
0.0893122630105172
1.13717355034403
1.05692637480921
-1.73796716154371
-0.858563751115549
0.0703526661478149
1.2147063572537
0.253937178112466
0.60607554460795
0.769575567460526
-2.64432794050031
-0.637989867422154
0.69082399390583
0.615651484696216
1.30988442658273
1.33759271106234
-1.11216661269204
0.89700684810669
-0.236571829161658
-0.832871377571947
0.358881386467247
-1.24709506924862
-0.555162048658134
0.312746939611900
0.765073308175128
1.94036329497285
1.71264979109842
-0.201132374018773
-0.690295703189016
-0.06805327840387
-0.871426108535674
-0.206211632767818
0.166588839988224
1.19988752950904
-2.34470300181745
-0.124063594338523
-0.682225957589228
0.0231852993828055
1.07447226045039
-1.31167005890759
-1.04533873239775
0.127176113406546
0.869514917047915
-0.411655002031654
0.124578643113312
-1.48207712056731
-0.453827477607898
0.228058963051000
0.609958948331667
0.87916590710988
-1.24062700230599
0.920394902228325
1.14235950124924
-0.28375117270633
0.249853404864754
Dataseries Y:
-0.319194065604033
1.21209557136508
0.586544182543238
2.17602964535185
-0.916249163044371
0.392162466524691
0.792541134173504
-0.884028013167818
-1.65586245729075
0.0564975153009188
-0.77777855414362
-0.127386828589409
0.534976226956191
-0.660574521131305
-1.43454761512491
2.3410730092063
0.00562809489491209
0.217019110659335
1.53971945258191
0.30826594831002
-0.00722371465435994
0.546753757141192
-0.0506320198168824
0.072678505493526
-0.730307244635786
0.158900822165816
-0.863570564037098
-1.31616311893451
-0.481456449201155
1.17179160646885
1.95761427952210
-0.103167075936181
0.565789056488937
0.49441468486069
-0.711549271763044
0.975061093226047
-1.78345037841946
1.32315840720812
0.415452330159693
-2.14310048748147
1.76808946068947
-0.564934214956606
0.290482898699420
-0.985606187105805
1.00339871706913
0.287852010152122
-1.81441441119321
0.429103419419609
0.348811724985341
1.67740986982134
-1.16876142349643
1.07875061264649
0.88340155344188
1.23384135085337
-0.752443516330506
-0.175092699362767
1.16365087822423
0.251091462692454
-1.69170575584035
0.423557142746414
0.519522639723444
-0.718350835190041
0.409990137888022
-0.527329337297165
0.637955672902848
0.376555287852355
0.564602073044011
-1.41878487675449
-0.154104940485398
-0.901171449360817
0.472829308715657
-0.661295577124885
0.580446215307549
1.92639422904178
-0.509456683024033
-1.15928396756866
-1.58462388705589
-0.395989016805552
1.50845205180264
-0.513755635140079
0.585744159506668
-0.81408457244661
1.46935604317595
-0.99080430456165
2.93334118220152
-1.12949293051190
0.33365121272277
0.0534605769817863
-0.453569217324245
1.8590501265721
1.42303355679451
1.24136070476333
1.23269975236702
-1.99871213774445
0.194945572191472
0.341812805310335
-1.24800493663867
-2.30008375720827
-0.159094037195429
-0.885979152133474
0.215460202284821
-0.478120859127011
-0.248192453589401
0.927304319081606
-2.04843175132486
0.29996978755555
-1.74184376051179
-1.65370849658072
0.777121313070451
0.298689455551702
-0.0261765459857086
-0.188779366432042
0.304576482913960
0.497888220283749
1.78448512640601
0.232604979188209
0.712872296458909
-1.13370843967229
-0.658065449916413
0.997656786416004
0.550878917980644
-0.912977080234477
0.316506893790122
-0.211745172427392
-1.64573192194889
0.166754055673835
0.128985282468137
-1.33247671230078
1.28437651358210
-0.42341244452969
0.582431862561771
0.551223512233201
1.28174877594425
-0.97127834013404
-0.279599275921128
-0.153167348329543
0.318224085080535
-1.52817858985273
0.892592149028008
-1.05799495046031
-0.430883277048387
-1.49438255192432
0.000504543875179452
1.26677537089406
-1.14976934937122
0.520593012723685
-1.30959868181963
-2.15715081887372
-0.192890081188401
0.672057315590132
> title = 'smoothing splines'

> color_of_default = 'blue'

> {
+     library(pspline)
+     plot(RCx, RCy, main = title)
+     cars.spl <- sm.spline(RCx, RCy)
+     print(cars.spl)
+     lines(cars.spl, col =  .... [TRUNCATED] 
Call:
smooth.Pspline(x = ux, y = tmp[, 1], w = tmp[, 2], method = method)

Smoothing Parameter (Spar): 403171664 
Equivalent Degrees of Freedom (Df): 2.000001 
GCV Criterion: 1.091119 
CV  Criterion: 1.092357 
Parameters (Session):
par1 = smoothingsplines ; par2 = blue ;
Parameters (R input):
R code (body of R function):
{
library(pspline)

plot(x, y, main = par1)
cars.spl <- sm.spline(x, y)
print(cars.spl)
lines(cars.spl, col = par2)
lines(sm.spline(x, y, df = 10), lty = 2, col = "red")

}