目前,此信息无法从树中轻松恢复 . 以下函数使用树的完整条件而不是节点标签返回拟合值的向量 .
dtlabels
if (!inherits(tree, "disstree")) {
stop("tree should be a disstree object")
}
split_s
formd
return(format(x, digits =getOption("digits")-2))
}
str_split
vname
if (!is.null(sp$breaks)) {
str_split[1]
str_split[2] ", formd(sp$breaks))
}
else {
str_split[1]
str_split[2]
}
if(!is.null(sp$naGroup)){
str_split[sp$naGroup]
}
return(paste(vname, str_split))
}
labelEnv
labelEnv$label
addLabel
id1
id2
labelEnv$label[[id2]]
}
nodeRec
if(!is.null(node$split)){
spl
addLabel(node, node$kids[[1]], spl[1])
addLabel(node, node$kids[[2]], spl[2])
nodeRec(node$kids[[1]])
nodeRec(node$kids[[2]])
}
}
nodeRec(tree$root)
l2
for(nn in names(labelEnv$label)){
l2[[nn]]
}
l3
names(l3)
return(factor(factor(tree$fitted[, 1], levels=as.numeric(names(l3)), labels=l3)))
}
然后可以按以下方式使用该功能 .
fitted
print(table(fitted))
希望这可以帮助!