已经得到解决，谢谢！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如题。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：for循环 循环语句 计算几何 如何用 For

psych::geometric.mean()

https://stackoverflow.com/questions/2602583/geometric-mean-is-there-a-built-in

1. set.seed(2018)
   
2. library(psych)
   
3. sample(1:100,100,replace = T) %>% geometric.mean
   
4. sample(1:100,100,replace = T) %>% harmonic.mean
   
5. sample(1:100,100,replace = T) %>% mean

复制代码

johnmy 发表于 2018-3-19 19:48
psych::geometric.mean()

https://stackoverflow.com/questions/2602583/geometric-mean-is-there-a-bui ...

请问可以不用这个函数，用for循环写吗？

narcissism0923 发表于 2018-3-19 20:05

请问可以不用这个包，用for循环写吗？

给出你的数据啊
为什么用循环呢？

1. exp(mean(log(x))

复制代码

johnmy 发表于 2018-3-20 07:23
给出你的数据啊
为什么用循环呢？

其实是因为老师的要求是要用for循环写这样一个语句。。请问该怎么写呢？

johnmy 发表于 2018-3-20 07:23
给出你的数据啊
为什么用循环呢？

没有具体的数据，只是说需要写这样一个语句

a <- sample(1:100,100,replace = T)
b=1
for (i in a){
  b=b*i
}
b^(1/length(a))