索引到S4函数

Question

我想通过将e对象索引到函数中来获得第3点的结果，但是我很遗憾，因为我无法找到方法。

# 1. 
e <- sapply(RESULT,attributes)$names
[1] "d2"  "s2"  "d4"  "s4"  "d6"     

# 2. - provide info on the object e 
is(sapply(RESULT,attributes)$names)
[1] "character" "vector" "data.frameRowLabels" "SuperClassMethod"  "atomicVector" "index"

# 3.
RESULT[[1]]$d2
[1]  0.7934296  0.5616185  0.3541667  0.1675481 -0.1092148 

# 4. - provide info on function
is(RESULT[[1]]$d2)
[1] "numeric" "vector" "atomicVector" "index" "number" "numLike" "replValue"

# I need to index and place each element without quotes in the following function after $ (S4 object) as to obtain the following vector.
# My goal is to place the below result indexed into the above function by means of indexing the sequence to the vector below.

d <- seq(1:length(sapply(RESULT,attributes)$names))

# However I get the following result.
RESULT[[1]]$noquote(e[[1]])
Error: tentativa de aplicar una no-función
noquote(e[[1]])
[1] d2

我应该如何在函数对象的末尾索引e并删除引号才能工作。