# NOT RUN {
data("bat")
x <- bat$x
y <- bat$y
fit <- TRR.fit(x, y, method="standard")
plot(fit)
## Set xticks and yticks
plot(fit, xticks = seq(0, 10, length.out=5), yticks = seq(0, 10, length.out=5))
## Change the significant level to 0.1
plot(fit, level = 0.1)
# }
Run the code above in your browser using DataLab