inst/doc/transactions.R

In debkeepr: Analysis of Non-Decimal Currencies and Double-Entry Bookkeeping

## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----load debkeepr------------------------------------------------------------
# load debkeepr
library(debkeepr)

## ----19. multiplication-------------------------------------------------------
# 19. For Rice's 3/5 part of the 100 says valued at £566.13.4 nr 18
tr18 <- deb_lsd(566, 13, 4)
tr18 * 3 / 5

## ----21. brokerage and provision----------------------------------------------
# 21. For brokerage costs in nr 18 and 20 at 1/8% and provision at 1/3%
sum(tr18 * 1 / 800, tr18 * 1 / 300)

## ----87. interest-------------------------------------------------------------
# 87. For £96.14.9 detained upon interest at 8% for 4 months
deb_lsd(96, 14, 9) * 0.08 * 4 / 12

## ----3. kettles weight--------------------------------------------------------
# 3. Gross weight
(kettles_gross <- deb_lsd(l = c(2, 2, 2, 2, 1),
                          s = c(3, 2, 1, 0, 3),
                          d = c(26, 18, 21, 17, 5),
                          bases = c(4, 28)))

# Tare
(kettles_tare <- deb_lsd(l = 0,
                         s = 0,
                         d = c(23, 21, 22, 19, 17),
                         bases = c(4, 28)))

# Net weight
(kettles_net <- sum(kettles_gross) - sum(kettles_tare))

## ----3. kettles value---------------------------------------------------------
# 3. Decimalize hundredweight
(kettles_num <- as.numeric(kettles_net))

# Value of the kettles
(deb_lsd(4, 19, 0) * kettles_num)

## ----54. sugar----------------------------------------------------------------
# 54. 51 hundredweight 3 quarters 4 pounds of sugar at 13d. per pound
# Weight in decimalized pounds
sugar_lbs <- deb_lsd(51, 3, 4, bases = c(4, 28)) %>% 
  deb_as_decimal(unit = "d") %>% 
  as.numeric()

# Price
deb_lsd(0, 0, 13) * sugar_lbs

## ----54. sugar tetra----------------------------------------------------------
# Normalize 51 hundredweight 3 quarters 4 pounds of sugar as tetrapartite value
deb_tetra(0, 51, 3, 4, bases = c(20, 4, 28)) %>% 
  deb_normalize()

## ----102/103. purchase and sale of sugar--------------------------------------
# 102. 77 hundredweight 2 quarters 20 pounds of sugar
sugar_lbs2 <- deb_lsd(77, 2, 20, bases = c(4, 28)) %>% 
  deb_as_decimal(unit = "d") %>% 
  as.numeric()

# purchase price of the sugar
(sugar_purchase <- deb_lsd(0, 0, 13) * sugar_lbs2)

# 103. profits from the sugar
deb_lsd(0, 0, 1) * sugar_lbs2

## ----105/106. silver bars-----------------------------------------------------
# 105. Payment for sugar
# Value of the 8 silver bars
deb_lsd(0, 6, 7.5) * 1733

# 106. Value of sugar at 13d. plus payment of cash
sum(sugar_purchase, deb_lsd(102, 16, 1))

## ----flemish to sterling------------------------------------------------------
# Rate for sterling to Flemish
sterling_to_flemish <- deb_lsd(0, 33, 4)

# Decimalized Flemish to sterling rate

# Divide deb_lsd vectors
(flemish_to_sterling <- deb_lsd(1, 0, 0) / sterling_to_flemish)

# Numeric method
as.numeric(sterling_to_flemish) ^ -1

# See the rate as a deb_lsd vector
1 / sterling_to_flemish

## ----5. guilders to sterling--------------------------------------------------
# 5. Guilders to Flemish
tr5_guilders <- deb_lsd(2290, 0, 0, bases = c(20, 16))
tr5_flemish <- deb_convert_bases(tr5_guilders, to = c(20, 12)) / 6

# Flemish to sterling
tr5_flemish * flemish_to_sterling

## ----33. guilders to sterling-------------------------------------------------
# 33. 1224 guilders 19s. 8d. through bills of exchange
# Inverse rate
tr33_rate <- deb_lsd(1, 0, 0) / deb_lsd(0, 36, 10)

# Convert bases and do exchange
tr33_guilders <- deb_lsd(1224, 19, 8, bases = c(20, 16))
tr33_flemish <- deb_convert_bases(tr33_guilders, to = c(20, 12)) / 6
tr33_flemish * tr33_rate

## ----40. sale of 60 Leeds dozens----------------------------------------------
# 40. Proceeds from the two sales
(tr40_sale <- sum(deb_lsd(45, 7, 8, bases = c(20, 16)) * 30, 
                  deb_lsd(50, 0, 0, bases = c(20, 16)) * 30))

# Sum of proceeds and conversion from guilders to Flemish
tr40_flemish <- deb_convert_bases(tr40_sale, to = c(20, 12)) / 6

# To sterling
tr40_flemish * flemish_to_sterling

## ----20. crowns to sterling---------------------------------------------------
# 20. For £2148 50s. 6d. French crowns at 63d. sterling
# Rate
as.numeric(deb_lsd(0, 0, 63))

# or with deb_decimal
deb_decimal(63, unit = "d") %>% 
  deb_convert_unit(to = "l") %>% 
  as.numeric()

tr20_crowns <- deb_lsd(2148, 50, 6, bases = c(60, 12))

deb_convert_bases(tr20_crowns, to = c(20, 12)) * 0.2625

## ----58. crowns, guilders, sterling-------------------------------------------
# 58. Crowns to Flemish to guilders
crowns_to_flemish <- as.numeric(deb_lsd(0, 0, 123))
tr58_crowns <- deb_lsd(1140, 17, 8, bases = c(60, 12))
tr58_flemish <- deb_convert_bases(tr58_crowns,
                                  to = c(20, 12)) * crowns_to_flemish
deb_convert_bases(tr58_flemish, to = c(20, 16)) * 6

# Crowns to sterling
crowns_to_sterling <- as.numeric(deb_lsd(0, 0, 72))
deb_convert_bases(tr58_crowns, to = c(20, 12)) * crowns_to_sterling

## ----64 and 65. florins to sterling-------------------------------------------
# 64 and 65. Bills of exchange to Danzig
# Rate of 232 gros per £1 Flemish
tr64_rate <- as.numeric(1 / deb_lsd(0, 232, 0, bases = c(30, 18)))

# Convert florins to sterling through pounds Flemish using the pipe
deb_lsd(l = c(3987, 1907),
        s = c(16, 26),
        d = 0,
        bases = c(30, 18)) %>% 
  deb_convert_bases(to = c(20, 12)) %>% 
  `*`(tr64_rate) %>% 
  `*`(flemish_to_sterling)

## ----51. purchase of figs-----------------------------------------------------
# 51. purchase of 1576 pieces of figs for 681 milréis 960 réis
tr51_reis <- deb_lsd(681, 960, 0, bases = c(1000, 12))
tr51_converted <- deb_convert_bases(tr51_reis, to = c(20, 12))

# Method 1: multiply rate of réis by 4 and invert rate
tr51_converted / as.numeric(deb_lsd(0, 400, 0, bases = c(1000, 10)) * 4)

# Method 2: multiply rate of shillings by 2.5 and convert to decimalized pounds
tr51_rate <- deb_decimal(5 * 2.5, "s") %>% 
  deb_convert_unit(to = "l")
tr51_converted * as.numeric(tr51_rate)