fototo

#' The single-file, 'source'-able version of https://github.com/hrbrmstr/zellingenach
#' More info here: http://bit.ly/zellingenach
#' By @hrbrmstr (2016)
#' MIT LICENSE 

# NOTE THAT YOU NEED INTERNET ACCESS TO RUN THIS SCRIPT
# it pulls the three necessary files (only once) from my web site

library(V8)
library(dplyr)

fototo

## Load library:
library("exams")

## exam questions:
myexamlist<-list("pnorm1","sesamplesize1multiplechoice")

## output directory
## create new test dir if one does not exist:
files.list<-system("ls",intern=TRUE)

fototo

###############################################
# working with complete set of 2015 play-by-play data
# collected using the getData function in the openWAR
# package (retrieves MLBAM GameDay files)
# currently have this saved as a Rdata file
###############################################
load("alldata2015.Rdata")

# computes the run values of all plate appearances

fototo

## source: https://github.com/toddwschneider/nyc-taxi-data/blob/master/analysis/analysis.R
dropoffs = query("SELECT * FROM dropoff_by_lat_long_cab_type ORDER BY count")
dropoffs = mutate(dropoffs, cab_type_id = factor(cab_type_id))

p = ggplot() +
  geom_polygon(data = ex_staten_island_map,
               aes(x = long, y = lat, group = group),
               fill = "#080808", color = "#080808") +
  geom_point(data = dropoffs,
             aes(x = dropoff_long, y = dropoff_lat, alpha = count, size = count, color = cab_type_id)) +

fototo

fototo

library(idbr) 
library(ggplot2)
library(animation)
library(dplyr)
library(gganimate)

idb_api_key("Your Census API key goes here")

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

fototo

<script>
try {
    document.addEventListener("DOMContentLoaded", function() {
        var accumScrollMove = 0;
        // Set it 1 msecs to avoid div by zero error
        var accumScrollTime = 1;
        var latestScrollTop = 0;
        var latestScrollAt = new Date();

        function checkScroll() {

fototo

• 데이터 출처: http://m.wikitree.co.kr/main/news_view.php?id=217101
• 데이터 수집: 위 기사에서 crawl.py를 이용해 맛집 목록 수집 후 네이버 지도 API를 이용해서 좌표 정보 수집
• Author: Lucy Park
• License: Apache v2

fototo

#load the package
require(h2o)

#start h2o
localH2o <- h2o.init(nthreads = -1, max_mem_size = "20G")

#load data on H2o
trainh2o <- as.h2o(train)
testh2o <- as.h2o(test)

fototo