lejarx

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

lejarx

### DATA SECTION

library(data.table)

## Read data with 'data.table::fread'
input <- fread("wu03ew_v1.csv", select = 1:3)
setnames(input, 1:3, new = c("origin", "destination","total"))
## Coordinates
centroids <- fread("msoa_popweightedcentroids.csv")
## 'Code' is the key to be used in the joins

lejarx

My first examples with [***knitr***](http://yihui.name/knitr/)
-----------------------------------------
Let's include some simple R code:
```{r}
1+2
```
That worked.

Let's include a plot:
```{r fig.width=4, fig.height=4}

lejarx

library(ggplot2);
library(grid);

data(iris)

x <- jitter(iris[,c('Sepal.Length')])
y <- jitter(iris[,c('Sepal.Width')])
z <- factor(iris[,c('Species')])

# The color blind palette without black:

lejarx

library(idbr) # devtools::install_github('walkerke/idbr')
library(ggplot2)
library(animation)
library(dplyr)
library(ggthemes)

idb_api_key("Put your Census API key here")

male <- idb1('CH', 2016:2050, sex = 'male') %>%
  mutate(POP = POP * -1,

lejarx

#Non-mathematical Introductions

• http://gcn.com/articles/2014/01/09/topographical-data-analysis.aspx
• https://www.simonsfoundation.org/quanta/20131004-the-mathematical-shape-of-things-to-come/

#Videos

• http://www.youtube.com/channel/UCThuKLGcSXhBJ5GlwzHobJw
• http://www.youtube.com/watch?v=kctyag2Xi8o
• http://www.youtube.com/watch?v=x3Hl85OBuc0
• http://www.youtube.com/playlist?list=PL6763F57A61FE6FE8
• http://techtalks.tv/talks/topological-data-analysis-part-i/58123/

lejarx

from bs4 import BeautifulSoup
import requests
import requests.exceptions
from urllib.parse import urlsplit
from urllib.parse import urlparse
from collections import deque
import re

url = "https://scrapethissite.com"
# a queue of urls to be crawled

lejarx

library(RemixAutoML)
library(data.table)

###########################################
# Prepare data for AutoTS()----
###########################################

# Load Walmart Data from Dropbox----
data <- data.table::fread("https://www.dropbox.com/s/2str3ek4f4cheqi/walmart_train.csv?dl=1")