Publications by TJLee
Document
04-13-In-class exercises-4 TJLee 2020-04-15 # 我花了4小時研究它讓它動起來 # # library(animation) library(gganimate) ## Loading required package: ggplot2 library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'pa...
189 sym R (730 sym/10 pcs) 1 img
Document
04-13-In-class exercises-3 TJLee 2020-04-15 # # #丹麥長寬比34:28。 垂直方向（红：白：红=3:1:3），水平方向（红：白：红=3:1:4.5至3:1:5.25）=>畫個大概 plot.new() plot.window(xlim = c(0,30), ylim = c(0,35),xlab = NULL, ylab = NULL, type = "n",) ## Warning in plot.window(xlim = c(0, 30), ylim = c(0, 35), xlab ...
113 sym R (638 sym/4 pcs) 1 img
Document
04-13-In-class exercises-2 TJLee 2020-04-15 library(data.table) #load data dta <- read.table("C:/Users/Tjlee/Desktop/weather/cigarettes.txt", header = T) as.data.frame(dta) ## Country consumption death ## 1 Australia 480 180 ## 2 Canada 500 150 ## 3 Denmark 380 170 ## 4 Finland ...
64 sym R (899 sym/3 pcs) 1 img
Document
#load data library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library(readr) dtac <- read.table("/Users/Tjlee/Desktop/weather/nobel_countries.txt", header = ...
5 sym R (3184 sym/25 pcs)
Document
#load&see library(MASS) dta <- MASS::nlschools head(dta) ## lang IQ class GS SES COMB ## 1 46 15.0 180 29 23 0 ## 2 45 14.5 180 29 10 0 ## 3 33 9.5 180 29 15 0 ## 4 46 11.0 180 29 23 0 ## 5 20 8.0 180 29 10 0 ## 6 30 9.5 180 29 10 0 str(dta) ## 'data.frame': 2287 obs. of 6 variab...
5 sym R (2118 sym/17 pcs)
Document
03-30-In-class exercises-6 TJLee 2020-04-12 #load data& see it dta <- read.table("C:/Users/Tjlee/Desktop/weather/probeL.txt", header = T) dim(dta) ## [1] 55 3 head(dta) ## ID Response_Time Position ## 1 S01 51 1 ## 2 S01 36 2 ## 3 S01 50 3 ## 4 S01 35 4 ## 5 S01 ...
62 sym R (1515 sym/10 pcs)
Document
03-30-In-class exercises-5 TJLee 2020-04-12 #load data library(MASS) Anidta <- MASS::Animals mamdta <- MASS::mammals #see dataset library(MASS) dim(Anidta) ## [1] 28 2 str(Anidta) ## 'data.frame': 28 obs. of 2 variables: ## $ body : num 1.35 465 36.33 27.66 1.04 ... ## $ brain: num 8.1 423 119.5 115 5.5 ... dim(mamdta) ## [1] 62 ...
67 sym R (1643 sym/18 pcs)
Document
03-30-In-class exercises-4 TJLee 2020-04-11 #load cardata library(car) ## Loading required package: carData cardta <- carData::Vocab #see data dim(cardta) ## [1] 30351 4 head(cardta,n=10) ## year sex education vocabulary ## 19740001 1974 Male 14 9 ## 19740002 1974 Male 16 9 ## 19740003 19...
117 sym R (5823 sym/23 pcs) 4 img
Document
The data set concerns species and weight of animals caught in plots in a study area in Arizona over time. Each row holds information for a single animal, and the columns represent: record_id: Unique id for the observation month: month of observation day: day of observation year: year of observation plot_id: ID of a particular plot species_id: 2-...
700 sym R (11321 sym/45 pcs)
Document
load data library(HSAUR3) ## Loading required package: tools dta <- HSAUR3::backpain list(dta) ## [[1]] ## ID status driver suburban ## 1 1 case yes yes ## 2 1 control yes no ## 3 2 case yes yes ## 4 2 control yes yes ## 5 3 case yes no ## 6 3 control yes ...
24 sym R (17579 sym/20 pcs)