gbp.f = 1*(1.0175)
gbp.f
## [1] 1.0175
usd.f = 1.2133*(1.0250)
usd.f
## [1] 1.243632
forward = usd.f/gbp.f
forward
## [1] 1.222243
initial = 500
port.worth = initial*1.2133*(1 + 0.07)
port.worth
## [1] 649.1155
port.val = port.worth/forward
port.val
## [1] 531.0854
domestic.r = (port.val/initial - 1)*100
domestic.r
## [1] 6.217073
lh.fisher = (forward - 1.2133)/1.2133
lh.fisher
## [1] 0.007371007
rh.fisher = (0.0250 - 0.0175)/1.0175
rh.fisher
## [1] 0.007371007