回帰結果に変数名をつけて保存し呼び出す


回帰結果`result`を`result8`という名前で保存しあとから呼び出したいのですが  
うまくいきません。

[code]

    save(result, file="result8.dat")・・・result8で保存
    load("result8.dat")・・・呼び出し
    summary(result8)・・・回帰結果を表示
    
[/code]

以下にエラー `summary(result8) : オブジェクト 'result8' がありません`  
と言われてしまいます。

同じファイル名ならうまくいきます。

[code]

    save(result, file="result.dat")　・・・保存し
    rm(result)　・・・削除
    summary(result)　・・・削除を確認
    load("result.dat")　・・・呼び出し
    summary(result)・・・回帰結果を表示
    
[/code]

どのような問題があるのでしょうか。




セーブ・ロードの対象が 1 つのオブジェクトだけであれば `saveRDS()` と `readRDS()` を使う方法があります。

[code]

    > result <- stats::runif(10)
    > result
     [1] 0.68562100 0.84184211 0.69763579 0.62209902 0.04967879 0.71239629
     [7] 0.70019457 0.08939612 0.40912730 0.35949479
    > saveRDS(result, "result8.dat")
    
    ## Restart R
    
    > result8 <- readRDS("result8.dat")
    > result8
     [1] 0.68562100 0.84184211 0.69763579 0.62209902 0.04967879 0.71239629
     [7] 0.70019457 0.08939612 0.40912730 0.35949479
    
[/code]




セーブ・ロードの対象が 1 つのオブジェクトだけであれば `saveRDS()` と `readRDS()` を使う方法があります。

[code]

    > result <- stats::runif(10)
    > result
     [1] 0.68562100 0.84184211 0.69763579 0.62209902 0.04967879 0.71239629
     [7] 0.70019457 0.08939612 0.40912730 0.35949479
    > saveRDS(result, "result8.dat")
    
    ## Restart R
    
    > result8 <- readRDS("result8.dat")
    > result8
     [1] 0.68562100 0.84184211 0.69763579 0.62209902 0.04967879 0.71239629
     [7] 0.70019457 0.08939612 0.40912730 0.35949479
    
[/code]

