search for: econr

...o variables with 558 observations. Econ3 is a 1-3 rating and partyid is a range from -3(Strong Democrat) to 3 (Strong Republican). Here is the code I used: setwd("C:/Users/Terry/Desktop/Terry/School/Fall 2012/ML/HW") #Load Libraries library(MASS) library(tile) library(simcf) #Load Data econrate <- read.csv("hw4econ3.csv", header=TRUE, sep=",") attach(econrate) #Ordered Probit Liklihood llk.oprobit3 <- function(param, x, y) { os <- rep(1, nrow(x)) x <- cbind(os, x) b <- param[1:ncol(x)] t2 <- param[(ncol(x)+1)] xb <- x%*%b p1 <- l...