全部版块 我的主页
› 论坛 › 数据科学与人工智能 › 数据分析与数据科学 › R语言论坛
这个小程序可以怎么改？
frederic7
2777 10
2010-01-04
悬赏 2 个论坛币 未解决
g1=rnorm(30)
g2=rnorm(30,1)
g3=rnorm(30,2)
g4=rnorm(30,3)
g5=rnorm(30,4)

s1=c(mean(g1),var(g1),var(g1)/mean(g1),(var(g1))^0.5/mean(g1),length(g1))
s2=c(mean(g2),var(g2),var(g2)/mean(g2),(var(g2))^0.5/mean(g2),length(g2))
s3=c(mean(g3),var(g3),var(g3)/mean(g3),(var(g3))^0.5/mean(g3),length(g3))
s4=c(mean(g4),var(g4),var(g4)/mean(g4),(var(g4))^0.5/mean(g4),length(g4))
s5=c(mean(g5),var(g5),var(g5)/mean(g5),(var(g5))^0.5/mean(g5),length(g5))

怎么用循环的方式生成s1,s2,s3,s4,s5?
二维码

扫码加我 拉你入群

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

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

全部回复
vrooadk
2010-1-4 23:47:36
s<-list()
for(i in 1:5){
g <- rnorm(30,( i-1))
s[[i]] <- c(mean(g),var(g),var(g)/mean(g),(var(g))^0.5/mean(g),length(g))
}
s <- do.call("rbind",s)
s
二维码

扫码加我 拉你入群

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

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

ericaenjoy3
2010-1-8 23:52:31
list.create<-list()
result<-list()

for (i in 1:5) {
        list.create[]<-rnorm(30,(i-1))
}

bin.division<-function(x) {
        return(mean(x)/var(x))
}

bin.operation<-function(x) {
        return(mean(x)^0.5/var(x))
}

five<-function(x){
        return(list(mean(x),var(x),bin.division(x),bin.operation(x),length(x)))
}
result<-sapply(list.create, five)

result
二维码

扫码加我 拉你入群

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

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

ericaenjoy3
2010-1-8 23:53:53
set.seed(100)
list.create<-list()
result<-list()

for (i in 1:5) {
    list.create[[i]]<-rnorm(30,(i-1))
}

bin.division<-function(x) {
    return(mean(x)/var(x))
}

bin.operation<-function(x) {
    return(mean(x)^0.5/var(x))
}

five<-function(x){
    return(list(mean(x),var(x),bin.division(x),bin.operation(x),length(x)))
}
result<-sapply(list.create, five)

result
二维码

扫码加我 拉你入群

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

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

ssawee
2010-1-9 18:49:00
R中不建议用for
为什么不组成个矩阵，再算
二维码

扫码加我 拉你入群

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

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

shenyu2070
2010-1-10 20:00:43
学习学习！
二维码

扫码加我 拉你入群

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

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

点击查看更多内容…
相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

微信QQ空间QQ微博
扫码加好友，拉您进群
各岗位、行业、专业交流群