1 LOi noi dau

Minh se huong dan cac buoc co ban

  1. Tao moi truong (create working environment) and Doc du lieu vao R (read data)
  2. Some basic skills

2 1. Tao moi truong (cho lan dau va no se duy tri mai voi 1 du an)

#Buoc 1
#Muc dich la no se luu cac lenh va mot so package)
#File>>>>New Project>>>New directory >>Emty project>>"ten project">>Va nguon chua thu vien cua minh.
#Luu y: tat ca ket qua hay file so lieu sau nay se luu o folder nguon nay

3 Doc du lieu vao R

#Buoc 2
#Thong thuong minh se doc file excel (xlsx hoac CSV) hoac cac file tu Stata (duoi la: .dta) hoac spss (.sav) hoac file text (.txt)...

#Neu minh da lam buoc 1 thi viec doc file se de dang hon

#a. Chay packages du minh doc bat cu file nao (thuong thi Dat nen luu file dang .csv hoac .dta)

#install.packages("foreign")  #chi install neu no chua co trong thu vien packages. 

#trong mot vai truong hop neu chua co packages thi nen tai no bang cach bam "Install" o goc phai duoi man hinh (click "install"the right down of your screen). Sau do go ten packages vao va bam install. Tiep theo la tat nhien phai suw dung cau lenh library("ten packages") nhu o duoi

library(foreign) #chay package moi install xong. Xong buoc nay thi minh co the doc bat cu file data dang nao
## Warning: package 'foreign' was built under R version 3.2.5
#b. Nhac cho R biet la minh dang lam viec tai nguon nao (tuc la folder nao)

getwd()  #no se bao minh dang sd folder nao
## [1] "C:/Users/BINH THANG/Dropbox/R - Learning"
#C. doc file du lieu vao va bat dau lam viec: Buoc quan trong nhat

data=read.csv("C:/Users/BINH THANG/Dropbox/R - Learning/pairdata.csv")  #data la ten moi minh dat cho file so lieu dang lam. No la ten moi bay gio

#ngoai ra neu doc loai file nao khac thi xem o day http://www.statmethods.net/input/importingdata.html 

4 Xem cac thong tin so lieu

#d. Muon xem cac thong tin file so lieu 

View(data) #cua so xuat hien va xem file so lieu

names(data) #xem cac bien so co
## [1] "Id"   "Post" "AHI"  "ODI"
## class of an object (numeric, matrix, data frame, etc): cac kieu so lieu co
class(data)
## [1] "data.frame"
## print first 10 rows of mydata (xem so lieu voi 10 quan sat dau tien)
head(data, n=10)
##    Id Post AHI ODI
## 1   1   T1  15 146
## 2   2   T1  15 149
## 3   3   T1  16 147
## 4   4   T1  16 146
## 5   5   T1  16 149
## 6   6   T1  16 148
## 7   7   T1  17 149
## 8   8   T1  16 148
## 9   9   T1  18 143
## 10  1   T2  22 216
##attach(data) # lenh nay thuong la bao la ta muon lay file nay

attach(data)

5 dinh nghia bien so

#doi voi cac bien dinh tinh thi minh can bao cho no hieu do la dih tinh; con neu la dinh luong thi thoi

data$Post=as.factor(data$Post) #bien Post la bien dinh tinh

6 tach bo so lieu voi cac bien so minhq uan tam (VD bo slieu minh co Id, Post, AHI, ODI). bay gio minh chi muon lay AHI va ODI)

dataMOI=subset(data, select=c(AHI, ODI))  #chi lay 2 bien AHI va ODI

attach(dataMOI)
## The following objects are masked from data:
## 
##     AHI, ODI
head(dataMOI)
##   AHI ODI
## 1  15 146
## 2  15 149
## 3  16 147
## 4  16 146
## 5  16 149
## 6  16 148
#con neu minh them dieu kien
dataMOI1=subset(data, select=c(AHI, ODI), Post="T1")  #chi lay 2 bien AHI va ODI va Post no phai la T1

attach(dataMOI1)
## The following objects are masked from dataMOI:
## 
##     AHI, ODI
## 
## The following objects are masked from data:
## 
##     AHI, ODI
head(dataMOI1)
##   AHI ODI
## 1  15 146
## 2  15 149
## 3  16 147
## 4  16 146
## 5  16 149
## 6  16 148

8 hoac vai cai cua minh co: http://rpubs.com/binhthang1001/260273

LS0tDQp0aXRsZTogJ0dldCBzdGF0ZWQgd2l0aCBSJw0KYXV0aG9yOiAiQlQsIFRyYW4iDQpkYXRlOiAiMTMgU2VwdCAyMDE3Ig0Kb3V0cHV0Og0KICBodG1sX2RvY3VtZW50Og0KICAgIGNvZGVfZG93bmxvYWQ6IHllcw0KICAgIGNvZGVfZm9sZGluZzogaGlkZQ0KICAgIG51bWJlcl9zZWN0aW9uczogeWVzDQogICAgdGhlbWU6IGpvdXJuYWwNCiAgICB0b2M6IHllcw0KICAgIHRvY19mbG9hdDogeWVzDQogIHdvcmRfZG9jdW1lbnQ6DQogICAgdG9jOiB5ZXMNCiAgICANCiAgICANCi0tLQ0KDQpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0NCmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVFJVRSkNCmBgYA0KDQojIExPaSBub2kgZGF1DQoNCk1pbmggc2UgaHVvbmcgZGFuIGNhYyBidW9jIGNvIGJhbg0KDQoxLiBUYW8gbW9pIHRydW9uZyAoY3JlYXRlIHdvcmtpbmcgZW52aXJvbm1lbnQpIGFuZCBEb2MgZHUgbGlldSB2YW8gUiAocmVhZCBkYXRhKQ0KMi4gU29tZSBiYXNpYyBza2lsbHMNCg0KIzEuIFRhbyBtb2kgdHJ1b25nIChjaG8gbGFuIGRhdSB2YSBubyBzZSBkdXkgdHJpIG1haSB2b2kgMSBkdSBhbikNCmBgYHtyfQ0KI0J1b2MgMQ0KI011YyBkaWNoIGxhIG5vIHNlIGx1dSBjYWMgbGVuaCB2YSBtb3Qgc28gcGFja2FnZSkNCiNGaWxlPj4+Pk5ldyBQcm9qZWN0Pj4+TmV3IGRpcmVjdG9yeSA+PkVtdHkgcHJvamVjdD4+InRlbiBwcm9qZWN0Ij4+VmEgbmd1b24gY2h1YSB0aHUgdmllbiBjdWEgbWluaC4NCiNMdXUgeTogdGF0IGNhIGtldCBxdWEgaGF5IGZpbGUgc28gbGlldSBzYXUgbmF5IHNlIGx1dSBvIGZvbGRlciBuZ3VvbiBuYXkNCmBgYA0KDQojRG9jIGR1IGxpZXUgdmFvIFINCg0KYGBge3J9DQojQnVvYyAyDQojVGhvbmcgdGh1b25nIG1pbmggc2UgZG9jIGZpbGUgZXhjZWwgKHhsc3ggaG9hYyBDU1YpIGhvYWMgY2FjIGZpbGUgdHUgU3RhdGEgKGR1b2kgbGE6IC5kdGEpIGhvYWMgc3BzcyAoLnNhdikgaG9hYyBmaWxlIHRleHQgKC50eHQpLi4uDQoNCiNOZXUgbWluaCBkYSBsYW0gYnVvYyAxIHRoaSB2aWVjIGRvYyBmaWxlIHNlIGRlIGRhbmcgaG9uDQoNCiNhLiBDaGF5IHBhY2thZ2VzIGR1IG1pbmggZG9jIGJhdCBjdSBmaWxlIG5hbyAodGh1b25nIHRoaSBEYXQgbmVuIGx1dSBmaWxlIGRhbmcgLmNzdiBob2FjIC5kdGEpDQoNCiNpbnN0YWxsLnBhY2thZ2VzKCJmb3JlaWduIikgICNjaGkgaW5zdGFsbCBuZXUgbm8gY2h1YSBjbyB0cm9uZyB0aHUgdmllbiBwYWNrYWdlcy4gDQoNCiN0cm9uZyBtb3QgdmFpIHRydW9uZyBob3AgbmV1IGNodWEgY28gcGFja2FnZXMgdGhpIG5lbiB0YWkgbm8gYmFuZyBjYWNoIGJhbSAiSW5zdGFsbCIgbyBnb2MgcGhhaSBkdW9pIG1hbiBoaW5oIChjbGljayAiaW5zdGFsbCJ0aGUgcmlnaHQgZG93biBvZiB5b3VyIHNjcmVlbikuIFNhdSBkbyBnbyB0ZW4gcGFja2FnZXMgdmFvIHZhIGJhbSBpbnN0YWxsLiBUaWVwIHRoZW8gbGEgdGF0IG5oaWVuIHBoYWkgc3V3IGR1bmcgY2F1IGxlbmggbGlicmFyeSgidGVuIHBhY2thZ2VzIikgbmh1IG8gZHVvaQ0KDQpsaWJyYXJ5KGZvcmVpZ24pICNjaGF5IHBhY2thZ2UgbW9pIGluc3RhbGwgeG9uZy4gWG9uZyBidW9jIG5heSB0aGkgbWluaCBjbyB0aGUgZG9jIGJhdCBjdSBmaWxlIGRhdGEgZGFuZyBuYW8NCg0KDQojYi4gTmhhYyBjaG8gUiBiaWV0IGxhIG1pbmggZGFuZyBsYW0gdmllYyB0YWkgbmd1b24gbmFvICh0dWMgbGEgZm9sZGVyIG5hbykNCg0KZ2V0d2QoKSAgI25vIHNlIGJhbyBtaW5oIGRhbmcgc2QgZm9sZGVyIG5hbw0KDQojQy4gZG9jIGZpbGUgZHUgbGlldSB2YW8gdmEgYmF0IGRhdSBsYW0gdmllYzogQnVvYyBxdWFuIHRyb25nIG5oYXQNCg0KZGF0YT1yZWFkLmNzdigiQzovVXNlcnMvQklOSCBUSEFORy9Ecm9wYm94L1IgLSBMZWFybmluZy9wYWlyZGF0YS5jc3YiKSAgI2RhdGEgbGEgdGVuIG1vaSBtaW5oIGRhdCBjaG8gZmlsZSBzbyBsaWV1IGRhbmcgbGFtLiBObyBsYSB0ZW4gbW9pIGJheSBnaW8NCg0KI25nb2FpIHJhIG5ldSBkb2MgbG9haSBmaWxlIG5hbyBraGFjIHRoaSB4ZW0gbyBkYXkgaHR0cDovL3d3dy5zdGF0bWV0aG9kcy5uZXQvaW5wdXQvaW1wb3J0aW5nZGF0YS5odG1sIA0KDQoNCg0KYGBgDQoNCg0KI1hlbSBjYWMgdGhvbmcgdGluIHNvIGxpZXUNCg0KYGBge3J9DQojZC4gTXVvbiB4ZW0gY2FjIHRob25nIHRpbiBmaWxlIHNvIGxpZXUgDQoNClZpZXcoZGF0YSkgI2N1YSBzbyB4dWF0IGhpZW4gdmEgeGVtIGZpbGUgc28gbGlldQ0KDQpuYW1lcyhkYXRhKSAjeGVtIGNhYyBiaWVuIHNvIGNvDQoNCiMjIGNsYXNzIG9mIGFuIG9iamVjdCAobnVtZXJpYywgbWF0cml4LCBkYXRhIGZyYW1lLCBldGMpOiBjYWMga2lldSBzbyBsaWV1IGNvDQpjbGFzcyhkYXRhKQ0KDQojIyBwcmludCBmaXJzdCAxMCByb3dzIG9mIG15ZGF0YSAoeGVtIHNvIGxpZXUgdm9pIDEwIHF1YW4gc2F0IGRhdSB0aWVuKQ0KaGVhZChkYXRhLCBuPTEwKQ0KDQojI2F0dGFjaChkYXRhKSAjIGxlbmggbmF5IHRodW9uZyBsYSBiYW8gbGEgdGEgbXVvbiBsYXkgZmlsZSBuYXkNCg0KYXR0YWNoKGRhdGEpDQoNCmBgYA0KDQoNCiNkaW5oIG5naGlhIGJpZW4gc28NCg0KYGBge3J9DQojZG9pIHZvaSBjYWMgYmllbiBkaW5oIHRpbmggdGhpIG1pbmggY2FuIGJhbyBjaG8gbm8gaGlldSBkbyBsYSBkaWggdGluaDsgY29uIG5ldSBsYSBkaW5oIGx1b25nIHRoaSB0aG9pDQoNCmRhdGEkUG9zdD1hcy5mYWN0b3IoZGF0YSRQb3N0KSAjYmllbiBQb3N0IGxhIGJpZW4gZGluaCB0aW5oDQoNCmBgYA0KDQoNCiN0YWNoIGJvIHNvIGxpZXUgdm9pIGNhYyBiaWVuIHNvIG1pbmhxIHVhbiB0YW0gKFZEIGJvIHNsaWV1IG1pbmggY28gSWQsIFBvc3QsIEFISSwgT0RJKS4gYmF5IGdpbyBtaW5oIGNoaSBtdW9uIGxheSBBSEkgdmEgT0RJKQ0KDQpgYGB7cn0NCmRhdGFNT0k9c3Vic2V0KGRhdGEsIHNlbGVjdD1jKEFISSwgT0RJKSkgICNjaGkgbGF5IDIgYmllbiBBSEkgdmEgT0RJDQoNCmF0dGFjaChkYXRhTU9JKQ0KDQpoZWFkKGRhdGFNT0kpDQoNCg0KDQojY29uIG5ldSBtaW5oIHRoZW0gZGlldSBraWVuDQpkYXRhTU9JMT1zdWJzZXQoZGF0YSwgc2VsZWN0PWMoQUhJLCBPREkpLCBQb3N0PSJUMSIpICAjY2hpIGxheSAyIGJpZW4gQUhJIHZhIE9ESSB2YSBQb3N0IG5vIHBoYWkgbGEgVDENCg0KYXR0YWNoKGRhdGFNT0kxKQ0KDQpoZWFkKGRhdGFNT0kxKQ0KDQpgYGANCg0KDQojY2FjIGxlbmggdmUgbW8gdGEgdGFuIHNvLCAlIGhheSBjYWMgY2hpIHNvIGtoYWMgdGhpIERhdCBjbyB0aGVtIHRoYW0ga2hhbyB0aGVtIG8gbGluayBuYXk6IGh0dHA6Ly93d3cuc3RhdG1ldGhvZHMubmV0L3N0YXRzL2luZGV4Lmh0bWwNCg0KI2hvYWMgdmFpIGNhaSBjdWEgbWluaCBjbzogaHR0cDovL3JwdWJzLmNvbS9iaW5odGhhbmcxMDAxLzI2MDI3MyANCg0KDQojYmFpIGtoYWMgY3VhIG1pbmggZGUgbyBsaW5rIG5heSBodHRwOi8vcnB1YnMuY29tL2Jpbmh0aGFuZzEwMDENCg==