Displaying 1 result from an estimated 1 matches for "diffmethod".
Did you mean:
defmethod
2003 Nov 24
1
Warning calling par
...{
psfile<-paste("Meth1_",nr[1],"-",nr[length(nr)],".ps",sep="")
postscript(psfile)
close.screen(all=T)
par(mex=0.73,cex=0.8)
split.screen(c(2,2))
tq<-sort(runif(length(data1)))
message<-rep("no message",4)
for (i in 1:length(nr)){
diffmethod<-paste("du.",nr[i],sep="")
title<-paste("Family",nr[i])
alphavalue<-paste("a=",round(alpha[i],digits=3),sep="")
screen(i)
data3<-sort(eval(call(diffmethod,data1,data2,alpha[i])))
diffdata<-data3[!is.na(data3)]
if(length(da...