• QR Code (size=2)
• QR Code (size=3)
• QR Code (size=4)
• QR Code (size=5)
• QR Code (size=6)

0.769812008574325	-0.296430815376859
-0.570965305627558	-2.29226735241445
-1.60042433547903	-1.74654610154483
-1.41897496620881	0.95821675740362
0.232351205575535	-0.414354847742930
2.31615441297124	0.449759993793403
0.429177077432713	-1.17462619296977
-0.213201341312549	0.286729067091821
-2.10321797565043	0.144285603320953
0.608910752556689	-1.02129989505492
0.375109673328318	0.409520840052678
0.753189103465582	1.08271899846961
0.448491443015075	-0.786438156555126
0.0906798392984972	-1.07140748542034
-0.0459095347346147	0.760081280792096
-1.52699806774505	-0.083824572435783
0.625155406449445	-0.0137396248148388
0.468964284395676	0.414381311400838
0.107996150380848	-1.23703641992627
-0.537991008208784	-1.31006435948531
-0.686983305019921	0.448306593808746
-1.24234358314785	0.64922250789691
-1.04239779873552	1.63359264060946
0.719749553898745	-0.696399157352184
1.66219234148636	0.0652814573278981
0.916963640221519	-0.997956088580195
0.00999892698928423	1.52608072428585
-0.495769574807583	-0.880251631103344
0.344651557204304	-0.61506602765635
0.444028759333621	0.753305000012337
0.551674560337927	-0.611820490910944
0.410471129660158	-2.78135935438236
-0.577025790729098	-1.52000263166185
-0.990661382713306	1.24285273197634
-0.809725967268682	1.74490127098923
-1.74092158748549	-1.64429375180233
0.646425939162753	-0.0260262455222112
0.113660386435801	-0.868731165168722
-2.11664962686172	-0.90355926910195
-0.62626371329072	-2.14093233613594
-0.0201277149196421	-0.30850063002946
-1.82297324655464	1.02998633759889
-2.33216366308349	0.307616211471887
0.639235325972092	0.597880685842531
1.90452387435692	0.636642187716227
1.16446530905147	-0.949538895160241
-0.00667416379878451	-0.545462225836775
0.42034566059019	0.212406106622606
0.466575340644522	1.07234957475204
1.22366236765938	-1.33485033920062

> title = 'data(cars)  &  smoothing splines'

> {
+     library(pspline)
+     data(cars)
+     attach(cars)
+     plot(speed, dist, main = title)
+     cars.spl <- sm.spline(speed, dist)
+     pr .... [TRUNCATED] 

	The following object(s) are masked from cars ( position 3 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 4 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 5 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 6 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 7 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 8 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 9 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 10 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 11 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 12 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 13 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 14 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 15 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 16 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 17 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 18 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 19 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 20 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 21 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 22 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 23 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 24 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 25 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 26 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 27 ) :

	 dist speed 


	The following object(s) are masked from cars ( position 28 ) :

	 dist speed 

Call:
smooth.Pspline(x = ux, y = tmp[, 1], w = tmp[, 2], method = method)

Smoothing Parameter (Spar): 366.8429 
Equivalent Degrees of Freedom (Df): 2.428851 
GCV Criterion: 29.54554 
CV  Criterion: 39.18787 

{
    library(pspline)
    data(cars)
    attach(cars)
    plot(speed, dist, main = par1)
    cars.spl <- sm.spline(speed, dist)
    print(cars.spl)
}