powered by
exponential weighting function
expf(X, u)
matrix of X's from the data
a particular value to multiply times the X's
numeric vector
# NOT RUN { data(mpdta) dta <- subset(mpdta, year==2007) X <- model.matrix(~lpop, data=dta) X <- expf(X, X[1,]) # }
Run the code above in your browser using DataLab