Publications by TJLee
Document
1 load data and see it # package management library(pacman) # load them pacman::p_load(mlmRev, tidyverse, lme4, merTools) # input data dta <- read.csv("pts.csv") # head(dta) ## School Teacher Pupil Read_0 Read_1 ## 1 1 11 18 -0.16407000 4.2426 ## 2 1 11 19 -0.98126000 1.0000 ## 3 1 11 20...
1696 sym R (5267 sym/18 pcs)
Document
1 load data and see it pacman::p_load(mlmRev, tidyverse, lme4, merTools, sjPlot) library(WWGbook) data("classroom") str(classroom) ## 'data.frame': 1190 obs. of 12 variables: ## $ sex : int 1 0 1 0 0 1 0 0 1 0 ... ## $ minority: int 1 1 1 1 1 1 1 1 1 1 ... ## $ mathkind: int 448 460 511 449 425 450 452 443 422 480 ... ## $ m...
1499 sym R (3849 sym/11 pcs)
Document
1 load and see # load them pacman::p_load(mlmRev, tidyverse, lme4, foreign, merTools, sjPlot) # input data dta <- read.dta("fat.dta") #rename names(dta) <-c("ID", "Age", "Age_m", "Time", "PBF") # show first 6 obs. head(dta) ## ID Age Age_m Time PBF ## 1 1 9.32 13.19 -3.87 7.94 ## 2 1 10.33 13.19 -2.86 15.65 ## 3 1 11.24 13.19 -...
1359 sym R (5627 sym/24 pcs) 6 img
Document
1 load and see pacman::p_load(WWGbook, tidyverse, lme4, nlme, merTools) dta <- read.csv("visual_search.csv") str(dta) ## 'data.frame': 132 obs. of 4 variables: ## $ Participant: Factor w/ 33 levels "0042","0044",..: 19 16 18 25 28 22 24 23 26 27 ... ## $ Dx : Factor w/ 2 levels "Aphasic","Control": 2 2 2 2 2 2 2 2 2 2 ... ## $...
75 sym R (3005 sym/11 pcs) 3 img
Document
1 Exercise1 Covariance patterns models 1.1 load and see #load package pacman::p_load(tidyverse, nlme) #read data dta <- read.csv("ade.csv") #see data str(dta) ## 'data.frame': 60 obs. of 3 variables: ## $ Dog : Factor w/ 6 levels "D11","D12","D13",..: 1 1 1 1 1 1 1 1 1 1 ... ## $ Hour: num 0 0.5 1 1.5 2 2.5 3 3.5 4 4.5 ... ## $...
4678 sym R (41023 sym/71 pcs) 9 img
Document
class: center, middle, inverse, title-slide # Project ## 國三數學成就影響因素之多層次分析：以TEPS資料為例 ### Yi Cheng, Tung & Tang Jung, Lee ### 2020-12-21 --- ## 研究動機 ### * 教學經驗、城鄉差距 ### 國三是學生人生中面臨第一次考試升學的階段，除了一般所認知的先備知�...
40902 sym
Document
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(tidyr) library(ggplot2) library(stringr) dta <- read.csv("D:/sheu/df_output_cleaned.csv", header=...
4444 sym R (33338 sym/106 pcs) 13 img
test of tutorial
####R code to fit titrating delay discounting task using Mazur (1987), Myerson and Green (1999) and Rachlin (2001) hyperbolic and hyperboloid models#### #Mazur: V = A/(1+kD) #Myerson & Green: V = A/((1+kD)^s) #Rachlin: V = A/(1+kD^s) ###Non-linear Least Squares is the fit method#### #Call in data-set discounting <- read.table("Data.txt...
9 sym R (71448 sym/67 pcs) 4 img
Document
1 Exercise 1 1.1 input 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(tidyr) dta <- read.table("starter.txt", header=T) head(dta) ## sid ...
2980 sym R (23310 sym/97 pcs) 20 img
Document
1 Exercise 1 gee model for multiple sources data # require(pacman) ## Loading required package: pacman # pacman::p_load(MASS, gee, tidyverse, geepack) 1.1 input data fL <- "https://www.hsph.harvard.edu/fitzmaur/ala2e/ccs-data.txt" dta <- read.table(fL, na.string = ".") 1.2 rename names(dta) <- c("ID", "Problem", "Single", "Parent", "Teacher"...
1813 sym R (8996 sym/43 pcs) 3 img