新手继续求教r程序问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问有了n 为什么还要再添加一个res 赋值为numeric(n)
这2个不是一样的吗lengh(）貌似也是实数型把
先跪谢了

abc <- function(s, data){
n <- length(s)
res <- numeric(n)
for(i in 1:n){
  if(s[i]=="kk"){     
   res[i] <- 1
  }else if(s[i]=="kkk" & data[i]=="kkkk"){
   res[i] <- 2
  }else if(syakudo[i]=="kkk" & data.type[i]=="kkkkkk"){
   res[i] <- 3
  }else{      
   res[i] <- 1
  }
}
res
}

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R程序 numeric Eric leng NUM

附带个小问题 为什么有些程序里要   cat 然后加一群不知所云的文字

没看懂有什么用啊 cat 是不是就是类似print阿

data.list <- function(d){
                cat(paste(t(d), c(rep("\t", ncol(d)-1), "\n")), sep="")
        }

这个没头没脑的是什么啊 d 没看到阿  t(d)又什么啊

qiustata 发表于 2012-5-18 19:38
附带个小问题 为什么有些程序里要   cat 然后加一群不知所云的文字

没看懂有什么用啊 cat 是不是就是类似 ...

cat是输出一些信息，帮助你理解程序的运行情况。比如你有一个很慢的循环，你可以在里面加上cat(i)，这样你就可以知道运行到第几个循环了。即使程序出错你也可以知道是第几个循环出的问题，才好更进一步的查找问题的所在。

你的输出是一个长度为n的矢量，你要先定义一个长度为n的向量才可以在for循环中将结果赋值给其中的每一个分量。如果你把res <- numeric(n)去掉的话，你后面res[i] <- 1就会出错，因为res这个变量根本不存在。

qoiqpwqr 发表于 2012-5-18 19:42
cat是输出一些信息，帮助你理解程序的运行情况。比如你有一个很慢的循环，你可以在里面加上cat(i)，这样你 ...

ok 这个懂了 print也有类似功能是吧

qoiqpwqr 发表于 2012-5-18 19:45
你的输出是一个长度为n的矢量，你要先定义一个长度为n的向量才可以在for循环中将结果赋值给其中的每一个分量 ...

这个让我再想想

qoiqpwqr 发表于 2012-5-18 19:45
你的输出是一个长度为n的矢量，你要先定义一个长度为n的向量才可以在for循环中将结果赋值给其中的每一个分量 ...

如果我不定义res 我不用它 我就用n来代替res 会如何呢

或者我定义一个res<-n 会如何呢

qiustata 发表于 2012-5-18 19:48
ok 这个懂了 print也有类似功能是吧

差不多的。

qiustata 发表于 2012-5-18 19:51
如果我不定义res 我不用它 我就用n来代替res 会如何呢

或者我定义一个res

n是一个数，而不是一个向量。你这里需要res是一个向量。