Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software ModuleRscript (source code is shown below)
Title produced by softwareR console
Date of computationTue, 26 May 2009 14:35:08 -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/t12433701092aowbd6g2q56286.htm/, Retrieved Sat, 04 May 2024 14:33:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=40399, Retrieved Sat, 04 May 2024 14:33:48 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact180
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [R console] [spline functions] [2009-05-26 20:35:08] [21232f297a57a5a743894a0e4a801fc3] [Current]
Feedback Forum

Post a new message
Dataseries X:
-0.363477689124848
-1.34895791888405
-1.92338539900218
-1.08388554791862
-0.715914022729192
-1.77407371698291
-0.94381758350497
-1.12452527572429
-0.291276390544315
-1.01724722511923
0.464886590067306
0.597298969739461
1.56584836070221
1.20723591021650
0.0550644891625002
-0.243301183017949
-1.29598907592114
-0.638925798291625
-1.82984899742718
-1.40274961514724
-1.23144761561614
-0.153357191394074
-2.15551096995823
0.521036679524796
0.0319928292399722
-0.298783330951035
-0.49134941078872
0.106256696182340
-0.682798008182955
0.916875122016545
-1.46630163918379
-2.240747572957
-1.74017209691977
0.814588061347754
-0.122478854044130
0.100484854830583
-0.483847785806734
-0.518944558922476
0.829603170089135
-0.303329962256241
-1.889958472776
0.192585366257606
-0.0408338181957285
-2.37750630935400
-0.495541770703429
1.19781897023482
1.38233444013505
0.576661984661551
-0.48666302442434
0.957998845133935
1.41227142498416
0.500888959762060
-0.798756478816105
-0.740797396057011
0.695345930551254
1.07211893486162
1.29736473705524
-0.961214583874545
1.10528448898511
-0.822387110606255
-0.523668996210658
1.73123776452508
-1.91368391457983
0.214166429055258
-0.889534329404388
-0.265370103616235
-2.04450558617544
-0.542609245555945
0.231643236836886
-1.67029479087697
-0.344719461794457
0.187075748162406
-0.176123038104800
1.80001802182245
-0.490476998509509
1.41148011547579
-0.361144347672960
0.91277192608014
0.00212969783015044
-0.197351334984321
-0.935834652558584
-0.154502024686589
0.99072928740969
-0.249987586891489
-0.0794909327420709
-2.51385172358462
-1.13417569289806
0.908990861831705
0.711999108937863
-0.342999083127355
0.645478136114988
0.0596053898701666
0.463974749670976
0.0307163296082693
1.02486083123681
-0.405316854047712
-1.84085687011569
0.623276226100832
0.459694486001333
1.69904962127312
-0.943385854812546
-1.31142882761195
0.336704478189682
-0.4337212942743
-0.136617003607598
0.228109496024850
0.540048886317187
-0.248521898185607
0.373072386236168
-0.887128445162431
0.490354812022941
1.11414717734414
-0.372238874091064
-0.428077017572078
0.538246357494742
1.59414289290249
-0.150333170297891
1.15289963750064
-0.421587101215631
-1.16144654975923
0.664214172227497
-0.500631588270955
-1.29877158208327
0.626215234918598
-1.47981214451970
-0.0417848478746675
-1.78218369276291
-0.922723841384196
1.70442324167006
0.117385246083693
-0.698925307204165
-0.610689250717368
-0.858416435228609
-0.783093495970518
-0.77959079135085
0.4807756325799
0.420123880989798
0.605255003735445
2.07879854290683
-1.12101240870072
-0.611045425960134
0.743193989019778
-0.500268891626681
-0.530056547870605
0.893377426258029
-0.0907474870131646
0.908563559308733
0.52708642264329
1.12810339107479
-0.342216925861699
Dataseries Y:
-0.743473935663094
-1.81104499932218
0.642938713517317
-0.624526519810025
0.503019470921765
0.20476624706705
-0.131309132184832
0.372139843312156
-0.626253074069007
0.45607146466126
-0.667600464482702
0.101056628987946
0.518337977672124
0.163904619283106
1.06957749031965
-0.381602395541286
0.762610061067607
-0.0429171754146176
-0.384781342453604
-1.22705586867561
0.608129957458462
0.971086375421201
0.394861808987261
-0.542010785429579
0.0533478196612702
2.04308903522679
-1.15065279342699
-0.809990902922717
0.505833066397004
0.750894691887536
0.92536608165541
0.763204835212456
-0.0731845953559048
-0.579209433042918
-1.59267908771522
-0.630365134656658
-0.219437769857980
-1.94440626383799
1.15241144184332
-1.79106420269207
0.062514928710059
-0.603069286772839
0.726335959936551
-0.397190618789492
0.275897688304784
0.727151553839952
1.71198160709049
0.248649453074594
-0.0506843558256654
-0.677917635009981
-0.0720427551610789
0.557148701572836
-0.567795768175097
3.12547833919105
-0.613565392766127
0.163199826215767
0.0759038304723884
-0.758856913185218
0.0519969996576465
-1.32424090572217
1.03128922231539
-1.13847995005176
0.461796875205334
0.445257779338312
0.64935971781795
0.300641093365866
-0.702064783393531
-0.738315411893601
0.532319297690066
-0.717004140767022
-0.635960392452745
-0.76311034992453
-2.89384669294262
-0.284146660460891
-0.773755985033706
-0.733497143793896
-1.68850880209444
1.22140054698778
0.0295372241314495
0.978964034623292
1.3390059741909
-0.874534794926717
-0.593068004486291
0.926720139360782
1.27903832258089
-0.534877245985674
0.346229997257031
1.12099886138851
0.0390676141572392
0.484323403421874
-1.05911682103417
-0.159735982267455
0.427575731115051
0.159495342696325
1.17327571810562
-0.574366442060793
-1.07762726692610
1.23077307095770
1.02643763110884
-2.97301842875729
1.22093317926112
0.288848601015678
1.11749328223945
-0.171169993336311
1.33842609911815
-0.647009995662405
0.671052068808114
0.441274302178052
-1.50577012840978
-0.0298790984541101
-0.279294497319272
0.0702923949338915
0.30281142371336
0.688636939057332
-0.318723777049372
-1.84577610536028
0.719116909595461
0.0803800262227227
-0.162289604106367
0.603806508793787
-1.38993939453984
-0.213691467072478
0.272386170048600
-0.236991786855381
0.6145132498451
0.712817640886662
-1.49732822004438
-0.233326228669501
0.640385397658248
0.909686658581157
1.55723296007196
-0.599337182718966
-1.41119486867594
0.834245803122824
1.05567817040701
0.621297918669849
-0.573603100735539
-0.197800159781584
-0.559754562264526
0.137325081029036
0.516075869931632
-0.844212731074414
0.8408329863442
0.581631824630099
1.12555821077754
-0.800125684869481
-0.299685256254743
1.07947534627171
0.905904482548326
-0.0431134525574053
> 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): 84.53788 
Equivalent Degrees of Freedom (Df): 2.227457 
GCV Criterion: 0.870635 
CV  Criterion: 0.8706558 
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")

}