regtest: Test of models and parameters

In easyreg: Easy Regression

Description

This function performs test of models and parameters

Usage

regtest(data, model = 1, start = c(a = 1, b = 1, c = 1, d = 1,e = 1))

Arguments

data	data is a data.frame The first column contain explanatory variable, second column contain treatments and the third column contain the response variable
model	define the model 1 = "y~a+b*x" linear 2 = "y~a+b*x+c*x^2" quadratic 3 = "y ~ a + b * (x - c) * (x <= c)" linear plateau 4 = "y ~ (a + b * x + c * I(x^2)) * (x <= -0.5 * b/c) + (a + I(-b^2/(4 * c))) * (x > -0.5 * b/c)" quadratic plateau 5 = "ifelse(x>=d,(a-c*d)+(b+c)*x, a+b*x)" two linear 6 = "y~a*exp(b*x)" exponential 7 = "y~a*(1+b*(exp(-c*x)))^-1" logistic 8 = "y~a*(1-b*(exp(-c*x)))^3" van bertalanffy 9 = "y~a*(1-b*(exp(-c*x)))" brody 10 = "y~a*exp(-b*exp(-c*x)" gompertz 11 = "y~(a*x^b)*exp(-c*x)" lactation curve 12 = "y ~ a + b * (1 - exp(-c * x))" ruminal degradation curve 13 = "y~(a/(1+exp(2-4*c*(x-e))))+(b/(1+exp(2-4*d*(x-e))))" logistic bi-compartmental 14 = "y~a*(x^b)" exponential (allometric model) 15 = "y~a+b*x+c*x^2+d*x^3" cubic 16 = "y~a/(1+b*(exp(-c*x)))^d" richards 17 = "y~(a^d+ ((b^d)-(a^d) )*((1-exp(-c*(x-t1)))/ (1-exp(-c*(t2-t1)))))^(1/d)" schnute
start	start values of iterations

Value

Returns coefficients of the models, test for coefficients, AIC and BIC.

Author(s)

Emmanuel Arnhold <[e-mail]>

See Also

lm, ea1(easyanova package), pr2, regplot

Examples

x=c(1,1,1,2,2,2,3,3,3,4,4,4)
y=c(5,5.3,6,8,8.9,12,14,18,25,25,29,32)
t=c("t1","t2","t3","t1","t2","t3","t1","t2","t3","t1","t2","t3")
data=data.frame(x,t,y)
# linear
regtest(data, model=1)
# quadratic
regtest(data, model=2)
# exponential
regtest(data, model=6)
# ... etc

easyreg documentation built on Sept. 13, 2019, 5:04 p.m.