structure(list(x = c(0, 0.04, 0.08, 0.12, 0.16, 0.2, 0.24, 0.28, 
0.32, 0.36, 0.4, 0.44, 0.48, 0.52, 0.56, 0.6, 0.64, 0.68, 0.72, 
0.76, 0.8, 0.84, 0.88, 0.92, 0.96, 1, 1.04, 1.08, 1.12, 1.16, 
1.2, 1.24, 1.28, 1.32, 1.36, 1.4, 1.44, 1.48, 1.52, 1.56, 1.6, 
1.64, 1.68, 1.72, 1.76, 1.8, 1.84, 1.88, 1.92, 1.96, 2), y = c(437.344473463097, 
446.835953072525, 456.760145817855, 467.39869937062, 479.018843277344, 
491.816355179443, 505.860763977083, 521.269568996934, 538.257568315206, 
557.363733191249, 579.356313423394, 605.200315140465, 635.574831460527, 
669.66768339236, 705.456849259379, 739.895124529078, 769.703256550982, 
793.482036296488, 811.0992661897, 824.086675393214, 833.860989150997, 
841.346366386886, 847.240833554666, 852.060874551434, 855.986293318011, 
859.11499896212, 861.599756891081, 863.630341243509, 865.33768774131, 
866.777372261139, 867.995376204387, 869.00491360718, 869.828959995404, 
870.521041772509, 871.135173366766, 871.6616529508, 872.100148830862, 
872.465488535274, 872.777882990028, 873.055521296831, 873.298913538499, 
873.50443566209, 873.683048954842, 873.831956132674, 873.957436329059, 
874.07261910365, 874.180305585895, 874.273936393096, 874.34957312316, 
874.409402795632, 874.461242473271), w = c(1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 1), yin = c(437.7126, 446.6488, 456.8037, 467.3436, 478.8618, 
491.9104, 505.8651, 521.6137, 538.3904, 557.5602, 579.3565, 603.6644, 
634.7544, 668.8305, 704.836, 742.1367, 770.1335, 795.4467, 810.5775, 
823.6769, 833.7205, 841.261, 846.8738, 852.0424, 856.044, 859.1588, 
861.5396, 863.5524, 865.3577, 866.7301, 868.0116, 869.0328, 869.8439, 
870.4355, 871.1651, 871.671, 872.1037, 872.4671, 872.7584, 873.0493, 
873.324, 873.4783, 873.6984, 873.839, 873.9459, 874.0635, 874.1846, 
874.2781, 874.3565, 874.4069, 874.4557), data = structure(list(
    x = c(0, 0.04, 0.08, 0.12, 0.16, 0.2, 0.24, 0.28, 0.32, 0.36, 
    0.4, 0.44, 0.48, 0.52, 0.56, 0.6, 0.64, 0.68, 0.72, 0.76, 
    0.8, 0.84, 0.88, 0.92, 0.96, 1, 1.04, 1.08, 1.12, 1.16, 1.2, 
    1.24, 1.28, 1.32, 1.36, 1.4, 1.44, 1.48, 1.52, 1.56, 1.6, 
    1.64, 1.68, 1.72, 1.76, 1.8, 1.84, 1.88, 1.92, 1.96, 2), 
    y = c(437.7126, 446.6488, 456.8037, 467.3436, 478.8618, 491.9104, 
    505.8651, 521.6137, 538.3904, 557.5602, 579.3565, 603.6644, 
    634.7544, 668.8305, 704.836, 742.1367, 770.1335, 795.4467, 
    810.5775, 823.6769, 833.7205, 841.261, 846.8738, 852.0424, 
    856.044, 859.1588, 861.5396, 863.5524, 865.3577, 866.7301, 
    868.0116, 869.0328, 869.8439, 870.4355, 871.1651, 871.671, 
    872.1037, 872.4671, 872.7584, 873.0493, 873.324, 873.4783, 
    873.6984, 873.839, 873.9459, 874.0635, 874.1846, 874.2781, 
    874.3565, 874.4069, 874.4557), w = c(1, 1, 1, 1, 1, 1, 1, 
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
    1, 1, 1, 1, 1, 1)), .Names = c("x", "y", "w")), lev = c(0.777920301316139, 
0.395691136778753, 0.39223298614959, 0.382855531271895, 0.376504835666996, 
0.375394057713106, 0.375366655330408, 0.375352218069442, 0.375337952480690, 
0.375334872313086, 0.375334736287521, 0.375334717795864, 0.375334687004571, 
0.375334678806880, 0.375334678262584, 0.375334678246146, 0.375334678182611, 
0.375334678161596, 0.37533467815968, 0.375334678159676, 0.375334678159552, 
0.3753346781595, 0.375334678159494, 0.375334678159494, 0.375334678159494, 
0.375334678159493, 0.375334678159494, 0.375334678159494, 0.375334678159493, 
0.375334678159499, 0.375334678159550, 0.375334678159643, 0.375334678159565, 
0.375334678161555, 0.375334678181974, 0.375334678233302, 0.375334678207937, 
0.375334678765026, 0.375334686872796, 0.375334713095773, 0.375334711531155, 
0.375334842000881, 0.375337936938489, 0.375350573590796, 0.375355876669598, 
0.375375326022555, 0.376507086083215, 0.382314463609672, 0.387663750550536, 
0.369658785339071, 0.771875298900801), cv.crit = 0.753883197567462, 
    pen.crit = 14.2035636342697, crit = 3.00000018829753, df = 20.0021396949861, 
    spar = 0.419383258661227, lambda = 6.23040190371687e-06, 
    iparms = structure(c(3L, 0L, 13L), .Names = c("icrit", "ispar", 
    "iter")), fit = structure(list(knot = c(0, 0, 0, 0, 0.02, 
    0.04, 0.06, 0.08, 0.1, 0.12, 0.14, 0.16, 0.18, 0.2, 0.22, 
    0.24, 0.26, 0.28, 0.3, 0.32, 0.34, 0.36, 0.38, 0.4, 0.42, 
    0.44, 0.46, 0.48, 0.5, 0.52, 0.54, 0.56, 0.58, 0.6, 0.62, 
    0.64, 0.66, 0.68, 0.7, 0.72, 0.74, 0.76, 0.78, 0.8, 0.82, 
    0.84, 0.86, 0.88, 0.9, 0.92, 0.94, 0.96, 1, 1, 1, 1), nk = 52, 
        min = 0, range = 2, coef = c(437.344473463097, 440.482092392456, 
        446.757121427358, 456.642654850713, 467.233134076919, 
        478.81700506533, 491.611905325824, 505.633504708034, 
        521.018659704536, 537.909270455426, 556.889668364996, 
        578.714455232085, 604.390391247025, 634.925870622604, 
        669.35511502572, 705.659769628675, 740.746902015855, 
        770.723369482376, 794.579159360535, 811.852210854414, 
        824.607594360006, 834.237464064847, 841.608484286589, 
        847.406797110112, 852.209328600962, 856.121135794646, 
        859.22388812852, 861.673305463994, 863.681431361989, 
        865.383016549101, 866.812628889462, 868.030701459885, 
        869.036822497321, 869.851490193917, 870.530976699438, 
        871.150853643385, 871.676648927618, 872.112468350947, 
        872.474370653768, 872.782980245625, 873.0610063039, 873.306122319762, 
        873.507985648046, 873.688549060593, 873.836111838635, 
        873.958740380914, 874.073544612064, 874.182795792729, 
        874.277105732391, 874.377497604247, 874.427352890033, 
        874.461242473271)), .Names = c("knot", "nk", "min", "range", 
    "coef"), class = "smooth.spline.fit"), call = smooth.spline(x = theta.grid, 
        y = EU, df = 20)), .Names = c("x", "y", "w", "yin", "data", 
"lev", "cv.crit", "pen.crit", "crit", "df", "spar", "lambda", 
"iparms", "fit", "call"), class = "smooth.spline")
