# NOT RUN {
# dummy inputs, independent variable
# integers from 0 to 99
inputs <- 0:99
# dummy targets/observed values, dependent variable
# a product of 2*times inputs minus 5 with some normal noise
targets <- -5 + inputs*1.2 + rnorm(100)
# linear regression model
model<-lm(targets~inputs)
# About the model
summary(model)
# Number of Terms
n = length(model$coefficients)
# model's predicted values against targets
predicted<-model$fitted.values
# using library ehaGoF for goodness of fit.
library(ehaGoF)
# Goodness of fit : Akaike's information criterion (AIC)
gofAIC(targets, predicted, dgt=4, nTermInAppr=n)
# }
Run the code above in your browser using DataLab