>k <- mean(list)
>for (i in 1:length(list)) #此处修改
+ {
+ if(list[i]>k)
+ print(list[i]) #此处修改
+ }
其实不需要这么复杂,一行能搞得:list[which(list >mean(list))]
>k <- mean(list)
>for (i in 1:length(list)) #此处修改
+ {
+ if(list[i]>k)
+ print(list[i]) #此处修改
+ }
其实不需要这么复杂,一行能搞得:list[which(list >mean(list))]