Create a gist now

Instantly share code, notes, and snippets.

#build on fine work at
#I take blame for all the ugly/bad code
#data from pimco and vanguard websites imported into Excel and translated into csv
#if local uncomment next line
#pimco_vanguard <- read.csv("vanguard_pimco.csv")
#get data from published google doc spreadsheet
pimco_vanguard <- read.csv("")
#do 1 year or past 12 months
#exclude 0 assuming that data does not exist for this fund
main="PIMCO and Vanguard Mutual Funds \nCumulative Density of 1 Year Performance")
) +
layer(panel.abline(v=0, col="grey70"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment