1 setwd("/media/mandy/Samsung_T1/201505kurs/session8aov/")
   2 
   3 ########################## combining data frames  ################################## rbind
   4 
   5 x <- data.frame(id=1:3,score=rnorm(3))
   6 y <- data.frame(id=13:15,score=rnorm(3))
   7 rbind(x,y)
   8 
   9 
  10 ## cbind
  11 x <- data.frame(id=1:5,score1=rnorm(5))
  12 y <- data.frame(score2=rnorm(5),score3=rnorm(5))
  13 cbind(x,y)
  14 
  15 
  16 ## merge
  17 (d1 <- data.frame(id=LETTERS[c(1,2,3)],day1=sample(10,3)))
  18 (d2 <- data.frame(id=LETTERS[c(1,3,5,6)],day2=sample(10,4)))
  19 
  20 merge(d1,d2)
  21 
  22 merge(d1,d2,all.x = T)
  23 
  24 merge(d1,d2,all.y = T)
  25 
  26 zz <- merge(d1,d2,all = T)
  27 
  28 
  29 ## Exercises mergen
  30 require(readxl)
  31 ## excel_sheets() given a filename returns all available sheets 
  32 
  33 ## read_excel() takes the filename and the sheet name (or position)
  34 ## and reads in the data 
  35 
  36 
  37 
  38 
  39 
  40 
  41 
  42 
  43 
  44 
  45 
  46 
  47 
  48 
  49 
  50 
  51 
  52 
  53 
  54 
  55 
  56 ## Exercises Anova
  57