Section 28 R Codes: Read & Write Data

28.1 Create data

# Set your own working directory
# setwd('C:/path/to/my/directory')

set.seed(12345)

ID <- paste0('S',1:100)
Wt <- round(rnorm(n=100, mean=10, sd=2), digits=2)
Age <- round(runif(n=100, min=1, max=2), digits=2)
Sex <- c(rep('M',length=50), rep('F',length=50))
Vac <- sample(c(TRUE,FALSE), size=100, replace=TRUE, prob=c(0.60,0.40))
DF <- data.frame(ID=ID, Wt=Wt, Age=Age, Sex=Sex, Vac=Vac)

DF$Age[10] <- NA
DF$Wt[20] <- NA


str(DF)

'data.frame':   100 obs. of  5 variables:
 $ ID : chr  "S1" "S2" "S3" "S4" ...
 $ Wt : num  11.17 11.42 9.78 9.09 11.21 ...
 $ Age: num  1.59 1.89 1.12 1.51 1.66 1.77 1.09 1.07 1.56 NA ...
 $ Sex: chr  "M" "M" "M" "M" ...
 $ Vac: logi  TRUE TRUE FALSE FALSE TRUE FALSE ...

attributes(DF)

$names
[1] "ID"  "Wt"  "Age" "Sex" "Vac"

$row.names
  [1]   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17
 [18]  18  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33  34
 [35]  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51
 [52]  52  53  54  55  56  57  58  59  60  61  62  63  64  65  66  67  68
 [69]  69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85
 [86]  86  87  88  89  90  91  92  93  94  95  96  97  98  99 100

$class
[1] "data.frame"

28.2 Write & Save data

save(DF, file='DF.RData')

write.csv(DF, file='DF.csv', row.names=FALSE)

savehistory(file = 'my_hist.txt')

save.image(file='my_workspace.RData')

rm(list=ls())

sInfo <- sessionInfo()

28.3 Read data

read.csv('DF.csv')

rm(list=ls())

load(file = 'DF.RData')

rm(list=ls())

load(file='my_workspace.RData')