लेखन कार्य

आर में, फ़ंक्शंस प्रथम श्रेणी के नागरिक हैं (वस्तुएं अपने आप में) और आपको अपने कोड को मॉड्यूलर, पुन: प्रयोज्य और सुव्यवस्थित ब्लॉकों में संरचित करने की अनुमति देती हैं।

किसी फ़ंक्शन को परिभाषित करना

किसी फ़ंक्शन को परिभाषित करने के लिए, function कीवर्ड का उपयोग करें और असाइनमेंट ऑपरेटर <- का उपयोग करके बनाए गए ऑब्जेक्ट को एक वेरिएबल (फ़ंक्शन नाम) पर असाइन करें:

# Simple function definition
greet_user <- function() {
  print("Hello, User!")
}

# Invoking the function
greet_user()

पैरामीटर और रिटर्न मान

फ़ंक्शन एक या अधिक पैरामीटर स्वीकार कर सकते हैं. किसी मान को स्पष्ट रूप से वापस करने के लिए, return() फ़ंक्शन का उपयोग करें। यदि return() को छोड़ दिया जाता है, तो R स्वचालित रूप से फ़ंक्शन बॉडी में अंतिम मूल्यांकन किए गए अभिव्यक्ति का मान लौटा देगा।

# Function that adds two numbers and returns the result
add_numbers <- function(a, b) {
  sum_result <- a + b
  return(sum_result)
}

total <- add_numbers(5, 7)
print(total) # Prints 12

डिफ़ॉल्ट तर्क

आप किसी फ़ंक्शन के पैरामीटर के लिए डिफ़ॉल्ट मान निर्दिष्ट कर सकते हैं। यदि फ़ंक्शन लागू होने पर तर्क प्रदान नहीं किया जाता है, तो आर डिफ़ॉल्ट मान का उपयोग करेगा:

# The function uses a default discount rate of 10% (0.10)
apply_discount <- function(price, discount = 0.10) {
  discounted_price <- price * (1 - discount)
  return(discounted_price)
}

# Uses the default (10%)
print(apply_discount(100)) # Prints 90

# Specifies a custom discount (20%)
print(apply_discount(100, 0.20)) # Prints 80

सूचियों के साथ एकाधिक मान लौटाना

चूँकि R में एक फ़ंक्शन केवल एक ऑब्जेक्ट को return() के माध्यम से सीधे लौटा सकता है, यदि हमें कई मान (संभवतः विभिन्न प्रकार या लंबाई के) वापस करने की आवश्यकता है, तो हम उन्हें एक सूची (list) के अंदर बंडल कर सकते हैं:

get_stats <- function(v) {
  stats <- list(
    mean_val = mean(v),
    max_val = max(v)
  )
  return(stats)
}

results <- get_stats(c(10, 20, 30))
print(results$mean_val) # Prints 20

अनाम फ़ंक्शन और sapply

किसी वेक्टर या सूची के तत्वों पर त्वरित परिवर्तन लागू करने के लिए sapply() जैसे फ़ंक्शंस के साथ जोड़े जाने पर अनाम फ़ंक्शंस (बिना नाम परिभाषित इनलाइन फ़ंक्शंस) बेहद उपयोगी होते हैं।

आधुनिक आर में (संस्करण 4.1.0 से आगे), आप क्लासिक function(x) के अलावा शॉर्टहैंड सिंटैक्स \(x) का उपयोग करके अज्ञात फ़ंक्शन को परिभाषित कर सकते हैं:

v <- c(1, 2, 3)

# Using sapply with a classic anonymous function
sapply(v, function(x) x^2) # 1 4 9

# Using sapply with shorthand syntax (R >= 4.1.0)
sapply(v, \(x) x^2) # 1 4 9

खुद कोशिश करना