# Sample data (Both marginal distributions have trend):
dataMarginalTrend <- generate_data("marginalTrend", n = 50)
# Perform SR test on sample data:
srUnivariate(dataMarginalTrend[, 1])
srUnivariate(dataMarginalTrend[, 2])
Run the code above in your browser using DataLab