# NOT RUN {
library(PAmeasures)
data(moore)
head(moore)
# Transistor count
count <- moore$count
time<-moore$time
# Fit a log-linear model
moore.glm= glm(log2(count) ~ time, family=gaussian(link = "identity") )
# Obtain predicted transistor count
count.predict<-2^(predict(moore.glm,newdata = data.frame(X = time),type = "response" ))
# R.squared and L.squared of log-linear model
pam.nlm(count, count.predict)
# }
Run the code above in your browser using DataLab