d <- read.table(“clipboard”, header=TRUE)

library(readx1) fc <-“c:”\Documents and Settings\xpto\My Documents\calc.xls” dat <- read_excel(fc,sheet=1)

library(readr) std <- read_delim(“stud.txt”, delim=” “, skip=1, col_names=c(”StudentName”, “Math”,“English”))