Nothing
qtw <- function( p, beta=1, lower.tail = TRUE, log.p = FALSE ) {
q <- uniroot( function( x ) { ptw( x, beta, lower.tail, log.p ) - p },
interval=c(-10.000000000000001, 6.000000000000001 ),
tol=1e-8 )$root
q
}
qtw <- Vectorize( qtw )
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.