sunchenstar
testdata<-Tree[["DAT"]]
Tree[["Rt"]]<-getRt(testdata)
print(Tree[["Rt"]])
print(Tree[["LT"]])
if((Tree[["LT"]]==NULL)&&(Tree[["RT"]]==NULL))#这里总是提示错误于if ((Tree[["LT"]] == NULL) && (Tree[["RT"]] == NULL)) Tree[["SumRt"]] <- Tree[["Rt"]] else { :
需要TRUE/FALSE值的地方不可以用缺少值
改一下语句的写法就会提示:错误于if (Tree[["LT"]] == NULL)
变元长度为零
Tree[["SumRt"]]<-Tree[["Rt"]]
else
{
if(Tree[["LT"]])
{
Tree[["LT"]]<-calculateTreeRt(Tree[["LT"]])
Tree[["SumRt"]]<-Tree[["SumRt"]]+Tree[["LT"]][["SumRt"]]
}
if(Tree[["RT"]])
{
Tree[["RT"]]<-calculateTreeRt(Tree[["RT"]])
Tree[["SumRt"]]<-Tree[["SumRt"]]+Tree[["RT"]][["SumRt"]]
}
}