Publications by Dai Yichao (IVAN)
mtcars Explore
Executive Summary In this report, we will focus on two question by using the data set “mtcars” in R setup, which is a dataset contain 32 observation and 11 variables: Is an automatic or manual transmission better for MPG? Quantify the MPG difference between automatic and manual transmissions According to the final result of this report, we ...
3466 sym R (3222 sym/15 pcs) 3 img
Level_Panel Summary
Profile Setup knitr::opts_chunk$set(echo = TRUE) Input Data / Basic Variable library(readstata13) dat <- read.dta13("firm-level panel.dta") names(dat) ## [1] "法人代码" "year" "ind" ## [4] "省地县码" "行业类别" "工业总产值不变价新规定" ## [7]...
5354 sym R (24422 sym/28 pcs) 4 img
Peer-review
7/14/2020 Introduction This presentation is using the mtcars data in R, in this small project, we try to fit the linear model, we want to see two easy question: -What is the relationship between the hp and MPG? -Does the AM affect the hp and this relationship Package Setup: Here we use the ggplot2 package and plotly package, you can directly cli...
661 sym R (588 sym/4 pcs) 1 img
Storm EVENT in 2018 in USA Plotly
7/6/2020 Introduction This document want to show the which type of the storm event have the strongest effect on the USA cost Which event have the largest Crop cost? Which event have the largest Property cost? Which event have the largest total cost? Library Setup suppressPackageStartupMessages(library(ggplot2)) suppressPackageStartupMessages(l...
698 sym R (499 sym/3 pcs)
Storm EVENT in 2018 in USA MAPS
Introduction This map show the 3 main storm event in 2018 in USA. The radius of the circle means the total cost of the property and the crop. Loading Labrary suppressPackageStartupMessages(library(dplyr)) suppressPackageStartupMessages(library(leaflet)) Loading abd Cleaning the data dat = read.csv("StormEvents_2018.csv") dat = dat[,c("Event_Typ...
217 sym R (1238 sym/3 pcs)
Practical ML
Introduction: A group of enthusiasts who take measurements about themselves regularly to improve their health, to find patterns in their behavior, or because they are tech geeks. One thing that people regularly do is quantify how much of a particular activity they do, but they rarely quantify how well they do it. In this project, our goal is to u...
2288 sym R (13658 sym/29 pcs) 1 img
Report of Practise of Inferential Statistic
Profile Setup knitr::opts_chunk$set(echo = TRUE) Simulation Exercise Show the sample mean and compare it to the theoretical mean of the distribution. set.seed(122) lambda = 0.2 OrigExpD_0.2 = rexp(n = 40,rate = 0.2) samp_mean = mean(OrigExpD_0.2) theo_mean = 1/lambda theo_mean ## [1] 5 samp_mean ## [1] 5.825981 Compared to the theretical mean ...
3456 sym R (4649 sym/35 pcs) 6 img
Multi- Regression
Complete all Exercises, and submit answers to Questions on the Coursera platform. Grading the professor Many college courses conclude by giving students the opportunity to evaluate the course and the instructor anonymously. However, the use of these student evaluations as an indicator of course quality and teaching effectiveness is often critici...
14579 sym R (14716 sym/73 pcs) 19 img