作者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/cn.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