Publications by TJLee

Document

11.04.2020

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

09.04.2020

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

31.03.2020

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)

Document

29.03.2020

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

29.03.2020

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

29.03.2020

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

29.03.2020

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

29.03.2020

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

27.03.2020

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

27.03.2020

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)