आर

Question

में अंश और किसी भिन्न के हर हो रही पुस्तकालय मास में समारोह fractions का उपयोग करना, मैं एक अंश के लिए एक दशमलव परिवर्तित कर सकते हैं:

> fractions(.375) 
    [1] 3/8 

लेकिन तब मैं अंश और हर को निकालने के लिए कैसे? fractions के लिए सहायता "fracs" विशेषता का उल्लेख करती है, लेकिन मैं इसे एक्सेस नहीं कर पा रहा हूं।

Answer 1

अंश का एक चरित्र प्रतिनिधित्व एक विशेषता में संग्रहीत किया जाता है:

x <- fractions(0.175) 
> strsplit(attr(x,"fracs"),"/") 
[[1]] 
[1] "7" "40" 

Answer 2

आप निम्नलिखित तरीके से आपत्ति अपने अंश से fracs विशेषता प्राप्त कर सकते हैं, लेकिन यह अपने अंश का सिर्फ चरित्र प्रतिनिधित्व है:

x <- fractions(.375) 
attr(x, "fracs") 
# [1] "3/8" 

आप अंश और हर मूल्यों उपयोग करना चाहते हैं, तो आप सिर्फ निम्नलिखित समारोह के साथ स्ट्रिंग विभाजित कर सकते हैं:

getfracs <- function(frac) { 
    tmp <- strsplit(attr(frac,"fracs"), "/")[[1]] 
    list(numerator=as.numeric(tmp[1]),denominator=as.numeric(tmp[2])) 
} 

जो तुम इस तरह से उपयोग कर सकते हैं:, के रूप में जुबा का प्रदर्शन किया

fracs <- getfracs(x) 
fracs$numerator 
# [1] 3 
fracs$denominator 
# [1] 8