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

-1.50356705729124	0.507510706793902
-0.67394855825985	-0.0826960154269678
-0.146524362448813	0.632101969971764
0.737042592400944	-0.676829804259727
-0.100194043546593	0.150723433612993
0.755506700747719	0.0851082842655211
-0.443701304563204	0.412131801946146
1.02814979526386	0.965037053103135
-0.859868202279079	-0.965356941598173
0.105407579713154	0.260417565026123
-1.28348286848513	1.72669125512588
0.663234387450732	-0.180960663176317
-0.537147696599018	-1.66322864005866
-0.284407392295713	0.379610262451735
-1.81489864650011	0.138562925902487
1.11015251028106	-0.157742645977232
0.449809611605366	-0.232778730258889
-0.164096484229526	-1.74815923343626
1.04816788785818	-2.94510991971846
-2.00817422625650	-0.787682237987884
0.108612419516412	-0.104400858092734
-1.37287051724349	0.226893027431059
-0.842646790326904	0.513428961091227
0.195003096172567	0.93053707292884
0.148924123984243	0.27712282926655
1.69100837561122	-0.872617125624594
-0.717309411782577	0.49629976598919
-1.03623567130602	-1.08836056006975
-0.443349149519861	0.117218811115490
1.00069977958200	1.97360266249217
-1.08085808112898	1.07455632687906
0.396270593118794	0.282367023934156
0.212773533292306	-0.425048669838062
-2.21947359020641	-0.231987846278417
-0.343193791917147	0.642355268765414
0.841332537392	0.746463374455384
0.51879399538194	0.82892386949306
-0.206990846216180	1.25116518371023
-1.62920400266537	-0.71012677836016
-0.428791938818935	0.331988395132146
1.75912360921667	-0.112687596050873
-0.432928720448203	-0.415530451634218
0.268966389010268	0.472364345116046
0.212520462376322	2.87547989735923
-0.083712653320412	0.763810032322704
0.362546871568487	1.50787687819057
0.051102637910422	-3.00994872729811
0.463496469137284	0.0673572487499338
-0.543659932957087	-0.355132881704747
1.78004150977902	-0.312954054024261

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

> color_of_line = 'blue'

> {
+     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 


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

	 dist speed 


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

	 dist speed 


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

	 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)
    lines(cars.spl, col = par2)
}