x<-c(2,3,4,5,6)
y<-c(4,4,6,6,10)
x;y

lx<-log(x)
ly<-log(y)
lx;ly

rx<-1/x
rx

lm(y~x)
ols1<-lm(y~x)
summary(ols1)

lm(ly~lx)
ols2<-lm(ly~lx)
summary(ols2)

lm(y~rx)
ols3<-lm(y~rx)
summary(ols3)

lm(ly~x)
ols4<-lm(ly~x)
summary(ols4)

lm(y~lx)
ols5<-lm(y~lx)
summary(ols5)

library(stargazer)
stargazer(ols1,ols2,ols3,ols4,ols5,type="text")