nv <- 4
A <- diag(nv:1)
B <- diag(1:nv)
mu <- rep.int(1, nv)
res1 <- qfrm(A, B, p = 3, mu = mu)
print(res1)
print(res1, digits = 5)
print(res1, digits = 10)
## Default plot: ylim too narrow to see the error bound at this m
plot(res1)
## With extended ylim
plot(res1, ylim_f = c(0.8, 1.2), pos_leg = "topleft")
## In this case, it is easy to increase m
(res2 <- qfrm(A, B, p = 3, mu = mu, m = 200))
plot(res2)
Run the code above in your browser using DataLab