# 创建Get_mode函数用于获取向量的众数
Get_mode=function(x){
x_freq_table=as.data.frame(table(x))
max_freq=max(as.vector(x_freq_table[,2]))
if (max_freq==1) {
return(FALSE)
}else{
x_mode=as.numeric(x_freq_table[x_freq_table[,2]==max_freq,1])
return(x_mode)
}
}
#测试
a=c(seq(1,20),seq(10,30),rep(c(1,10),each=3))
a2=c(seq(1,20),seq(11,30),rep(c(1,10),each=3))
a3=seq(1,40)
Get_mode(a)
Get_mode(a2)
Get_mode(a3)
From B