## Example parallels the R builtin cancor and the
## yacca cca example
data(LifeCycleSavings)
pop <- LifeCycleSavings[, 2:3]
oec <- LifeCycleSavings[, -(2:3)]
## Perform Commonality Coefficient Analysis
canonCommonData<-canonCommonality(pop,oec,1)
## Use HS dataset in MBESS
if (require("MBESS")){
data(HS)
attach(HS)
## Create canonical variable sets
MATH_REASON<-HS[,c("t20_deduction","t22_problem_reasoning")]
MATH_FUND<-HS[,c("t21_numerical_puzzles","t24_woody_mccall","t10_addition")]
## Perform Commonality Coefficient Analysis
canonCommonData<-canonCommonality(MATH_FUND,MATH_REASON,1)
detach(HS)
}
Run the code above in your browser using DataLab