* Encoding: UTF-8.
* Test Equality of Coefficients ===.

BEGIN PROGRAM R. 

# Load packages

install.packages("car", repos="http://cran.rstudio.com")
library(car)

# Transfer data to R data frame 

DATA<-spssdata.GetDataFromSPSS()

# Estimate regression model

M00<-lm(attitude ~ duration + importance, data=DATA)

# Restriction

linearHypothesis(M00, "duration = importance")

END PROGRAM.