Displaying 1 result from an estimated 1 matches for "diffdata".
Did you mean:
diff2data
2003 Nov 24
1
Warning calling par
...",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!")
}
tq<-((1:length(diffdata))/(length(diffdata)+1))
plot(diffdata,tq,xlab="C1[F(x),G(y)]",ylab="U(0,1)",type="l")
mtex...