NULL
x <- seq(0.1,1,by=0.1)
dUGa(x,theta=0.5) #f(x)
dUGa(x,theta=0.5,log=TRUE) #log(f(x))
pUGa(x,theta=1.5) #P(Xx)
# library(lamW) is required for qUGa() function
x <- seq(0.1,1,by=0.1)
x
p <- pUGa(x,theta=2.5)
p
require(lamW)
q <- qUGa(p,theta=2.5)
q # q equal to x
# library(lamW) is required for rUGa() function
require(lamW)
x <- rUGa(100,theta=1)
x # 0Run the code above in your browser using DataLab