# NOT RUN {
# generate some data
set.seed(222)
x0 <- rnorm(30, 50, 5)
set.seed(333)
rr <- runif(30, 0.9, 1.2)
rr[10] <- 2
x1 <- x0 * rr
# run HBmethod with argument return.dataframe = TRUE
out <- HBmethod(yt1 = x0, yt2 = x1,
return.dataframe = TRUE)
# draw the scatterplot
plot4ratios(out)
# }
Run the code above in your browser using DataLab