## valuing a JOURNAL
j <- journal(amount = 10, price = 2)
## amount price
## 1 10 2
##
## 1 transaction
valuation(j, instrument = NA)
## amount price
## 1 -20 1
##
## 1 transaction
## valuing a POSITION
pos <- position(c(AMZN = -10, MSFT = 200))
### contructing a price table:
### ==> P[i, j] must correspond to pos[i, j]
P <- array(c(2200, 170), dim = c(1, 2))
colnames(P) <- instrument(pos)
valuation(pos, vprice = P)
## AMZN MSFT
## [1,] -22000 34000
### contructing a price table, alternative:
### a named vector
### ==> only works when there is only a single timestamp
valuation(pos, vprice = c(MSFT = 170, AMZN = 2200))
all.equal(valuation(pos, vprice = P),
valuation(pos, vprice = c(MSFT = 170, AMZN = 2200)))
Run the code above in your browser using DataLab