Displaying 2 results from an estimated 2 matches for "tree_control".
Did you mean:
ctree_control
2009 Sep 26
1
mboost_1.1-3 blackboost_fit (PR#13972)
...) :
trying to get slot "responses" from an object (class "boost_data") that is not
an S4 object
Simple test case that produce bug:
dt=expand.grid(y=c(2,3,4), x1=c(1,2), x2=c(1,2))
library(mboost)
bd=boost_dpp(y ~ .,data=dt, weights = NULL)
blackboost_fit(bd,
tree_controls = ctree_control(
teststat = "max",
testtype = "Teststatistic",
mincriterion = 0,
maxdepth...
2010 Feb 03
0
mboost: how to implement cost-sensitive boosting family
...<- function (y, w)
{
p <- weighted.mean(y > 0, w)
1/(10+1) * log(10*p/1*(1 - p))
}
CSAdaExp <- Family(ngradient = ngradient, loss = loss, offset = offset);
model.blackboost <- blackboost(tr[,1:DIM], tr.y, family=CSAdaExp,
weights=tr.w, control=boost_control(mstop=100, nu=0.1),
tree_controls=ctree_control(teststat = "max",testtype =
"Teststatistic",mincriterion = 0,maxdepth = 10));
or
#loss <- function (y, f)
#{
# exp(-y * f * ifelse(y==1,COST_FN,COST_FP))
#}
#ngradient <- function (y, f, w = 1)
#{
# y * ifelse(y==1,COST_FN,COST_FP) * exp(-y * f * ife...