आर

Question

में परिवर्तनीय नामों वाली एक सूची बढ़ाना मैं आर में एक सूची विकसित करने की कोशिश कर रहा हूं, जहां प्रत्येक प्रविष्टि का मूल्य और नाम एक चर में आयोजित होता है, लेकिन ऐसा लगता है कि यह काम नहीं करता है।

my_models_names <- names(my_models) 
my_rocs=list() 
for (modl in my_models_names) { 

    my_probs <- testPred[[modl]]$Y1 
    my_roc <- roc(Ytst, my_probs) 
    c(my_rocs, modl=my_roc) # <-- modl and my_roc are both variables 
    } 

मेरी सूची my_rocs अंत में खाली है, भले ही मुझे पता है कि पाश दोहराता (my_roc में भर जाता है) क्यों?

संबंधित नोट पर, क्या लूपिंग के बिना ऐसा करने का कोई तरीका है?

Answer 1

मुझे this thread पर उत्तर मिला।

मैं निम्नलिखित सामान्य सूत्र का उपयोग कर एक सूची बढ़ सकता है:

mylist <- list() 

for (key in my_keys){ 
mylist[[ key ]] <- value # value is computed dynamically 
} 

मेरी ओपी में:

• mylistmy_rocs
• key है modl
• value है my_roc
है 10

Answer 2

आम तौर पर आर में, बढ़ती वस्तुओं खराब है। यह पूर्ण वस्तु से शुरू होने और इसे भरने के लिए उपयोग की जाने वाली स्मृति की मात्रा को बढ़ाता है। ऐसा लगता है कि आपको पता है कि सूची का आकार पहले से ही होना चाहिए।

उदाहरण के लिए:

my_keys <- letters[1:3] 
mylist <- vector(mode="list", length=length(my_keys)) 
names(mylist) <- my_keys 

mylist 
## $a 
## NULL 

## $b 
## NULL 

## $c 
## NULL 

आप काम इस तरह से कर सकते हैं:

key <- "a" 
mylist[[key]] <- 5 
mylist 
## $a 
## [1] 5 
## 
## $b 
## NULL 
## 
## $c 
## NULL 

Answer 3

तुम भी एक और अधिक अनुसंधान की तरह soltution उपयोग कर सकते हैं, और प्रयोग lapply:

get_model = function(model_name) { 
    my_probs <- testPred[[model_name]]$Y1 
    return(roc(Ytst, my_probs)) 
    } 
model_list = lapply(names(my_models), get_model) 

ध्यान दें कि यह समाधान आपको बहुत सारे बॉयलरप्लेट कोड बचाता है, यह भी realloc से पीड़ित नहीं है ऑब्जेक्ट को बढ़ाकर आपके समाधान की आयन समस्या। बड़े डेटासेट के लिए, इसका मतलब यह हो सकता है कि lapply समाधान हजारों गुना तेज है।