while循环小程序求助

程序描述：原始数据2,4,6,7,2
当均值大于3时，将序列最大值去掉，得到新序列
直到序列均值小于3，选出序列最大的数记为x,下面是编的程序，不知错在哪里，请大家帮帮忙，谢谢了
t<-c(2,4,6,7,2)
m<-mean(t)
while(m>3)
{n<-which(t==max(t))
t<-t[-n]}
x<-max(t)

t<-c(2,4,6,7,2)
m<-mean(t)
while(m>3)
{
n<-which.max(t)
t<-t[-n]
m <- mean(t)
}
x<-max(t)

你这是用什么语言编的程序？

doubleds 发表于 2011-12-16 20:41
你这是用什么语言编的程序？

R语言

我会各种编程语言，比如C，C++，TCL，MATLAB等，就是不会R语言，抱歉帮不了你了。

你的while循环没有语句跳出来，所以会一直死循环下去