Dear all,I confused about O-ring in inhomogeneous version. I don't know how to do that when we consider inhomogeneity. I have written the code for O-ring,  is it right? Please give me some suggestions!data(lansing)

X  <- 
unmark(split(lansing)$maple)

#
inhomogeneous O-ring

#Estimate
the inhomogeneous pair-correlation function: pcfinhom()

g.inhom=pcfinhom(X)

 

#O-ring
statistic

lambda=summary(X)$intensity

K.inhom=Kinhom(X)

O.inhom
= eval.fv(lambda*g.inhom)

plot(O.inhom,
ylab="Oring(r)")
Best wishes!                                                                                                                      

Yao 		 	   		  
	[[alternative HTML version deleted]]

