## H0: beta1 = 0.33 and beta2 = 0
x <- par.f.test(barley ~ phos + nit, data = log(data.fertilizer),
nh = rbind(c(0,1,0), c(0,0,1)),
q = c(0.33,0.33),
details = TRUE)
x # Show the test results
plot(x) # Visualize the test result
plot(x, plot.what = "ellipse", q = c(0.33, 0.33))
Run the code above in your browser using DataLab