Displaying 1 result from an estimated 1 matches for "newfx".
Did you mean:
newfs
2008 Jan 11
1
Adding weights to ecdf
...ased framework consider running the following
function with different values for n
lengthBiasExample <- function(n=100)
{
distFun <- function(x) pgamma(x,shape=1,rate=1)
##lenght biased version of a gamma(shape=1,rate=1)
x <- rgamma(n,shape=2,rate=1)
par(ask=T)
Fx <- ecdf(x)
newFx <- newEcdf(x,1/x)
plot(Fx,pch="+")
curve(distFun,from=0,to=10,add=T,col="red")
plot(newFx,pch="+")
curve(distFun,from=0,to=10,add=T,col="red")
print(summary(newFx))
par(ask=F)
}
Thank you very much in advance, Jorge.
Jorge Luis Ojeda Cabrera
Prof...