Question

我正在尝试将txt文件加载到R.这些文件是用于情感词的EEG录音。每个文本文件都是为研究参与者记录的单词。对于每个参与者，有360个单词，这些单词被记录下来。每个文本文件包括EEG记录的完整时间范围（从0到2000ms）和列中1到58的电极。

我有一个用于R的脚本解决了统计数据破解，目前我无法再次询问。该脚本用于工作和读取数据以及生成和输出。

现在，RStudio确实将脚本运行到某一点，但是每个数据点显示NA的每个表都会保留RStudio环境。（之前能够阅读的内容。）

很多以后R会输出错误，但我猜这主要取决于数据没有被正确读取。我似乎对剧本中的错误视而不见，在第一次工作之后我没有改变任何东西。

首次在另一台计算机上安装R并运行脚本会产生相同的输出：环境显示所有数据的NA。我已经研究了如何将txt文件读入R的几个技巧，但它们并没有涵盖复杂的数据。所采用的代码，将数据总结为每个电极和时间点的均值如下：

stats<-function(x,tf1=NA,tf2=NA){ 

natf1<-sum(is.na(tf1))>0
natf2<-sum(is.na(tf2))>0

if(natf1&natf2){tf1<-1:dim(x)[2]}

if(!natf1){
mx<-as.numeric(lapply(as.data.frame(t(x[,tf1])),max))
mn<-as.numeric(lapply(as.data.frame(t(x[,tf1])),mean))
min<-as.numeric(lapply(as.data.frame(t(x[,tf1])),min))
}

if(!natf2){
mx2<-as.numeric(lapply(as.data.frame(t(x[,tf2])),max))
mn2<-as.numeric(lapply(as.data.frame(t(x[,tf2])),mean))
min2<-as.numeric(lapply(as.data.frame(t(x[,tf2])),min))
}

if(natf2){
return(cbind(electrode=1:58,max1=mx,mean1=mn,min1=min
           ,max2=NA,mean2=NA,min2=NA))
}else{
return(cbind(electrode=1:58
             ,max1=mx,mean1=mn,min1=min
             ,max2=mx2,mean2=mn2,min2=min2))
}}

我希望有人可以帮助我并提高我有限的知识。干杯，艾米丽

P.S。：读取txt.files的代码应如下：

filenames<-dir() # dateinamen auslesen
nfiles<-length(filenames) #anzahl files

store<-matrix(rep(NA,nfiles*9*58),nfiles*58,9) 


ti<-2010/503
t250<-floor(250/ti)
t350<-ceiling(350/ti)
t350p1<-t350+1
t450<-ceiling(450/ti)

for(i in 1:nfiles){ 

data<-read.table(filenames[i], sep=" ",dec=".")
vp<-as.numeric(substr(filenames[i],3,4))    
word<-as.numeric(substr(filenames[i],15,17))   
print(i) 

store[(1+(i-1)*58):(58+(i-1)*58),1]<-rep(vp,58)  
store[(1+(i-1)*58):(58+(i-1)*58),2]<-word
store[(1+(i-1)*58):(58+(i-1)*58),3:9]<-stats(data,t250:t350,t350p1:t450)
}

数据如下（作为EEG记录的输出，按时间（x）和电极（y）列出： -24.0726 -25.4886 -19.3321 -12.9210 -5.1501 3.1598 7.3684 4.7018 -2.2902 -7.5973 -8.6344 -7.8640 -7.4511 -6.1870 -2.6582 0.8325 1.3330 -0.3912 -1.8508 -3.5361 -5.7567 -6.1500 -5.9328 -6.0740 -5.1535 -3.7834 -0.3229 3.5887 2.1871 -3.7773 -7.5377 -7.9027 -10.2698 -11.9537 -8.7184 -6.0458 -9.0905 -14.2111 -17.0484 -18.7480 -17.6947 -12.7817 -9.0529 -7.9332 -8.9464 -11.4776 -13.9951 -11.9900 -3.6849 -1.1153 -5.2907 -4.8818 -2.8731 - 5.9760 -7.7751 -5.4999 -7.4731 -9.3200 ......

收到错误消息：扫描错误（文件，内容，nmax，sep，dec，quote，skip，nlines，na.strings，：第5行没有2个元素

但我不知道如何解决此问题或在哪个/哪个文件中检查所述错误

将13.000个txt文件读入RStudio

0 个答案: