# NOT RUN {
# The following two samples (y1 and y2)
# come from LTS distributions with
# heterogeneous variances
y1 <- c(0.55, 1.39, 2.01, 0.41, 0.32, -0.31, -1.06, -0.84,
1.02, 0.02, -0.96, 0.18, 0.49, 0.03, 0.77, 0.02,
0.56, 0.46, -0.65, -0.27)
y2 <- c(7.25, 7.98, -0.24, 8.93, -0.16, 32.28, 3.81,
2.32, 14.73, 6.27, 8.07, 7.24, 7.18, 3.75, 11.48,
6.46, 1.01, 5.35, -0.34, 4.34)
# RF test
RF(y1, y2,5000)
# }
Run the code above in your browser using DataLab