Normalize tripartite and tetrapartite values values to given bases.
Usage
deb_normalize(x,...)# S3 method for defaultdeb_normalize(x,...)# S3 method for deb_lsddeb_normalize(x,...)# S3 method for numericdeb_normalize(x, bases=c(20,12),...)# S3 method for deb_tetradeb_normalize(x,...)Arguments
- x
Either an vector of class
deb_lsd,deb_tetra, or a numericvector of length 3 or 4 representing the values to be normalized.- ...
Arguments passed on to further methods.
- bases
Used only if
xis a numeric vector. A Numeric vector oflength 2 or 3 used to specify the bases for the solidus or s, denarius ord, and optionally the farthing or f units. Default isc(20, 12), whichconforms to the most widely used system of 1 pound = 20 shillings and 1shilling = 12 pence.
Value
Returns a vector of classdeb_lsd with normalized solidus anddenarius units or a vector of classdeb_tetra with normalized solidus,denarius, and farthing units.
Examples
# Normalize a deb_lsd vectorx<-deb_lsd(12,93,78)x_alt<-deb_lsd(12,93,78, bases=c(60,16))deb_normalize(x)#> <deb_lsd[1]>#> [1] 16:19s:6d#> # Bases: 20s 12ddeb_normalize(x_alt)#> <deb_lsd[1]>#> [1] 13:37s:14d#> # Bases: 60s 16d# Normalize a deb_tetra vectort<-deb_tetra(12,83,78,42)t_alt<-deb_tetra(12,83,78,42, bases=c(60,16,8))deb_normalize(t)#> <deb_tetra[1]>#> [1] 16:10s:4d:2f#> # Bases: 20s 12d 4fdeb_normalize(t_alt)#> <deb_tetra[1]>#> [1] 13:28s:3d:2f#> # Bases: 60s 16d 8f# Normalize a numeric vector of length 3deb_normalize(c(12,93,78))#> <deb_lsd[1]>#> [1] 16:19s:6d#> # Bases: 20s 12ddeb_normalize(c(12,93,78), bases=c(60,16))#> <deb_lsd[1]>#> [1] 13:37s:14d#> # Bases: 60s 16d# Normalize a numeric vector of length 4# Must provide bases of length 3deb_normalize(c(12,93,78,42), bases=c(20,12,4))#> <deb_tetra[1]>#> [1] 17:0s:4d:2f#> # Bases: 20s 12d 4fdeb_normalize(c(12,93,78,42), bases=c(60,16,8))#> <deb_tetra[1]>#> [1] 13:38s:3d:2f#> # Bases: 60s 16d 8f