Wush Wu wush978

以下是參加期末展的須知：

我們參加的是Poster的部分，因此在週一下午當天，會需要在會場外圍張貼A1或A2的Poster。同學需要準備兩件事情：

參考我參加國際研討會時準備的poster，把你們的報告改成一頁內可呈現的樣式。你們可以自訂章節，但老師希望你們的內容一定要有：資料來源、收集資料、整理後的資料呈現、結論、自學項目
準備筆電，到時候可能需要live demo

準備好電子檔（建議給我pdf或google drive link, 否則我可能打不開）之後，可以回信給我你的電子檔，我可以幫忙看有沒有要修改的地方。

請同學到 https://mran.revolutionanalytics.com/snapshot/2017-04-01/ 上下載R 3.3.3版本
安裝Rstudio(Windows 使用者請安裝Rstudio或自備能夠編輯UTF-8 編碼的編輯器，OS X 與Linux使用者可依據自己喜好決定是否使用Rstudio)
打開R ，執行：source("http://139.196.37.123/R/init-swirl.R")

作業要求

於 2017-06-05 00:00:00 之前每完成一個單元的同學可獲得10分
每晚一天完成，該單元的分數會少20%。舉例來說：若同學於期限內完成6個單元，但是於 2017-05-31 21:00:00 再完成4個單元，則分數為 60 + 40 * 0.8 = 92
同學可於個人紀錄上查詢進度。老師會以這裡查到的進度為準。同學如果發生完成作業但查不到進度的狀況，請截圖完成的畫面，並儘速通知老師。

	argv <- commandArgs(TRUE)
	library(XML)
	doc <- XML::htmlParse(argv[1])
	css.src <- readLines(argv[2])
	cls.list <- local({
	.m <- regexec("slide\\.(.*) \\{$", css.src)
	.p <- Filter(function(x) length(x) > 0, regmatches(css.src, .m))
	sapply(.p, "[", 2)
	})
	for(cls in cls.list) {

	//[[Rcpp::plugins(cpp11)]]
	#include <Rcpp.h>
	using namespace Rcpp;

	template<typename T>
	T clist(List x, IntegerVector xlength) {
	T r(Rcpp::sum(xlength));
	auto pr = r.begin();
	for(int i = 0;i < x.size();i++) {
	const T element(x[i]);

	library(Matrix)
	library(methods)
	for(count in 2) {
	m <- lapply(seq_len(count), function(i) {
	matrix(seq_len(i * 1000), i * 10, 100)
	})
	r1 <- do.call(rbind, m)
	rm <- lapply(m, as, "RsparseMatrix")
	r1 <- as(r1, "RsparseMatrix")
	r2 <- as(do.call(rbind, rm), "RsparseMatrix")

	{
	"data": [
	{
	"created_time": "2017-05-07T00:44:17+0000",
	"story": "Learning By Hacking shared Taiwan R User Group's post.",
	"id": "367749100085994_619187774942124"
	}
	],
	"paging": {
	"cursors": {

	# 載入iris資料集
	data(iris)

	# 請問iris$Species的型態(`class`)是?
	answer1 <- class(iris$Species)

	stopifnot(is.character(answer1))
	stopifnot(length(answer1) == 1)

	# 請計算Petal.Length在三種Species的平均值