Bioequivalence and Bioavailability Forum

bGUI.r:

line 486:

svalue(dataset.file)<- basename(svalue(dataset.file))
if(svalue(lambda_z,index=TRUE)==7) svalue(psdf.file)<- basename(svalue(psdf.file))
save.setting.now()
if(verbose_mode) log_it(paste("Please note that you can find all output files in ",getwd(),".\n",sep=""))
xxdf<- svalue(dataset.file);psdp<- svalue(psdp.file)
print.logo();run.bear(xxdf,psdp)

-----

I don't know why get basename of dataset.file first ,then use it to set xxdf.
I think xxdf should use dataset.file's fullpath.

so i recommend:
xxdf<- svalue(dataset.file)
svalue(dataset.file)<- basename(svalue(dataset.file))
if(svalue(lambda_z,index=TRUE)==7) svalue(psdf.file)<- basename(svalue(psdf.file))
save.setting.now()
if(verbose_mode) log_it(paste("Please note that you can find all output files in ",getwd(),".\n",sep=""))
psdp<- svalue(psdp.file)
print.logo();run.bear(xxdf,psdp)

if not fix this code, the data file should be put in work directory. otherwise bear fail to find it.

---

Edit: Text BBCoded; see also this post #10. Merged with a later (now deleted post). You can edit your original post for 24 hours. [Helmut]