1.将可能会报错的命令行放到try()函数中,并将其赋值到一个变量名fit(可以是任意变量名)中
2.如果有错误,将fit将称为一个类型为“try-error”的变量
3.可以用R 'try-error' %in% class(fit)
放置在if()函数中进行判断
4.try() 函数一般与next 和 break 进行联用,next跳过本次循环,break跳出循环
library(ConsensusClusterPlus)
i <- 10
while(i > 3){
maxk <- min(i, ncol(distan_matrix)-1)
i <- i-1
title <- "./"
fit <- try(ConsensusClusterPlus(distan_matrix, maxK = maxk, reps = 10, pItem = 0.8, title=title,pFeature = 1, clusterAlg="kmdist", seed=1234, plot="png"))
if("try-error" %in% class(fit))
{
next
}else
{
Consensus_result = fit
break
}
}