# NOT RUN {
# dummy inputs, independent variable
# integers fron 0 to 79
inputs <- 0:79
# dummy targets/observed values, dependent variable
# a product of 2*times inputs minus 5 with some normal noise
targets <- -5 + inputs*1.2 + rnorm(80)
# 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 function (GoF)
library(ehaGoF)
# Goodness of Fit : Corrected Akaike's Information Criterion
gofCAIC(targets, predicted, dgt=4, nTermInAppr=n)
# }
Run the code above in your browser using DataLab