###An Introduction to Using R
##By Dino Christenson & Scott Powell
#Ohio State University



###Getting Started with R###


###Help Command for Linear Model Function
help ("lm")


###Working Directory###
setwd("K:/PRISM/Brownbags")


###Entering objects###
v <- c(10,15,20)
v
m <- matrix(c(10,15,20,25,30,35,40,45),ncol=4)
m
character <- c("protestant", "catholic", "jewish")
character


###Listing objects###
objects ()
ls ()


###Reading Data###
south.data <- read.table("south.txt", header=TRUE)
objects ()
names (south.data)
attach (south.data)


###Browsing for Data Without the Directory###
#world95.data.2<-read.spss(file.choose())


###Loading Data from Other Spreadsheets###
library(foreign)

world95.data<-read.spss("World95.sav")
objects ()
names (world95.data)
attach (world95.data)

senate02.data<-read.dta("Senate2002.dta")
objects ()
names (senate02.data)
attach (senate02.data)


###Matrix Manipulation in R###
mat1<-matrix(c(11,21,12,22,13,23), nrow=2, ncol=3)
mat1

mat2<-matrix(c(11,21,12,22,13,23), nrow=3, ncol=2)
mat2

dim (mat1)
ncol (mat1)
nrow (mat1)

mat3<-matrix (seq(1,10,1), nrow=2, ncol=5)
mat3

mat4<-matrix (seq(0,5,1), nrow=2, ncol=3)
mat4

mat1
mat4
mat1+mat4

mat1-mat4

mat1
mat2
mat1%*%mat2

mat1
mat3
mat1%x%mat3

mat5<-matrix (seq(0,8,1), nrow=3, ncol=3)
mat5

det(mat5)
solve(mat5) #will not solve bc mat5 is singular - r is smarter than us!#

mat6<-matrix (c(11,21,12,22), nrow=2, ncol=2)
mat6
det(mat6)
solve(mat6) 

t(mat1)
diag(1,nrow=5,ncol=5)
eigen(mat6)


###And that is just some of the basic language used in R
##See the next set of slides for info on ols in R