Displaying 1 result from an estimated 1 matches for "gh9_h".
2010 Sep 07
1
change the for loops with lapply
...alid.cc <- n.cc[out.fold.c,]
train.nn <- n.nn[-out.fold.n,]
valid.nn <- n.nn[out.fold.n,]
train<-rbind(train.cc, train.nn) #training data
valid<-rbind(valid.cc, valid.nn) # validation data
#creat data set contains the following variables
myvar<-names(gh9_h) %in% c(varr, "out")
train<-train[myvar] # update training set
valid<-valid[myvar]
nnet.fit<-nnet(as.factor(out) ~ ., data=train, size=size, rang=rang,
decay=5e-4, maxit=500) # model fitting
#get the validation error
mc<-table(valid$out, predict(...