R從特定矩陣元素創建向量

Question

我正在使用R讀取一些XML，並將其轉換為deSolve庫可以使用的東西。 我正在嘗試轉換此矩陣：

svars = xpathSApply(doc, "/models/model[@name='SIS']/state_variables/variable")
svars = sapply(svars, xmlAttrs)
svars

      [,1]          [,2]      
id    "S"           "I"       
name  "susceptible" "infected"
value "99"          "1" 

對於如下所示的向量：

svars = c(S = 99, I = 1)

我對如何做到這一點有點茫然，有人可以幫忙嗎？

Answer 1

例如：

dd <- svars[c("id","value"),]
setNames(dd$V2,dd$V3)

或一個線性：

setNames(as.numeric(svars["value", ]), svars["id",])

Answer 2

我認為以下應該做

x <- as.numeric(svars['value', ])
names(x) <- svars['id', ]
x
##  S  I 
## 99  1

與...相同

c(S = 99, I = 1)
##  S  I 
## 99  1