Hi Friends,
I am getting this error when I am running my R scripts. Can u please
tell me how this error will happened. My script is given below.
Errot: "Error in do.call("expand.grid", dimnames(x)) :"
Script:
************************************************************************************************************************
#!/usr/bin/R
s<-c("GG","GA","GV","GL","GI","GM","GF","GW","GP","GS","GT","GC","GY","GN","GQ","GD","GE","GK","GR","GH","AG","s[l]","AV","AL","AI","AM","AF","AW","AP","AS","AT","AC","AY","AN","AQ","AD","AE","AK","AR","AH","VG","VA","VV","VL","VI","VM","VF","VW","VP","VS","VT","VC","VY","VN","VQ","VD","VE","VK","VR","VH","LG","LA","LV","LL","LI","LM","LF","LW","LP","LS","LT","LC","LY","LN","LQ","LD","LE","LK","LR","LH","IG","IA","IV","IL","II","IM","IF","IW","IP","IS","IT","IC","IY","IN","IQ","ID","IE","IK","IR","IH","MG","MA","MV","ML","MI","MM","MF","MW","MP","MS","MT","MC","MY","MN","MQ","MD","ME","MK","MR","MH","FG","FA","FV","FL","FI","FM","FF","FW","FP","FS","FT","FC","FY","FN","FQ","FD","FE","FK","FR","FH","WG","WA","WV","WL","WI","WM","WF","WW","WP","WS","WT","WC","WY","WN","WQ","WD","WE","WK","WR","WH","PG","PA","PV","PL","PI","PM","PF","PW","PP","PS","PT","PC","PY","PN","PQ","PD","PE","PK","PR","PH","SG","SA","SV","SL","SI","SM","SF","SW","SP","SS","ST","SC","SY","SN","SQ","SD","S!
E","SK","SR","SH","TG","TA","TV","TL","TI","TM","TF","TW","TP","TS","TT","TC","TY","TN","TQ","TD","TE","TK","TR","TH","CG","CA","CV","CL","CI","CM","CF","CW","CP","CS","CT","CC","CY","CN","CQ","CD","CE","CK","CR","CH","YG","YA","YV","YL","YI","YM","YF","YW","YP","YS","YT","YC","YY","YN","YQ","YD","YE","YK","YR","YH","NG","NA","NV","NL","NI","NM","NF","NW","NP","NS","NT","NC","NY","NN","NQ","ND","NE","NK","NR","NH","QG","QA","QV","QL","QI","QM","QF","QW","QP","QS","QT","QC","QY","QN","QQ","QD","QE","QK","QR","QH","DG","DA","DV","DL","DI","DM","DF","DW","DP","DS","DT","DC","DY","DN","DQ","DD","DE","DK","DR","DH","EG","EA","EV","EL","EI","EM","EF","EW","EP","ES","ET","EC","EY","EN","EQ","ED","EE","EK","ER","EH","KG","KA","KV","KL","KI","KM","KF","KW","KP","KS","KT","KC","KY","KN","KQ","KD","KE","KK","KR","KH","RG","RA","RV","RL","RI","RM","RF","RW","RP","RS","RT","RC","RY","RN","RQ","RD","RE","RK","RR","RH","HG","HA","HV","HL","HI","HM","HF","HW","HP","HS","HT","HC","HY","HN",!
"HQ","HD","HE","HK","HR","HH")
for(l in 1:length(s))
{
for(j in 1:50)
{
if(file.info(paste("/media/_1/BootStrap/All_alpha_proteins/",s[l],"/alp",s[l],"mean",j,".bootstrap",sep=""))$size>1)
{
a<-read.table(paste("/media/_1/BootStrap/All_alpha_proteins/",s[l],"/alp",s[l],"mean",j,".bootstrap",sep=""))
A<-a[,1]
Amax<-max(A)
Amin<-min(A)
Salpha<-summary(A)
df<-data.frame(P=Salpha)
color<-"aquamarine1"
flg<-"All Alpha"
}
if(file.info(paste("/media/_1/BootStrap/All_beta_proteins/",s[l],"/bet",s[l],"mean",j,".bootstrap",sep=""))$size>1)
{
b<-read.table(paste("/media/_1/BootStrap/All_beta_proteins/",s[l],"/bet",s[l],"mean",j,".bootstrap",sep=""))
B<-b[,1]
Bmax<-max(B)
Bmin<-min(B)
Sbeta<-summary(B)
df<-data.frame(df,Q=Sbeta)
color<-c(color,"brown1")
flg<-c(flg,"All Beta")
}
if(file.info(paste("/media/_1/BootStrap/Alpha_and_beta_proteins_aorb/",s[l],"/aob",s[l],"mean",j,".bootstrap",sep=""))$size>1)
{
c<-read.table(paste("/media/_1/BootStrap/Alpha_and_beta_proteins_aorb/",s[l],"/aob",s[l],"mean",j,".bootstrap",sep=""))
C<-c[,1]
Cmax<-max(C)
Cmin<-min(C)
Saob<-summary(C)
df<-data.frame(df,R=Saob)
color<-c(color,"cadetblue1")
flg<-c(flg,"Alpha or Beta")
}
if(file.info(paste("/media/_1/BootStrap/Alpha_and_beta_proteins_a+b/",s[l],"/apb",s[l],"mean",j,".bootstrap",sep=""))$size>1)
{
d<-read.table(paste("/media/_1/BootStrap/Alpha_and_beta_proteins_a+b/",s[l],"/apb",s[l],"mean",j,".bootstrap",sep=""))
D<-d[,1]
Dmax<-max(D)
Dmin<-min(D)
Sapb<-summary(D)
df<-data.frame(df,S=Sapb)
color<-c(color,"darkorchid1")
flg<-c(flg,"Alpha plus Beta")
}
Tmax<-c(Amax,Bmax,Cmax,Dmax)
Tmin<-c(Amin,Bmin,Cmin,Dmin)
pdf (paste(s[l],"mean",j,"_bootstrap.pdf",sep=""))
boxplot(df,names=flg,ylim=c(min(Tmin),max(Tmax)),col=color,style = "tukey")
title(paste("Residue Pair Distance Statistics","\n",s[l],"
Paired
Distance of ",j,sep=""),ylab="Distance in Angstrom",xlab="Protein
Classes")
dev.off()
}
}
*********************************************************************************************
--
******************************************
Deepak.M.R
Research Scholar
Biocomputing Group,
Department of Computer Science,
University of Bologna (Italy).
http://deepak.web.cs.unibo.it/.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
