managing portfolio - building portfolio table. - vol2

x <- as.data.frame(tapply(read.csv("~/f4.csv")$quantity,read.csv("~/f4.csv")$ticker,sum))
colnames(x)[1] <- "shares"
z <- as.data.frame(tapply(read.csv("~/f4.csv")$quantity,read.csv("~/f4.csv")$ticker,sum))
colnames(z)[1] <- "shares"
z2 <- transform(z,ticker=rownames(z))
my_pf <- transform(z2,currency=mapply(function(x) read.csv("~/f4.csv")[grep(x,read.csv("~/f4.csv")$ticker),5][1],my_pf$ticker))
mapply(my_getsymbols,my_pf$currency,my_pf$ticker)
my_pf <- transform(my_pf,total=mapply(function(x,y) x*last(get(as.character(y))[,4]),z2$shares,z2$ticker))
tapply(my_pf$total,my_pf$currency,sum)
getFX("USD/JPY")
tapply(my_pf$total,my_pf$currency,sum)["JPY"] + tapply(my_pf$total,my_pf$currency,sum)["USD"] * last(USDJPY)
beep(2)