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

"""
Demonstrates how to use the blocking scheduler to schedule a job that executes on 3 second
intervals.
"""

from datetime import datetime
import os

from apscheduler.schedulers.blocking import BlockingScheduler

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

nobs <- 4000
pb <- round(runif(n=1, min=0.1, max=0.8),1)
August <- rbinom(n=nobs, size=1, prob=pb)
pb <- round(runif(n=1, min=0.1, max=0.8),1)
September <- rbinom(n=nobs, size=1, prob=pb)
pb <- round(runif(n=1, min=0.1, max=0.8),1)
October <- rbinom(n=nobs, size=1, prob=pb)
pb <- round(runif(n=1, min=0.1, max=0.8),1)
November <- rbinom(n=nobs, size=1, prob=pb)
pb <- round(runif(n=1, min=0.1, max=0.8),1)

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

Sub WorkbooksSaveAsCsvToFolder()
'UpdatebyExtendoffice20181031
Dim xObjWB As Workbook
Dim xObjWS As Worksheet
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xObjFD As FileDialog
Dim xObjSFD As FileDialog
Dim xStrSPath As String
Dim xStrCSVFName As String