R语言for循环

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

求助！！数据表共30行36列，从数据中的每一行随机抽取8个数，重复100次，求每次随机抽取8个数的平均值，再求100个平均值的平均值。现在只写出这些for(i in 1:100){  s<- sample(ddt[1, ],8, replace=T)
  print(s)
    }
请问有人会吗？

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：for循环 For R语言 平均值 数据表

小章鱼wl 发表于 2018-4-7 09:32
求助！！数据表共30行36列，从数据中的每一行随机抽取8个数，重复100次，求每次随机抽取8个数的平均值，再求 ...

不太懂你意思，每一行抽八个，求个均值，三十行就有三十个均值，重复一百次就有3000个均值了

中国梦丶 发表于 2018-4-7 11:39
不太懂你意思，每一行抽八个，求个均值，三十行就有三十个均值，重复一百次就有3000个均值了

你好，是这样的，每行随机抽取八个数，得到一个平均值，以这个平均值为半径求出对应的圆面积，这一行重复100次，得到100个圆面积，再求100个圆面积的平均值，每行都是这样，最后想得到的是30个平均圆面积的值。请问您有思路吗

1. ##构建一个矩阵 30*36
   
2. set.seed(201811)
   
3. origin <- matrix(sample(1:400,36*30,replace=T),nrow=30,ncol=36)
   
4. ##编写1个每行取8个数，取100次的函数，返回这100次的平均值
   
5. sample8_100th <- function(x){
   
6.     mat <- matrix(NA,nrow=8,ncol=100)
   
7.     for(i in 1:100){
   
8.         mat[,i] <- sample(x,8)
   
9.     }
   
10.     return(mean(mat))
    
11. }
    
12. ##用apply对矩阵行进行计算，对每一行执行上述函数的操作，然后求个平均值，就可以得到30个值的平均值，也就是半径
    
13. ## 圆的面积只与半径有关，所以只需要知道半径就好
    
14. mean(apply(origin,1,sample8_100th))

复制代码

jiangbeilu 发表于 2018-4-7 19:06

您好，我现在要对一个名为ddt的数据表进行处理，运行您编写的程序返回错误，请问哪里出错了呢
##构建一个矩阵 30*36
set.seed(201811)
origin <- matrix(sample(ddt[ , ],36*30,replace=T))
##编写1个每行取8个数，取100次的函数，返回这100次的平均值
sample8_100th <- function(x){
  mat <- matrix(NA,nrow=8,ncol=100)
  for(i in 1:100){
    mat[,i] <- sample(x,8)
  }
  return(mean(mat))
}
##用apply对矩阵行进行计算，对每一行执行上述函数的操作，然后求个平均值，就可以得到30个值的平均值，也就是半径
## 圆的面积只与半径有关，所以只需要知道半径就好
mean(apply(origin,1,sample8_100th))

jiangbeilu 发表于 2018-4-7 19:06

您好，非常感谢，但是我最后想知道的是每行100个圆面积的平均值，也就是30个值，请问如何得到呢

小章鱼wl 发表于 2018-4-7 20:38
您好，非常感谢，但是我最后想知道的是每行100个圆面积的平均值，也就是30个值，请问如何得到呢

1. apply(origin,1,sample8_100th)

复制代码

把mean去掉，就是30个半径，你再处理一下就成圆的面积了