vec <- c(1, 2, 3, 4, 5)

# بررسی عضویت
is_member <- 3 %in% vec  # نتیجه: TRUE

# بررسی نوع داده
is_numeric <- is.numeric(vec)  # نتیجه: TRUE
is_character <- is.character(vec)  # نتیجه: FALSE