# construct the data frames to merge
mydata <- Read("Employee", format="lessR")
Emp1a <- mydata[1:4, c("Years", "Gender", "Dept", "Salary")]
Emp1b <- mydata[1:4, c("Satisfaction", "HealthPlan")]
Emp2a <- mydata[1:4, ]
Emp2b <- mydata[7:10, ]
rm(mydata)
# horizontal merge
mydata <- Merge(Emp1a, Emp1b, by="row.names")
# vertical merge
mydata <- Merge(Emp2a, Emp2b)
Run the code above in your browser using DataLab