reduce_single_digit: Reduce an Integer, a Date (Time), or a Number (with or...

In iemisc: Irucka Embry's Miscellaneous Functions

Reduce an Integer, a Date (Time), or a Number (with or without Decimals) to a Single Integer

Description

Takes a character vector coercible to a date using anydate or a date time using anytime; a character vector with numbers; a numeric vector; or an integer vector & computes the sum to a single digit using Mod_octave

The vectors may include periods, dashes, parentheses, colons, and/or spaces. See the examples.

Usage

reduce_single_digit(string)

Arguments

string

character vector coercible to a date using anytime or a date time using anytime; a numeric vector; or an integer vector

Value

a numeric vector with a single digit (integer from 0 - 9)

Author(s)

Irucka Embry

References

1. Numerology.com, "Number 9 Meaning", https://www.numerology.com/articles/about-numerology/single-digit-number-9-meaning/.

2. Numerology.com, "Numerology Numbers 1-9: Exploring the single digit numbers in Numerology", https://www.numerology.com/articles/about-numerology/single-digit-numbers-in-numerology/.

3. GeeksforGeeks, Last updated on 13 Jun, 2022, "Finding sum of digits of a number until sum becomes single digit", https://www.geeksforgeeks.org/finding-sum-of-digits-of-a-number-until-sum-becomes-single-digit/.

4. Wikimedia Foundation, Inc. Wikipedia, 18 November 2022, "Digital root", https://en.wikipedia.org/wiki/Digital_root.

Examples

# Please refer to the iemisc: Sound Frequencies & Nikola Tesla's 3-6-9 Theory
# vignette
# https://www.ecoccs.com/R_Examples/SoundFrequencies-and-3-6-9.pdf for
# additional examples


# Examples

library(iemisc)

reduce_single_digit(37)

reduce_single_digit(5094322.439344993211394)

reduce_single_digit(-438443.349435493)

reduce_single_digit("-48373744582.47362287482374")

reduce_single_digit("11-09-2022")

reduce_single_digit("2001/01/31")

reduce_single_digit("24 December 1983 04:37:58.55543333")

reduce_single_digit("4 July 1776")

reduce_single_digit(9)

reduce_single_digit(0)

reduce_single_digit(94321155)

reduce_single_digit("011 [phone]")

reduce_single_digit("011-894-908-0945")

reduce_single_digit("908-0945")


datess <- seq(as.Date("2001/07/17"), as.Date("2001/08/03"), by = "day")
datess
xt <- sapply(datess, reduce_single_digit)
xt
datess[which(xt == 3 | xt == 6 | xt == 9)]

iemisc documentation built on June 22, 2024, 9:45 a.m.