एनए की सैपली फ़ंक्शन में अनदेखा करें

Question

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

मेरे डेटा सेट में मैं NA के प्लेसहोल्डर्स के रूप में उपयोग करने की कोशिश कर रहा हूं क्योंकि मैं अपने विश्लेषण का हिस्सा लेने के बाद उन पर वापस लौटने जा रहा हूं इसलिए, मैं अपनी सभी गणनाओं को करने में सक्षम होना चाहता हूं अगर NA वास्तव में वहां नहीं थे।

Error in if ((x) > test) { : missing value where TRUE/FALSE needed 

तुम लोग जानते हैं, यह कुछ sapply समारोह के साथ गलत है:

यहाँ एक उदाहरण डेटा तालिका

ROCA = c(1,3,6,2,1,NA,2,NA,1,NA,4,NA) 
ROCA <- data.frame (ROCA=ROCA)  # converting it just because that is the format of my original data 

#Now my function 
exceedes <- function (L=NULL, R=NULL, na.rm = T) 
{ 
    if (is.null(L) | is.null(R)) { 
     print ("mycols: invalid L,R.") 
     return (NULL)    
    } 
    test <-(mean(L, na.rm=TRUE)-R*sd(L,na.rm=TRUE)) 
    test1 <- sapply(L,function(x) if((x)> test){1} else {0}) 
    return (test1) 
} 
L=ROCA[,1] 
R=.5 
ROCA$newcolumn <- exceedes(L,R) 
names(ROCA)[names(ROCA)=="newcolumn"]="Exceedes1" 

मैं त्रुटि हो रही है साथ मेरे मुद्दा है। NA के अनदेखा करने के तरीके पर कोई विचार? मैं na.omit का प्रयास करूंगा यदि मैं इसे सभी NA के दाएं को सम्मिलित करने के लिए प्राप्त कर सकता हूं, लेकिन मुझे यकीन नहीं है कि यह कैसे करें।

Answer 1

यह बयान अजीब है:

test1 <- sapply(L,function(x) if((x)> test){1} else {0}) 

प्रयास करें: परिणाम में रों:

test1 <- ifelse(is.na(L), NA, ifelse(L > test, 1, 0)) 

Answer 2

आप एनए करना चाहते हैं? यही है, क्या आप पंक्तियों को लाइन करना चाहते हैं?

ऐसा लगता है कि L > test वापस लौटने की तरह काम करेगा। और कॉलम जोड़ना भी सरलीकृत किया जा सकता है (मुझे संदेह है कि "Exeedes1" कहीं एक चर में है)।

exceedes <- function (L=NULL, R=NULL, na.rm = T) 
{ 
    if (is.null(L) | is.null(R)) { 
     print ("mycols: invalid L,R.") 
     return (NULL)    
    } 
    test <-(mean(L, na.rm=TRUE)-R*sd(L,na.rm=TRUE)) 

    L > test 
} 
L=ROCA[,1] 
R=.5 
ROCA[["Exceedes1"]] <- exceedes(L,R) 

Answer 3

वहाँ sapply की कोई जरूरत नहीं है और अपने गुमनाम समारोह क्योंकि > पहले से ही vectorized है।

यह डिफ़ॉल्ट तर्क मान निर्दिष्ट करने के लिए वास्तव में अजीब लगता है जो अमान्य हैं। मेरा अनुमान है कि आप missing फ़ंक्शन का उपयोग करने के बजाय इसे क्लज के रूप में उपयोग कर रहे हैं। NULL वापस करने के बजाय त्रुटि को फेंकना भी अच्छा अभ्यास है क्योंकि फ़ंक्शन NULL पर वापस आने पर आपको पकड़ने की कोशिश करनी होगी।

exceedes <- function (L, R, na.rm=TRUE) 
{ 
    if(missing(L) || missing(R)) { 
    stop("L and R must be provided") 
    } 
    test <- mean(L,na.rm=TRUE)-R*sd(L,na.rm=TRUE) 
    as.numeric(L > test) 
} 

ROCA <- data.frame(ROCA=c(1,3,6,2,1,NA,2,NA,1,NA,4,NA)) 
ROCA$Exceeds1 <- exceedes(ROCA[,1],0.5)