#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
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") |
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 |
#Non-mathematical Introductions
#Videos
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, |
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: |
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} |
### 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 |
// Use Gists to store code you would like to remember later on | |
console.log(window); // log the "window" object to the console |