# NOT RUN {
set.seed (27)
dataset <- data.frame (X=1:10, Y=(1:10)^2+runif(10,-10,10))
models <- list (
"model A" = list (
formula = "Y ~ X^a",
start = list (list(a=100), list(a=1))),
"model B" = list (
formula = "Y ~ a*(X+b)",
start = list (list(a=1,b=1)))
)
summary (multiFit(models,dataset))
summary (fitTable(models,as.matrix(dataset),1,vec2df.rank), "sigma")
# }
Run the code above in your browser using DataLab