## ------------------------------------------------------------------------ 1 + 1 ## ------------------------------------------------------------------------ 2 * 3 ## ------------------------------------------------------------------------ 10 / 3 ## ----error = TRUE-------------------------------------------------------- 1 + a ## ------------------------------------------------------------------------ 1 + (2 * 4 ) ## ------------------------------------------------------------------------ x <- 1 x y <- 2 x + y x * y x / y y^2 log(x) exp(x) ## ------------------------------------------------------------------------ xvec <- c(1, 2, 3, 4, 5) xvec xvec2 <- seq(from = 1, to = 5, by = 1) xvec2 yvec <- rep(1, 5) yvec zvec <- xvec + yvec zvec ## ------------------------------------------------------------------------ mat1 <- matrix(data = c(1, 2, 3, 4, 5, 6), nrow = 3, byrow = TRUE) mat1 mat2 <- matrix(data = seq(from = 6, to = 3.5, by = -0.5), nrow = 2, byrow = T) mat2 mat1 %*% mat2 ## ------------------------------------------------------------------------ Assignments <- c(100, 91, 77, 85, 42) Exercises <- c(80, 69, 68, 81, 92) Midterm1 <- c(70, 82, 89, 95, 84) Name <- c("Student 1", "Student 2", "Student 3", "Student 4", "Student 5") Roster <- data.frame(Name, Assignments, Exercises, Midterm1) Roster ## ------------------------------------------------------------------------ Class <- c("RPOS 517") myList <- list(Class, Roster) myList ## ----eval = FALSE, error = FALSE, warning = FALSE------------------------ ## install.packages("foreign") ## ------------------------------------------------------------------------ library(foreign) ## ------------------------------------------------------------------------ ?mean help(package = "foreign") ## ------------------------------------------------------------------------ 1 + a # 1 + a # Comments are useful to remember what I was doing ## ------------------------------------------------------------------------ library(foreign) ## ------------------------------------------------------------------------ mydata_csv <- read.csv("http://www.jkarreth.net/files/data.csv", header = TRUE) mydata_csv ## ----echo = TRUE, message = FALSE, warning = FALSE----------------------- library(gdata) mydata_excel <- read.xls("http://www.jkarreth.net/files/data.xls") mydata_excel ## ------------------------------------------------------------------------ # mydata.spss <- read.spss("http://www.jkarreth.net/files/data.sav", # use.value.labels = TRUE) ## ------------------------------------------------------------------------ mydata_stata <- read.dta("http://www.jkarreth.net/files/data.dta", convert.dates = TRUE, convert.factors = TRUE) mydata_stata