Nothing
min.weib <-
function(p, Fn, n, x, delta){
theta <- p[1]
k <- p[2]
LL <- Fn*log(k) + k*Fn*log(theta) - sum((x*theta)^k) + (k-1)*sum(delta*log(x))
return(-LL)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.