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?)

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

# DEVTOOLS
library(devtools)
build_github_devtools()
install.packages("devtools.zip", repos = NULL)
unlink("devtools.zip")
# RMetrics
source('http://www.rmetrics.org/Rmetrics.R')
install.Rmetrics()
# Additional set of repositories
setRepositories(addURLs = c(CRANxtras = 'http://www.stats.ox.ac.uk/pub/RWin'))

capm

FX.HistData <- function(pair = "EURUSD", period = "day") {
  ##### Arguments verification Valid pairs to download
  pairs.valid <- c("AUDJPY", "AUDUSD", "CHFJPY", "EURCHF", "EURGBP", "EURJPY", "EURUSD", "GBPCHF", "GBPJPY", "GBPUSD", "NZDUSD", "USDCAD", "USDCHF", "USDJPY", "XAGUSD", "XAUUSD")
  # Valid download periods
  period.valid <- c("day", "hour")
  # Create set of warnings
  error.string <- c()
  # Check if it is a valid pair, if not store a warning
  if (pair %in% pairs.valid){valid.pair = TRUE} else {
    valid.pair = FALSE

capm

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

capm

Function DateMultiFunction(InputDate As String, InputType As Integer) As String
    ' 0: True or False
    ' 1: Replace date
    ' 2: Extract string

    ' Declare variables
    Dim regEx As New RegExp
    Dim strPattern As String
    
    '

capm

#####
## Load packages
#library(gdata)
library(readxl)
library(data.table)
library(tidyr)
library(magrittr)
library(SIT)

#####

capm

Sub FXSBS()
'
' FXSBS Macro
'
    ' Declare variables
    Dim wbMain As Workbook
    Dim wsMain As Worksheet
    Dim urlFX As String
    Dim dateStart As Date, dateEnd As Date
    ' Internet objects

capm

Private Sub Auto_Open()
    Call FXSBS
End Sub
Attribute VB_Name = "capmFunctions"
'XXXXX
Public Function RightToLeftChar(InputData As String, InputChar As String) As String
    '
    RightToLeftChar = Right(InputData, Len(InputData) - WorksheetFunction.Find("|", WorksheetFunction.Substitute(InputData, InputChar, "|", Len(InputData) - Len(WorksheetFunction.Substitute(InputData, InputChar, "")))))

End Function

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.