u1 <- c(0.2,0.3,0.5)
scale1 <- c(0.25,0.33,0.32)
shape1 <- 1
shape2 <- c(0.8,3,0.9)
dSGB(u1,shape1,scale1,shape2)
rSGB(10,shape1,scale1,shape2)
## with equal scales
dSGB(u1,shape1,shape2=shape2)
rSGB(10,shape1,shape2=shape2)
Run the code above in your browser using DataLab