求助，文件数据读取，急！！！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

写一个R函数，要求如下

1. Data file (objective : to simplify the data import/export )

write a function to read data files with the following inputs

a. the number of data files (i.e. 3)

b. data file name & location (i.e. "c:\datadir\datafilename1"

"...datafilename2" " .... "3)

c. it shall be able to store date and time data types

d. it shall replace with a "0" if there is no data

e. it shall be able to export selected column / row to a csv file

下面是我写的程序，还不能很好的完成上面的功能，请高手指点

task1=function(n,f){
#输入f的格式f=c("C:\\Users\\Aimee\\Desktop\\R_job\\tt_mb_20071003\\tt1.txt","C:\\Users\\Aimee\\Desktop\\R_job\\tt_mb_20071003\\tt1.txt")
  if(length(f)!=n) stop("Pls check the value of n or input the f again")
   else{
      task11=function(b){
            t1=read.fwf(b,widths=c(5,9,8,11,1,2,2,2,4,2,2,2))
            t1[is.na(t1)]=0
            time=ISOdatetime(t1[,9],t1[,10],t1[,11],t1[,6],t1[,7],t1[,8])
            data.frame(t1[,1],t1[,2],t1[,3],t1[,4],t1[,5],time,t1[,12])
            }
#上面的task11执行的还可以，可是下面是不是不能这样存贮？ 应该怎么处理最好呢？

#e的功能也还没完成，应该用sink函数吧？

for(i in 1:n){
         x=task11(f[1])
          ff=as.list(rep(x,n))
          ff[]=task11(f)
     
           }
        }
        }

恳请高手指点方向，谢谢！！！

下面是读取的数据的格式，tt1和tt2都是类似这样的数据

00001  2155010 126.500       1000A15475220071003 0
00001  2155010 126.500       1000A15475220071003 0
00001  2155010 126.500       2000A15472220071003 0
00001  2155010 126.500       2000A15475220071003 0
00001  2155010 126.600       1000A15481320071003 0
00001  2155010 126.600       4000A15475220071003 0
00001  2155010 126.600       5000A15593420071003 0

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：数据读取 following Objective function filename 数据 文件

刚才自己完成了，自己坐沙发哦

刚才自己完成了，自己坐沙发哦