求助：如何实现数据与函数调用的循环？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我最近在弄一个方法的实现，程序已经写出来 perfunc，但是要用大量数据模拟的方法看看是不是有好的效果。
我已经有一组数据，命名为s1，s2..，s10，数据的长度n0=100，取值范围1 2 3 4。但有不同的规律。
我想对每个数据集调用perfunc，并从函数调用后产生新的结果数据result1，result2....result10。
不知道该怎么做这个循环，求各位大虾指导？

遇到的主要问题是：写数据的时候，write(x,file="e:/data1")，在循环里如何改变data1中的1呢？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：函数调用 如何实现 Result RESUL write 数据 如何

友情帮顶

> data1 <- 1:3
> data2 <- 4:6
> for (i in 1:2) {
+ newdata <- get(paste("data", i, sep = ""))
+ print(newdata)
+ }
[1] 1 2 3
[1] 4 5 6

qoiqpwqr 发表于 2012-4-10 22:41
> data1  data2  for (i in 1:2) {
+ newdata

非常感谢！这个程序能读取R中已有的数据data1-datan，可是我的数据存在盘里，每个命名为data1.txt---datan.txt，能否实现这样的数据循环读取？

mengqinqing 发表于 2012-4-11 09:24
非常感谢！这个程序能读取R中已有的数据data1-datan，可是我的数据存在盘里，每个命名为data1.txt---data ...

一个道理

filename <- paste("data", i, ".txt", sep = "")
然后就read.table(filename, header = TRUE)

qoiqpwqr 发表于 2012-4-11 10:52
一个道理

filename

主要是那个“.txt”不知道怎么弄，现在可以了。
不好意思，我还有一个问题想请教您，我用read.table可以读入数据，可是u=factor出不来结果，因为数据里面有缺失值。用scan老是出错，“错误于scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings,  :
  scan()需要'a real', 而不是'.'”，这个原因可能还是有缺失值。请问这个该怎么处理？
readfilename <- paste("state", i,".txt", sep = "")
group1 = read.table(readfilename,header=FALSE)
group1 = scan(file=readfilename)
u = factor(group1)

trier2006 发表于 2012-4-10 18:23
友情帮顶

mengqinqing 发表于 2012-4-11 11:37
主要是那个“.txt”不知道怎么弄，现在可以了。
不好意思，我还有一个问题想请教您，我用read.table可以 ...

group1 = read.table(readfilename,header=FALSE)之后group1是一个data frame，你只能对其中的一列做factor，不能对整个group1做factor

qoiqpwqr 发表于 2012-4-11 12:27
group1 = read.table(readfilename,header=FALSE)之后group1是一个data frame，你只能对其中的一列做fact ...

那有缺失值会影响factor吗？

缺失值不算入factor，试一下就知道了。