{ "id": 9476, "title": "can anyone help me with glmnet R code?", "url": "/competitions/acquire-valued-shoppers-challenge/discussion/9476", "author_name": "Sungsik James Ji", "post_date": "2014-06-16T06:05:03.557000", "votes": 0, "comment_count": 0, "views": 1454, "content": "

I kept getting error msg when i type following code.

\n

Can anyone tell me what's wrong??

\n\n\n

model <- glmnet(xTrain, target, family = "binomial", alpha = 0, lambda = 2^17)

\n

xTrain has three column - chain, offer, market with 160,057 rows
target is a "T or F" column that represents repeat binomial.

\n\n

"Warning message:

\n

In Ops.factor(left, right) : * not meaningful for factors
Error in drop(y %*% rep(1, nc)) :
함수 'drop'를 위한 메소드 선택시 인수 'x'를 평가하는데 오류가 발생했습니다: Error in y %*% rep(1, nc) :
requires numeric/complex matrix/vector arguments"

\n

(sorry that its in Korean)

\n\n


I was trying to use following thread coding for R script
"http://www.kaggle.com/c/acquire-valued-shoppers-challenge/forums/t/7917/performance-of-logistic-regression-on-features-described-by-triskelion/43307"

\n\n\n

------------actual code

\n

library(glmnet)

\n

csvTrainfile <- "data/train.csv"
csvTestfile <- "data/test.csv"
testHistoryfile <- "data/testHistory.gz"

\n

testHistory <- read.csv(testHistoryfile)
numTest <- nrow(testHistory)

\n

training <- read.csv(csvTrainfile)
target <- training$repeter
training[is.na(training)] <- 0
xTrain <- as.matrix(training[, (2:4)])

\n

test <- read.csv(csvTestfile)
test[is.na(test)] <- 0
xTest <- as.matrix(test[, (2:4)])

\n

model <- glmnet(xTrain, target, family = "binomial", alpha = 0, lambda = 2^17)

", "messages": [ { "id": 49181, "postDate": "2014-06-16T06:05:03.557Z", "content": "

I kept getting error msg when i type following code.

\n

Can anyone tell me what's wrong??

\n\n\n

model <- glmnet(xTrain, target, family = "binomial", alpha = 0, lambda = 2^17)

\n

xTrain has three column - chain, offer, market with 160,057 rows
target is a "T or F" column that represents repeat binomial.

\n\n

"Warning message:

\n

In Ops.factor(left, right) : * not meaningful for factors
Error in drop(y %*% rep(1, nc)) :
함수 'drop'를 위한 메소드 선택시 인수 'x'를 평가하는데 오류가 발생했습니다: Error in y %*% rep(1, nc) :
requires numeric/complex matrix/vector arguments"

\n

(sorry that its in Korean)

\n\n


I was trying to use following thread coding for R script
"http://www.kaggle.com/c/acquire-valued-shoppers-challenge/forums/t/7917/performance-of-logistic-regression-on-features-described-by-triskelion/43307"

\n\n\n

------------actual code

\n

library(glmnet)

\n

csvTrainfile <- "data/train.csv"
csvTestfile <- "data/test.csv"
testHistoryfile <- "data/testHistory.gz"

\n

testHistory <- read.csv(testHistoryfile)
numTest <- nrow(testHistory)

\n

training <- read.csv(csvTrainfile)
target <- training$repeter
training[is.na(training)] <- 0
xTrain <- as.matrix(training[, (2:4)])

\n

test <- read.csv(csvTestfile)
test[is.na(test)] <- 0
xTest <- as.matrix(test[, (2:4)])

\n

model <- glmnet(xTrain, target, family = "binomial", alpha = 0, lambda = 2^17)

" } ], "comments": [], "raw_markdown_by_id": { "49181": "" } }