Displaying 1 result from an estimated 1 matches for "alphavalue".
2003 Nov 24
1
Warning calling par
...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(data3)>length(diffdata)){
message[i]<-paste("Family ",nr[i],"contains NA!")
}...