R语言错误，请问如何改正

原始代码：
grid_id<-read.table("C:\Users\Admin\Desktop\VIC\WZ_VICmodel\soil\arcgis_Output_soil.txt",header =T,sep=",")[,3]
texture_id<-read.table("C:\Users\Admin\Desktop\VIC\WZ_VICmodel\soil\arcgis_Output_soil.txt",header =T,sep=",")[,34]
a<-factor(texture_id)
fdata<-data.frame(grid_id,texture_id)
fdata<-fdata[order(fdata$grid_id),]
texture_type=rep(0,13)
grid_code_T = c()
r=1
t=0
vn=0
l1 = nrow(fdata)
for(i in 1:l1){
grid=fdata$grid_id[i]
texture=fdata$texture_id[i]
vn=vn+1
if(texture>=1&&texture<=13)
texture_type[texture]=texture_type[texture]+1
if(i==l1||grid!=fdata$grid_id[i+1]){
max = texture_type[1]
for(i in 1:13){
if(texture_type[i]>max){
max=texture_type[i]
t=i
}
}
grid_code_T[r] = t
r=r+1
vn=0
texture_type=rep(0,13)
}
}
grid_code_T
write.table(grid_code_T,"C:\Users\Admin\Desktop\VIC\WZ_VICmodel\soil\output_finally_soil.txt",col.names=F,row.names=F,quote=F)
出现的问题
Error in if (texture >= 1 && texture <= 13) texture_type[texture] = texture_type[texture] + :
missing value where TRUE/FALSE needed
请问一下怎么改变