nsオブジェクトからノットを抽出する

Question

library(splines) 
x <- runif(100000) 
spline <- ns(x, df=5) 

どのようにノットがこの背骨オブジェクトにあるのかを教えてください。

> spline ['knots'] 
[1] NA 

str私は必要なものに私が近づくが、私は、スプラインのベクトルを抽出できるようにしたい、それをフォーマットし、文書のSweaveでそれを印刷したいです。

> str(sp) 
ns [1:117542, 1:5] 0.527 0.474 0.455 0.472 0.498 ... 
- attr(*, "dimnames")=List of 2 
    ..$ : NULL 
    ..$ : chr [1:5] "1" "2" "3" "4" ... 
- attr(*, "degree")= num 3 
- attr(*, "knots")= Named num [1:4] 1.03 1.55 1.99 2.7 
    ..- attr(*, "names")= chr [1:4] "20%" "40%" "60%" "80%" 
- attr(*, "Boundary.knots")= num [1:2] 0.0214 4.9999 
- attr(*, "intercept")= logi FALSE 
- attr(*, "class")= chr [1:3] "ns" "basis" "matrix" 

Answer 1

さて、このようなものは間違いなくものを抽出することができます

> attr(spline, "knots") 
     20%  40%  60%  80% 
0.1966951 0.3973261 0.5982386 0.7993613