wush978

這次的作業希望讓同學能準備做期末專題，所以將圍繞著老師給同學的示範專題作練習。 請同學先重現 http://homepage.ntu.edu.tw/~wush978/rdataengineer/demo.html 中的分析結果之後，應該要具備以下的幾個變數：

• cec.df
• ias.df
• join.df

老師希望同學能透過和資料互動，回答以下的問題：

• 為什麼有些資料比對不到？(1%)

wush978

library(magrittr)
areas <- sprintf(
     "https://www.cec.gov.tw/pc/zh_TW/TC/n6300000%02d00000000.html", 1:12
     )
names(areas) <- "松山信義大安中山中正大同萬華文山南港內湖士林北投" %>%
  strsplit(split = "") %>%
  extract2(1) %>%
  split(f = rep(1:12, each = 2)) %>%
  sapply(paste, collapse = "")
root <- tempfile()

wush978

作業要求

• 完成R語言翻轉教室 DataScienceAndR 中02-RDataEngineer-*, 03-RVisualization-*中的所有單元，全部完成獲得100分，每少一個單元扣10分

計分說明

• 於 2018-11-20 24:00:00 之前每完成所有單元的同學可獲得滿分
• 若某一個單元晚一天完成，該單元的分數會少20%。舉例來說：若同學於期限內差一個單元完成所有單元，但是於 2018-11-21 21:00:00 再完成最後一個單元，則分數為 90 + 10 * 80% = 98
• 同學可於 個人紀錄 上查詢進度。老師會以這裡查到的進度為準。同學如果發生完成作業但查不到進度的狀況，並儘速通知老師： wush@arbor.ee.ntu.edu.tw 。

wush978

http://192.168.20.98/cott_api/get_ticket_simple.php?bbox=121.46484375000001,25.005972656239187,121.55273437500001,25.085598897064777&&columns[]=CREATE_DATE

wush978

t_glcalllte_20180812_1_prt_

wush978

2018-09-20 上課前可以準備的動作

1. Windows 使用者請檢查自己的使用者名稱有沒有中文
   • 有的話，請參考 這裡的設定指南
2. 安裝R (可以從 CRAN 安裝最新版的R，或是從 MRAN 安裝舊版的R)
3. 安裝 Rstudio
4. 打開 [Rstudio]
5. 依照指南，安裝 R語言翻轉教室

2018-09-20 上課後的動作

wush978

---
title: "Deep Censored Quantile Regression"
author: "Wush Wu"
date: "September 7, 2018"
output: ioslides_presentation
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```

wush978

wush978

#include <Rcpp.h>
#include <thread>
using namespace Rcpp;

//[[Rcpp::export]]
void testInterrupt(const int jsize, bool verbose, const int out_index = 0) {
  std::ostream* pout;
  if (out_index == 0) pout = &Rcout;
  else if (out_index == 1) pout = &std::cout;
  else throw std::invalid_argument("out");

wush978

jenkins ALL=(ALL) NOPASSWD:ALL