data(attitudes)
data(attitudeStartingValues)
if (FALSE) {
fit <- cusp(y ~ Attitude,
alpha ~ Orient + Involv,
beta ~ Involv,
data = attitudes, start=attitudeStartingValues)
}
## maybe str(attitudeStartingValues) ; plot(attitudeStartingValues) ...
Run the code above in your browser using DataLab