popmodelfunction = model.Pareto.bernstrat theta=4;xi=1;conditionalto=list(N=10000,sampleparam=list(tauh=c(0.01,0.1))) model<-popmodelfunction(theta,xi,conditionalto);y0=1.5 .Obs<-generate.observations(model); .ker=ker; .h=ks::hpi(x=.Obs$y) varfHT0(y0,Obs)
1 | varfHT0(y0, .Obs, .ker = ker, .h = ks::hpi(x = .Obs$y))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.