[問題] 如何儲存外部package的function產生的值

看板R_Language作者 (Andes)時間8年前 (2017/04/18 02:07), 編輯推噓1(106)
留言7則, 2人參與, 最新討論串1/1
[問題類型]: 程式諮詢(我想用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://www.ptt.cc/bbs/R_Language/M.1492452422.A.4D7.html

04/18 02:36, , 1F
你可以先把結果存成一個物件 ex: RR<-PMD(R) 然後從Rstudio
04/18 02:36, 1F

04/18 02:38, , 2F
的Environment中查看該物件的可以存取的屬性,然後會發現
04/18 02:38, 2F

04/18 02:40, , 3F
RR@weights是你要的結果了~
04/18 02:40, 3F

04/18 02:49, , 4F
謝謝locka大!!!我原本的數據不是長這樣,我原本
04/18 02:49, 4F

04/18 02:49, , 5F
有看到@weight的使用方式,可是weight它顯示的太詭
04/18 02:49, 5F

04/18 02:51, , 6F
異了(沒想到7.556089e-03=0.0076==)總之很謝謝你
04/18 02:51, 6F

04/18 02:51, , 7F
教我這個方法!!
04/18 02:51, 7F
文章代碼(AID): #1OzGH6JN (R_Language)
文章代碼(AID): #1OzGH6JN (R_Language)