[R-sig-Geo] testing for CSR based on F and G functions

[Adrian Baddeley]

Zhijie Zhang writes:

 >      FminG <- function(X, ...) {
 >         FX <- Fest(X, ...)
 >         GX <- Gest(X, r=FX$r)
 >         return(eval.fv(FX - GX))
 >      }
 > You use the default value of r. HELP says  First-time  users are strongly
 > advised not to specify this argument. If i want to specify it , how to
 > complete it in the above *FminG *functions?

Just pass the argument 'r=rvalues' to the function. 

The "..." argument can be anything, including an argument 'r=rvalues', 
so we can type
	   rvalues <- seq(0, 0.3, length=100)
	   FminG(cells, r=rvalues)

You can do the same thing with envelope(), e.g.

    envelope(cells, FminG, r=rvalues, global=TRUE)

----
regards
Adrian Baddeley