作者micky924924 (Andes)
看板R_Language
標題[問題] 如何儲存外部package的function產生的值
時間Tue Apr 18 02:06:58 2017
[問題類型]:
程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
[軟體熟悉度]:
新手(沒寫過程式，R 是我的第一次)
[問題敘述]:
各位先進大家好，因為畢業專題要用到R，所以這幾天正在練習跑資料
過程中有一個環節需要用到別人寫好的方程式(PMD)，我想知道要如何將顯示於螢
幕上面的那組數值存成向量，我上網也找了這個function的原始碼可是我還是不知
道該如何提取我要的數值＠＠
我想要獲得的向量如下面範例的結果 [1] 20 20 20 20 20
其他都不要，就是需要存成向量，然後因為資料很多筆，也無法用複製貼上的方式
附上這個function原本的code還有我覺得可能用得到的code @@
https://github.com/cran/FRAPO/blob/master/R/PMD.R
https://github.com/cran/FRAPO/blob/master/R/methods-PortSol.R
希望可以得到各位前輩的提點或是救援，謝謝各位
[程式範例]:
library(FRAPO)
R<-matrix(1:100, nrow = 20, ncol = 5)
PMD(R)
[環境敘述]:
> library(FRAPO)
> R<-matrix(1:100, nrow = 20, ncol = 5)
> R
[,1] [,2] [,3] [,4] [,5]
[1,] 1 21 41 61 81
[2,] 2 22 42 62 82
[3,] 3 23 43 63 83
[4,] 4 24 44 64 84
[5,] 5 25 45 65 85
[6,] 6 26 46 66 86
[7,] 7 27 47 67 87
[8,] 8 28 48 68 88
[9,] 9 29 49 69 89
[10,] 10 30 50 70 90
[11,] 11 31 51 71 91
[12,] 12 32 52 72 92
[13,] 13 33 53 73 93
[14,] 14 34 54 74 94
[15,] 15 35 55 75 95
[16,] 16 36 56 76 96
[17,] 17 37 57 77 97
[18,] 18 38 58 78 98
[19,] 19 39 59 79 99
[20,] 20 40 60 80 100
.
.
.
#######中間省略
.
.
.
Optimal solution found.
Optimal weights for porfolio of type:
Most Diversifified
[1] 20 20 20 20 20 ###我只需要這一行
[關鍵字]:
選擇性，也許未來有用
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.193.96.14
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1492452422.A.4D7.html
1F：推 locka: 你可以先把結果存成一個物件 ex: RR<-PMD(R) 然後從Rstudio 04/18 02:36
2F：→ locka: 的Environment中查看該物件的可以存取的屬性,然後會發現 04/18 02:38
3F：→ locka: RR@weights是你要的結果了~ 04/18 02:40
4F：→ micky924924: 謝謝locka大！！！我原本的數據不是長這樣，我原本 04/18 02:49
5F：→ micky924924: 有看到@weight的使用方式，可是weight它顯示的太詭 04/18 02:49
6F：→ micky924924: 異了（沒想到7.556089e-03=0.0076==）總之很謝謝你 04/18 02:51
7F：→ micky924924: 教我這個方法！！ 04/18 02:51