joshuaulrich

require(quantmod)

do_chart <- function(symbol) {
   quote <- getQuote(symbol)
   quote$Close <- quote$Last
   xts(OHLCV(quote), quote[,"Trade Time"],
       pct_change = quote[,"% Change"])
}

filename <- "intraday-sp500.rds"

ehbick01

## Load Packages & Define Theme
library(tidyverse)
library(doParallel)
library(parallel)
library(doSNOW)
library(foreach)
library(lubridate)

# Make function
getEm <- function(x) { 

CerebralMastication

set.seed(2)
x <- 1:100

y <- 20 + 3 * x
e <- rnorm(100, 0, 60)
y <- 20 + 3 * x + e

plot(x,y)
yx.lm <- lm(y ~ x)
lines(x, predict(yx.lm), col="red")