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