Publications by TJLee
Document
dta <- read.table("/Users/Tjlee/Desktop/weather/student2017.txt", header = T) dta ## ID ## 1 D84057058 ## 2 C44035023 ## 3 D84041162 ## 4 D84046081 ## 5 D84021057 ## 6 U36037025 ## 7 U36041074 ## 8 U36041090 ## 9 U36051087 ## 10 U36031118 ## 11 U36041082 ## 12 U76051019 ## 13 U76054025 ## 14 U76064062 ## 15 U760...
5 sym R (792 sym/6 pcs)
Publish Document
dta <- read.table("/Users/Tjlee/Desktop/weather/readingtimes.txt", header = T) dta ## Snt Sp Wrds New S01 S02 S03 S04 S05 S06 S07 S08 S09 S10 ## 1 1 1 13 1 3.429 2.795 4.161 3.071 3.625 3.161 3.232 7.161 1.536 4.063 ## 2 2 2 16 3 6.482 5.411 4.491 5.063 9.295 5.643 8.357 4.313 2.946 6.652 ## 3 3 3 ...
5 sym R (1925 sym/10 pcs)
Document
dta <- read.table("/Users/Tjlee/Desktop/weather/usBirths2015.txt", header = T) dta ## birth month ## 1 325955 January ## 2 298058 February ## 3 328923 March ## 4 320832 April ## 5 327917 May ## 6 330541 June ## 7 353415 July ## 8 351791 August ## 9 347516 September ## 10 339007 October ...
5 sym R (1183 sym/8 pcs)
Document
Hw3 Tjlee 2020-03-29 read in a plain text file with variable names and assign a name to it dta <- read.table("/Users/Tjlee/Desktop/weather/IQ_Beh.txt", header = T) checking data list of data list(dta) ## [[1]] ## Mom Dep IQ BP ## 1 1 N 103 4 ## 2 2 N 124 12 ## 3 3 N 124 9 ## 4 4 N 104 3 ## 5 5 D 96 3 ##...
432 sym R (3623 sym/12 pcs) 3 img
Document
THREE DICE Tjlee 2020-03-29 #PPT page 19 set.seed(123) sort(sample(3:18, size=16, replace=F, prob=c(1/216, 3/216, 6/216, 10/216, 15/216, 21/216, 25/216, 27/216, 27/216, 25/216, 21/216, 15/216, 10/216, 6/216, 3/216, 1/216))) ## [1] 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 #we can see all possible sums from rolling three dice using R dice...
46 sym R (1859 sym/13 pcs) 2 img
Document
HW1-小豚鼠實驗 tjlee 2020-03-27 顯示資料 dta <- ToothGrowth list(dta) ## [[1]] ## len supp dose ## 1 4.2 VC 0.5 ## 2 11.5 VC 0.5 ## 3 7.3 VC 0.5 ## 4 5.8 VC 0.5 ## 5 6.4 VC 0.5 ## 6 10.0 VC 0.5 ## 7 11.2 VC 0.5 ## 8 11.2 VC 0.5 ## 9 5.2 VC 0.5 ## 10 7.0 VC 0.5 ## 11 16.5 V...
216 sym R (2301 sym/10 pcs) 1 img
Document
Exercise 6 tjlee 2020-03-27 library(MASS) help(ls("package:MASS")[92]) ## starting httpd help server ... done dat <- MASS::menarche list(dat) ## [[1]] ## Age Total Menarche ## 1 9.21 376 0 ## 2 10.21 200 0 ## 3 10.58 93 0 ## 4 10.83 120 2 ## 5 11.08 90 2 ## 6 11.33 88 ...
40 sym R (849 sym/4 pcs)
Document
exercise5 Lee 2020-03-23 library(datasets) dat <- datasets::chickwts list(dat) ## [[1]] ## weight feed ## 1 179 horsebean ## 2 160 horsebean ## 3 136 horsebean ## 4 227 horsebean ## 5 217 horsebean ## 6 168 horsebean ## 7 108 horsebean ## 8 124 horsebean ## 9 143 horsebean ## 10 140 hor...
45 sym R (4185 sym/8 pcs)
Document
Tufte Handout An implementation in R Markdown tjlee 2020-03-17 Load dataset library(datasets) dat <- datasets::UCBAdmissions list(dat) ## [[1]] ## , , Dept = A ## ## Gender ## Admit Male Female ## Admitted 512 89 ## Rejected 313 19 ## ## , , Dept = B ## ## Gender ## Admit Male Female ##...
84 sym R (1581 sym/12 pcs)
Document
Vignette Title TJLEE 2020-03-17 library(MASS) dat <- MASS::birthwt birthwt$race <- c("White", "Black", "Other")[birthwt$race]##取得birthwt資料框中race的欄位 aggregate(bwt ~ race, length, data = dat) ## race bwt ## 1 1 96 ## 2 2 26 ## 3 3 67 race 1=White 2=Black 3=Other ...
73 sym R (216 sym/3 pcs)