##generate 1000 random numbers from the skewed t:
set.seed(123)
eps <- rst(1000, df=5) #symmetric t
eps <- rst(1000, df=5, skew=0.8) #skewed to the left
eps <- rst(1000, df=5, skew=2) #skewed to the right
Run the code above in your browser using DataLab