# trace of R session
--$ R
> source('coraBFP.R')
> x = read.csv('quartiersNatAll.csv')
> Call = as.matrix(x[,3:23])
> rownames(Call)= x[,1]
> coraPersp(Call)
> source ('ca.R')
> ca(Call)
