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

[micky924924 (Andes)]

[問題類型]:

程式諮詢(我想用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
推 locka: 你可以先把結果存成一個物件 ex: RR<-PMD(R) 然後從Rstudio
→ locka: 的Environment中查看該物件的可以存取的屬性,然後會發現
→ locka: RR@weights是你要的結果了~
→ micky924924: 謝謝locka大！！！我原本的數據不是長這樣，我原本
→ micky924924: 有看到@weight的使用方式，可是weight它顯示的太詭
→ micky924924: 異了（沒想到7.556089e-03=0.0076==）總之很謝謝你
→ micky924924: 教我這個方法！！