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:24:46 -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/t12433658878g9h819rgvmnbbd.htm/, Retrieved Sat, 04 May 2024 14:55:22 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=40392, Retrieved Sat, 04 May 2024 14:55:22 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact111
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:24:46] [b768c7adc2675864c15627b87ad9ef22] [Current]
Feedback Forum

Post a new message
Dataseries X:
-0.145606898224421
1.56502012443266
-2.30050577579968
-0.418475584787372
0.567501582865035
-0.528652253958053
-0.0919835302177105
-0.836499831913086
0.315106794447196
0.57309829022151
-0.0457258487765971
0.455662814311221
0.256965042235009
-0.644015798789383
-0.286835736225203
0.21747473664466
0.135474395409370
-1.92398199921011
0.614394908692537
0.897502894711836
-0.538847424937673
0.255968950971790
2.03476068517234
0.0803355673028177
0.101839319840833
-0.822784996074346
-0.290655129955749
-0.57572712415324
0.561337809715529
-0.576193927365129
-0.253927852290081
-0.122839381061148
-0.499461901024888
-0.319790535712764
2.5669654540769
1.62355149926843
0.752272161783985
0.732218924026576
-0.617797627758682
0.669258981163966
-1.41985626176371
1.51213585452664
-0.874323829045885
-0.75241473279519
-0.278366566009681
-1.83091891578464
-0.184175355277353
-1.14175930823011
0.901197606494066
-1.03468644599753
0.707962354250222
0.897924153977233
0.177610656101756
0.118476463087164
-0.236094670048480
2.08676835414877
0.316719336668979
-0.590158402320654
1.49261457097796
-0.197184532728276
-2.53170740693424
0.311790276174399
1.50253129660086
-0.544575444969391
1.76275838006412
-0.982748340074092
0.783831901904509
0.121600073673222
1.59083275405610
-0.94567687524594
-0.906616942983569
-0.664289264817908
0.0970781120378148
1.14162268465911
0.161622320568509
-0.655463950103025
1.38476590834075
0.276028769210941
0.0969921980509964
1.28058790246188
0.178621604769037
-0.207903427275448
-0.544679590729217
-0.134127808798269
0.856370558773117
0.144325382710070
1.20988428644057
1.20872746457319
2.10873242662019
-0.353720861641881
0.876642437432721
0.150838270012404
-1.29230434810714
-1.09803987770991
-0.0110110812283422
-0.365698296756342
-1.04754296518419
0.122806321711356
0.0819992973144503
0.251759195325039
-0.386839713291862
1.06951774435117
-1.09946494895759
0.396403270271103
2.65362155713624
-0.116580365106722
-0.392678996542629
0.295532555898644
0.90674832914748
-2.00232093255151
-0.269137443905880
2.26310023557478
0.664368720398577
0.683056717169328
-0.267497027958132
-0.8282258998545
-0.160764460462479
0.44587148295133
-0.974079078055236
-0.0339521872490762
1.19212862185496
-2.37738608004750
2.20433098434675
0.881321871669798
-0.360178993414019
0.276530484467262
-0.287468826744454
1.49548580324727
-0.640462573113457
1.39390040276418
-1.75112395164497
1.44806563567498
0.609358979546788
-0.656168590733846
-1.10561989629619
1.21766351513713
1.0457368396764
1.73835321807268
-0.710615025261065
0.87661628297546
-0.258329729627985
-0.91857588986491
1.95237355661672
1.10331350291819
-0.163411657813121
0.75098252351315
0.281005102936483
0.839257009900781
2.41684675715729
-1.52371011862549
Dataseries Y:
-0.909199216284744
-1.42431611876277
1.02459111958496
0.336949862369512
0.945577594440147
1.01635079087358
0.764585915640604
-1.46812924713236
0.965237737199281
-0.345326430193415
0.658143130785876
-0.693857349745154
-2.23023920379557
-0.605706196149744
-0.987884073184348
-0.84452293553715
0.272193378948107
-0.508405290257079
1.17729083244031
2.06899803599431
-0.428132700594349
1.94076635698489
-0.904386105663991
-1.87985110756198
0.232134907687484
0.122830178927155
-0.392801773619887
0.107740309296697
-0.434885589283049
0.0460138411360945
0.255409231052627
1.04668094310095
1.31786945282775
-0.556292557628543
2.14814222705283
-0.355973738914803
0.583377439455853
0.502420506428584
-0.953614099763761
1.79545777823934
-1.03323064705424
1.48706202338686
-0.50964046986723
-0.509240176901104
1.28367814666451
-0.977190277864887
-0.720538920585291
1.04562139511042
0.180446624956041
-1.67061799647867
-0.158581854109736
0.88497530735407
0.527732030473365
-1.60686371484695
0.653474378867768
-2.35929582481821
-0.57167291944872
-0.451576883977691
0.0501874747232356
-1.21184185300525
-2.12716433955361
-1.99333762310021
0.663890675807075
0.604733006592502
-0.483551807792867
-0.71850170331204
-0.895538536494524
-1.66930136770767
0.566665347153529
1.94457785460399
-0.810961381487607
0.347198929325488
0.563080872545412
-1.90536996880482
0.302543443669456
0.258962265184848
-0.382037892240087
-0.253104797428137
-0.00763302673613192
-1.21094457442710
-0.838823743858669
0.249234255389088
0.136259430866146
-0.629111733355266
-0.189892856849356
-0.564827496013595
1.22229610932478
1.73829370347930
-1.73615532218220
0.0627839437571473
0.611455531296378
-0.360035801964654
-0.622542346760767
0.699801740286111
1.08608712882048
0.877398519237761
0.163201604480351
0.0524413062210618
-1.09749810008074
0.188348477153286
-1.17376473677860
-0.0272123410317705
1.18672789121954
-2.50613046763216
-1.22723504531311
-0.624423086099565
0.484946727962661
0.0817137597280634
-0.134861758002068
0.418899850159478
1.40112569843289
0.659967044801898
2.53079173320374
0.540303135187307
0.642184438484771
0.62858401688175
0.329662515002464
0.563508078702321
-0.273074052978801
1.00501123558143
-2.34337649774696
0.453785527536697
-1.24919501805233
0.664124458779453
0.617818299628436
0.409540894409174
-0.0683912456021804
-2.71856008366166
0.761756192234371
0.138148013161458
-0.300379651616652
0.837886618875463
-0.68481742443512
-0.295520614614891
1.48120901952348
-1.43213898014041
-0.172220992188412
1.90024337596412
0.500239574691928
0.114336501049155
0.667153972989076
3.32796185601474
-1.13650751967681
1.21925033032612
1.02322569472202
0.849051739099233
-0.567666964476161
1.12559459599468
1.32374815017213
-0.96049553144537
> title = 'smoothing splines'

> color_of_default = 'blue'

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

Smoothing Parameter (Spar): 67958066 
Equivalent Degrees of Freedom (Df): 2.000000 
GCV Criterion: 1.193662 
CV  Criterion: 1.199996 
Parameters (Session):
par1 = smoothingsplines ; par2 = blue ;
Parameters (R input):
R code (body of R function):
{
x <- rnorm(150)
y <- rnorm(150)
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")

}