capm

Principles of Adult Behavior

1. Be patient. No matter what.
2. Don’t badmouth: Assign responsibility, not blame. Say nothing of another you wouldn’t say to him.
3. Never assume the motives of others are, to them, less noble than yours are to you.
4. Expand your sense of the possible.
5. Don’t trouble yourself with matters you truly cannot change.
6. Expect no more of anyone than you can deliver yourself.
7. Tolerate ambiguity.
8. Laugh at yourself frequently.

capm

// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console

capm

doInstall <- TRUE
toInstall <- c("zoo")
if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")}
lapply(toInstall, library, character.only = TRUE)

ftseIndex <- EuStockMarkets[, 4]
plot(ftseIndex, col = "GRAY")

# Calculate 10-day rolling mean, quickly:
smoothIndex <- rollmean(x = ftseIndex,  # original series

capm

doInstall <- TRUE
toInstall <- c("XML")
if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")}
lapply(toInstall, library, character.only = TRUE)

myURL <- "http://en.wikipedia.org/wiki/United_States_presidential_election,_2012"

allTables <- readHTMLTable(myURL)
str(allTables)  # Look at the allTables object to find the specific table we want
stateTable <- allTables[[14]]  # We want the 14th table in the list (maybe 13th?)