Bai tap 1_05.01.2020

{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE) #Task 2 : Doc du lieu cho R Markdown setwd("E:/cuong_dataR/test") dat = read.csv("PISA Data Vietnam 2015.csv", header = T) attach(dat)

{r setup, include=FALSE} dim(dat) head(dat) summary(dat) dat$Area = factor(dat$Area, levels=c("URBAN", "RURAL", "REMOTE")) head(dat) # Task 3 : Ma hoa (Coding) dat$Type = ifelse(dat$SchoolType==1,"Private","Public") head(dat) # Task 4 : Phan tich mo ta dat voi package "table1" library(table1) table1(~ WEALTH + PARED + Math + Read + Science | Region, data=dat) table1(~ WEALTH + PARED + Math + Read + Science | Area, data=dat) # Task 5 : Phan tich mo ta dat voi package "compareGroups" library(compareGroups) t = compareGroups(Area ~ WEALTH + PARED + Math + Read + Science, data=dat) createTable(t)