library(foreign)
library(soc.ca)
library(FactoInvestigate)
library(FactoMineR)
library(factoextra)
library(dplyr)
library(Factoshiny)
library(sjmisc)
benzecri <- function(res_acm) {
res_acm<-res
modi.rate <- as.data.frame(res_acm$eig)
Q <- ncol(res_acm$call$X)-length(res_acm$call$quali.sup)
seuil <- 1/Q
e <- res_acm$eig[,1][res_acm$eig[,1]>seuil]
pseudo <- (Q/(Q-1)*(e-seuil))^2
mrate <- round(pseudo/sum(pseudo)*100,2)
cum.mrate <- cumsum(mrate)
modi.rate$modi.var <- c(pseudo, rep(NA, (length(modi.rate$eigenvalue)-length(pseudo))))
modi.rate$mrate <-   c(mrate, rep(NA, (length(modi.rate$eigenvalue)-length(mrate))))
modi.rate$cum.mrate  <-   c(cum.mrate, rep(NA, (length(modi.rate$eigenvalue)-length(cum.mrate))))
print(modi.rate)
}

Read data

setwd("/Users/janfredrikhovden/Dropbox/DBXPAGAANDEARBEID/Statistikk/Rworkdir/Bergenstud20") 

datafil<-read.dta("studtotal12_107ecrisisOLD.dta") 
datafil2<-read.dta("studtotal12_107ecrisisOLDutanbi.dta") 

MCA med soc.ca STUDIER PASSAR TIL

#datafil<-datafil[!(analysefil$r21inst=="BI"),] # dropp BI (ikkje med i 98)
#analysefil<-datafil[, c(486:513,3,147)] 
analysefil<-datafil2[, c(486:513,3,147)] #utan BI


colnames(analysefil)
##  [1] "sivilingeniorntnu"               "teaterhogskolen"                
##  [3] "norgeshandelshoyskole"           "kunstmusikkellerdesign"         
##  [5] "bedokBI"                         "sykepleier"                     
##  [7] "journalistikk"                   "modernespraak"                  
##  [9] "sosionom"                        "allmennlaerer"                  
## [11] "ingenior"                        "jusstudiet"                     
## [13] "medisinstudiet"                  "psykologistudiet"               
## [15] "sosialant"                       "litteraturvitenskap"            
## [17] "fysikk"                          "medievitenskap"                 
## [19] "praktiskpedagogiskutdannelseved" "filosofi"                       
## [21] "klassiskespraak"                 "historie"                       
## [23] "kunsthistorie"                   "biologiskefaguniversitet"       
## [25] "sammenlignendepolitikk"          "filmhoyskolen"                  
## [27] "skrivekunstakademiet"            "matematikk"                     
## [29] "aar"                             "r21inst"
nrow(analysefil) # antal før sletting av ikkje-komplette 
## [1] 3631
frq(analysefil$aar)
## 
## x <categorical>
## # total N=3631  valid N=3631  mean=39.96  sd=38.79
## 
## Value |    N | Raw % | Valid % | Cum. %
## ---------------------------------------
##     8 | 1163 | 32.03 |   32.03 |  62.54
##    10 |    0 |  0.00 |    0.00 |  62.54
##    20 | 1360 | 37.46 |   37.46 | 100.00
##    98 | 1108 | 30.52 |   30.52 |  30.52
##  <NA> |    0 |  0.00 |    <NA> |   <NA>
analysefil<-analysefil %>% filter(complete.cases(.))
nrow(analysefil) # antal etterpå
## [1] 2783
frq(analysefil$aar)
## 
## x <categorical>
## # total N=2783  valid N=2783  mean=45.61  sd=42.24
## 
## Value |    N | Raw % | Valid % | Cum. %
## ---------------------------------------
##     8 | 1139 | 40.93 |   40.93 |  80.06
##    10 |    0 |  0.00 |    0.00 |  80.06
##    20 |  555 | 19.94 |   19.94 | 100.00
##    98 | 1089 | 39.13 |   39.13 |  39.13
##  <NA> |    0 |  0.00 |    <NA> |   <NA>
analysefil$aar<-droplevels(analysefil$aar) #obs tomme kategoriar i variablar lagar problem
analysefil$r21inst<-droplevels(analysefil$r21inst) #obs tomme kategoriar i variablar lagar problem

#weights
analysefil$weight<-1
analysefil$weight[analysefil$aar == '08'] <-2

active<-analysefil[c(1:28)]
sup<-analysefil[c(29:30)]

result<-soc.mca(active,sup, weight=analysefil$weight)
result
##                         Specific Multiple Correspondence Analysis:                         
##  
##                     Statistics                                   Scree plot               
##  Active dimensions:                             9  |  1.     68.1%   **********************************
##  Dimensions explaining 80% of inertia:          2  |  2.     18.2%   *********
##  Active modalities:                            56  |  3.      6.2%   ***
##  Supplementary modalities:                      7  |  4.      5.0%   **
##  Individuals:                                2783  |  5.      1.8%   *
##  Share of passive mass:                         0  |  6.      0.3%   
##  Number of passive modalities:                  0  |  7.      0.3%   
## 
##                    The 28 active variables: [No. modalities - share of variance]                    
## 
##               sivilingeniorntnu [2 - 4%]                 teaterhogskolen [2 - 4%] 
##           norgeshandelshoyskole [2 - 4%]          kunstmusikkellerdesign [2 - 4%] 
##                         bedokBI [2 - 4%]                      sykepleier [2 - 4%] 
##                   journalistikk [2 - 4%]                   modernespraak [2 - 4%] 
##                        sosionom [2 - 4%]                   allmennlaerer [2 - 4%] 
##                        ingenior [2 - 4%]                      jusstudiet [2 - 4%] 
##                  medisinstudiet [2 - 4%]                psykologistudiet [2 - 4%] 
##                       sosialant [2 - 4%]             litteraturvitenskap [2 - 4%] 
##                          fysikk [2 - 4%]                  medievitenskap [2 - 4%] 
## praktiskpedagogiskutdannelseved [2 - 4%]                        filosofi [2 - 4%] 
##                                    [...]
contribution(result)
## 
##       Dimension 1. (+)       
##                                  Ctr    Coord
## litteraturvitenskap: yes         6.2     1.23
## kunsthistorie: yes               5.5     1.26
## skrivekunstakademiet: yes        5.2     1.37
## sosialant: yes                   4.6     0.94
## medievitenskap: yes              4.6     0.95
## journalistikk: yes               3.3     0.68
## filosofi: yes                    3.0     0.85
## filmhoyskolen: yes               2.9     0.87
## kunstmusikkellerdesign: yes      2.6     0.82
## teaterhogskolen: yes             2.5     0.85
## sivilingeniorntnu: no            2.4     0.32
## sosionom: yes                    2.2     0.63
## modernespraak: yes               2.1     0.61
## sammenlignendepolitikk: yes      1.9     0.61
## historie: yes                    1.8     0.47
## 
##       Dimension 1. (-)       
##                                  Ctr    Coord
## sivilingeniorntnu: yes           8.5    -1.13
## ingenior: yes                    6.5    -1.14
## matematikk: yes                  5.0    -1.02
## fysikk: yes                      4.6    -1.23
## bedokBI: yes                     2.5    -0.79
## norgeshandelshoyskole: yes       2.2    -0.67
contribution(result, 2)
## 
##        Dimension 2. (+)        
##                                    Ctr    Coord
## ingenior: yes                      9.9     1.15
## matematikk: yes                    9.7     1.15
## fysikk: yes                        8.9     1.40
## sivilingeniorntnu: yes             7.8     0.89
## klassiskespraak: yes               4.6     1.18
## biologiskefaguniversitet: yes      3.5     0.71
## norgeshandelshoyskole: yes         3.2     0.65
## sammenlignendepolitikk: yes        3.2     0.65
## medisinstudiet: yes                3.1     0.59
## filosofi: yes                      3.1     0.70
## modernespraak: yes                 2.9     0.58
## bedokBI: yes                       2.8     0.68
## historie: yes                      2.6     0.46
## litteraturvitenskap: yes           2.4     0.62
## kunsthistorie: yes                 2.1     0.63
## jusstudiet: yes                    1.9     0.48
## 
##        Dimension 2. (-)        
##                                    Ctr    Coord
## sivilingeniorntnu: no              2.2    -0.25
## ingenior: no                       1.9    -0.23
## matematikk: no                     1.9    -0.22
contribution(result, 3)
## 
##            Dimension 3. (+)           
##                                           Ctr    Coord
## sykepleier: yes                          17.0     1.27
## sosionom: yes                            12.1     1.05
## praktiskpedagogiskutdannelseved: yes     11.0     1.14
## allmennlaerer: yes                        8.9     0.73
## biologiskefaguniversitet: yes             4.6     0.71
## medisinstudiet: yes                       4.3     0.61
## psykologistudiet: yes                     3.8     0.47
## 
##            Dimension 3. (-)           
##                                           Ctr    Coord
## sykepleier: no                            3.7    -0.28
## allmennlaerer: no                         3.6    -0.29
## filmhoyskolen: yes                        3.1    -0.64
## sosionom: no                              2.8    -0.24
## kunsthistorie: yes                        2.5    -0.60
## medievitenskap: yes                       2.1    -0.46
## praktiskpedagogiskutdannelseved: no       1.9    -0.19
contribution(result, 4)
## 
##        Dimension 4. (+)        
##                                    Ctr    Coord
## sammenlignendepolitikk: yes       12.8     1.12
## jusstudiet: yes                    8.5     0.87
## bedokBI: yes                       8.0     1.00
## norgeshandelshoyskole: yes         6.8     0.82
## journalistikk: yes                 3.1     0.46
## historie: yes                      2.5     0.38
## sosialant: yes                     2.1     0.44
## 
##        Dimension 4. (-)        
##                                    Ctr    Coord
## kunstmusikkellerdesign: yes        8.9    -1.06
## filmhoyskolen: yes                 5.9    -0.87
## teaterhogskolen: yes               5.3    -0.87
## skrivekunstakademiet: yes          3.2    -0.76
## fysikk: yes                        2.9    -0.68
## biologiskefaguniversitet: yes      2.6    -0.52
## sammenlignendepolitikk: no         2.6    -0.22
## kunsthistorie: yes                 2.2    -0.56
## jusstudiet: no                     1.9    -0.20
contribution(result, 1:4, mode="variable")
## The contribution of the active variables
##  
##  allmennlaerer                         Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  allmennlaerer: yes                      0.2    1.7    8.9    0.4 794.0278
##  allmennlaerer: no                       0.1    0.7    3.6    0.2 1988.972
##  Total                                   0.3    2.4   12.5    0.6   2783
##  
##  bedokBI                               Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  bedokBI: yes                            2.5    2.8    1.2    8.0 359.7606
##  bedokBI: no                             0.4    0.4    0.2    1.2 2423.239
##  Total                                   2.9    3.2    1.4    9.2   2783
##  
##  biologiskefaguniversitet              Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  biologiskefaguniversitet: yes           0.3    3.5    4.6    2.6 422.9138
##  biologiskefaguniversitet: no            0.1    0.6    0.8    0.5 2360.086
##  Total                                   0.4    4.1    5.4    3.1   2783
##  
##  filmhoyskolen                         Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  filmhoyskolen: yes                      2.9    0.9    3.1    5.9 351.9551
##  filmhoyskolen: no                       0.4    0.1    0.4    0.9 2431.045
##  Total                                   3.3    1.0    3.5    6.8   2783
##  
##  filosofi                              Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  filosofi: yes                           3.0    3.1    0.8    0.0 385.3057
##  filosofi: no                            0.5    0.5    0.1    0.0 2397.694
##  Total                                   3.5    3.6    0.9    0.0   2783
##  
##  fysikk                                Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  fysikk: yes                             4.6    8.9    0.6    2.9 278.1581
##  fysikk: no                              0.5    1.0    0.1    0.3 2504.842
##  Total                                   5.1    9.9    0.7    3.2   2783
##  
##  historie                              Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  historie: yes                           1.8    2.6    0.6    2.5 754.2909
##  historie: no                            0.7    1.0    0.2    0.9 2028.709
##  Total                                   2.5    3.6    0.8    3.4   2783
##  
##  ingenior                              Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  ingenior: yes                           6.5    9.9    0.0    0.6 455.5548
##  ingenior: no                            1.3    1.9    0.0    0.1 2327.445
##  Total                                   7.8   11.8    0.0    0.7   2783
##  
##  journalistikk                         Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  journalistikk: yes                      3.3    1.2    1.6    3.1 664.883
##  journalistikk: no                       1.0    0.4    0.5    1.0 2118.117
##  Total                                   4.3    1.6    2.1    4.1   2783
##  
##  jusstudiet                            Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  jusstudiet: yes                         0.0    1.9    0.2    8.5 510.193
##  jusstudiet: no                          0.0    0.4    0.0    1.9 2272.807
##  Total                                   0.0    2.3    0.2   10.4   2783
##  
##  klassiskespraak                       Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  klassiskespraak: yes                    1.8    4.6    0.2    1.7 202.2323
##  klassiskespraak: no                     0.1    0.4    0.0    0.1 2580.768
##  Total                                   1.9    5.0    0.2    1.8   2783
##  
##  kunsthistorie                         Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  kunsthistorie: yes                      5.5    2.1    2.5    2.2 317.895
##  kunsthistorie: no                       0.7    0.3    0.3    0.3 2465.105
##  Total                                   6.2    2.4    2.8    2.5   2783
##  
##  kunstmusikkellerdesign                Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  kunstmusikkellerdesign: yes             2.6    0.3    1.4    8.9 356.2126
##  kunstmusikkellerdesign: no              0.4    0.0    0.2    1.3 2426.787
##  Total                                   3.0    0.3    1.6   10.2   2783
##  
##  litteraturvitenskap                   Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  litteraturvitenskap: yes                6.2    2.4    0.8    0.0 380.3386
##  litteraturvitenskap: no                 1.0    0.4    0.1    0.0 2402.661
##  Total                                   7.2    2.8    0.9    0.0   2783
##  
##  matematikk                            Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  matematikk: yes                         5.0    9.7    0.0    1.4 446.3302
##  matematikk: no                          1.0    1.9    0.0    0.3 2336.67
##  Total                                   6.0   11.6    0.0    1.7   2783
##  
##  medievitenskap                        Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  medievitenskap: yes                     4.6    1.7    2.1    1.4 473.2945
##  medievitenskap: no                      0.9    0.4    0.4    0.3 2309.706
##  Total                                   5.5    2.1    2.5    1.7   2783
##  
##  medisinstudiet                        Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  medisinstudiet: yes                     0.6    3.1    4.3    0.6 539.9957
##  medisinstudiet: no                      0.1    0.7    1.0    0.2 2243.004
##  Total                                   0.7    3.8    5.3    0.8   2783
##  
##  modernespraak                         Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  modernespraak: yes                      2.1    2.9    0.1    0.5 527.9327
##  modernespraak: no                       0.5    0.7    0.0    0.1 2255.067
##  Total                                   2.6    3.6    0.1    0.6   2783
##  
##  norgeshandelshoyskole                 Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  norgeshandelshoyskole: yes              2.2    3.2    0.3    6.8 457.6836
##  norgeshandelshoyskole: no               0.4    0.6    0.1    1.3 2325.316
##  Total                                   2.6    3.8    0.4    8.1   2783
##  
##  praktiskpedagogiskutdannelseved       Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  praktiskpedagogiskutdannelseved: yes    1.5    1.7   11.0    0.2 401.6262
##  praktiskpedagogiskutdannelseved: no     0.3    0.3    1.9    0.0 2381.374
##  Total                                   1.8    2.0   12.9    0.2   2783
##  
##  psykologistudiet                      Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  psykologistudiet: yes                   1.5    0.5    3.8    0.3 799.7045
##  psykologistudiet: no                    0.6    0.2    1.5    0.1 1983.296
##  Total                                   2.1    0.7    5.3    0.4   2783
##  
##  sammenlignendepolitikk                Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  sammenlignendepolitikk: yes             1.9    3.2    1.0   12.8 463.3603
##  sammenlignendepolitikk: no              0.4    0.6    0.2    2.6 2319.64
##  Total                                   2.3    3.8    1.2   15.4   2783
##  
##  sivilingeniorntnu                     Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  sivilingeniorntnu: yes                  8.5    7.8    0.7    0.3 610.2448
##  sivilingeniorntnu: no                   2.4    2.2    0.2    0.1 2172.755
##  Total                                  10.9   10.0    0.9    0.4   2783
##  
##  skrivekunstakademiet                  Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  skrivekunstakademiet: yes               5.2    0.9    1.0    3.2 254.7417
##  skrivekunstakademiet: no                0.5    0.1    0.1    0.3 2528.258
##  Total                                   5.7    1.0    1.1    3.5   2783
##  
##  sosialant                             Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  sosialant: yes                          4.6    1.7    1.4    2.1 484.6479
##  sosialant: no                           1.0    0.4    0.3    0.4 2298.352
##  Total                                   5.6    2.1    1.7    2.5   2783
##  
##  sosionom                              Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  sosionom: yes                           2.2    0.1   12.1    1.1 521.5464
##  sosionom: no                            0.5    0.0    2.8    0.3 2261.454
##  Total                                   2.7    0.1   14.9    1.4   2783
##  
##  sykepleier                            Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  sykepleier: yes                         0.1    0.5   17.0    1.2 500.9684
##  sykepleier: no                          0.0    0.1    3.7    0.3 2282.032
##  Total                                   0.1    0.6   20.7    1.5   2783
##  
##  teaterhogskolen                       Dim.1  Dim.2  Dim.3  Dim.4   Freq
##  teaterhogskolen: yes                    2.5    0.6    0.0    5.3 319.3141
##  teaterhogskolen: no                     0.3    0.1    0.0    0.7 2463.686
##  Total                                   2.8    0.7    0.0    6.0   2783
## Average contribution per modality: 1.8
## Total number of individuals: 2783
balance(result)
##       + Contrib. - Contrib. Balance (+/-)
##  [1,]  0.5981654  0.4018346     1.4885859
##  [2,]  0.8361981  0.1638019     5.1049371
##  [3,]  0.6639834  0.3360166     1.9760432
##  [4,]  0.5256772  0.4743228     1.1082687
##  [5,]  0.5778041  0.4221959     1.3685687
##  [6,]  0.6145434  0.3854566     1.5943258
##  [7,]  0.4907600  0.5092400     0.9637107
##  [8,]  0.5263095  0.4736905     1.1110831
##  [9,]  0.5583401  0.4416599     1.2641856
# Ind explorer (ta vekk # om du vil køyre dette)
#ind.explorer(result, active, sup) 

# trim variabelnamn
#result$names.sup <-  sapply(strsplit(result$names.sup, ": "), tail, 1) # forkortar variabelnamn
#result$names.mod <-  sapply(strsplit(result$names.mod, ": "), tail, 1) # forkortar variabelnamn

map.ind(result, dim=c(1,2))

map.ind(result, dim=c(1,3))

map.ind(result, dim=c(2,3))

map.ctr(result, dim = c(1,2), ctr.dim=c(1), label.size = 2, label.repel = TRUE)

map.ctr(result, dim = c(1,2), ctr.dim=c(2), label.size = 2, label.repel = TRUE )

map.ctr(result, dim = c(2,3), ctr.dim=c(3), label.size = 2, label.repel = TRUE)

map.ctr(result, dim = c(2,4), ctr.dim=c(4), label.size = 2, label.repel = TRUE)

map.mod(result, dim = c(1, 2), label.size = 2, label.repel = TRUE)
## Warning: ggrepel: 26 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

map.mod(result, dim = c(3, 4), label.size = 2, label.repel = TRUE)
## Warning: ggrepel: 37 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

map.select(result, map.title="Aar", list.sup=sup$aar, point.size=3)

map.select(result, map.title="Aar", list.sup=sup$aar, point.size=3, dim=c(3,4))

# Ellipser
map <- map.ind(result)
map.ellipse.array(result, analysefil$aar, dim = c(1,2))
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.

map.ellipse.array(result, analysefil$aar, dim = c(3,4))
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.

# Klassespesifikk MCA
csa.all(result, sup[,1])
## $results
## $results$`98`
##                      Class Specific Multiple Correspondence Analysis:                      
##  
##                     Statistics                                   Scree plot               
##  Active dimensions:                             9  |  1.     68.8%   **********************************
##  Dimensions explaining 80% of inertia:          2  |  2.     15.2%   ********
##  Active modalities:                            56  |  3.      7.8%   ****
##  Supplementary modalities:                      0  |  4.      4.1%   **
##  Individuals:                                1089  |  5.      2.5%   *
##  Share of passive mass:                         0  |  6.      1.0%   
##  Number of passive modalities:                  0  |  7.      0.5%   
## 
##                    The 28 active variables: [No. modalities - share of variance]                    
## 
##               sivilingeniorntnu [2 - 4%]                 teaterhogskolen [2 - 4%] 
##           norgeshandelshoyskole [2 - 4%]          kunstmusikkellerdesign [2 - 4%] 
##                         bedokBI [2 - 4%]                      sykepleier [2 - 4%] 
##                   journalistikk [2 - 4%]                   modernespraak [2 - 4%] 
##                        sosionom [2 - 4%]                   allmennlaerer [2 - 4%] 
##                        ingenior [2 - 4%]                      jusstudiet [2 - 4%] 
##                  medisinstudiet [2 - 4%]                psykologistudiet [2 - 4%] 
##                       sosialant [2 - 4%]             litteraturvitenskap [2 - 4%] 
##                          fysikk [2 - 4%]                  medievitenskap [2 - 4%] 
## praktiskpedagogiskutdannelseved [2 - 4%]                        filosofi [2 - 4%] 
##                                    [...]
## 
## $results$`08`
##                      Class Specific Multiple Correspondence Analysis:                      
##  
##                     Statistics                                   Scree plot               
##  Active dimensions:                             9  |  1.     68.0%   **********************************
##  Dimensions explaining 80% of inertia:          2  |  2.     19.1%   **********
##  Active modalities:                            56  |  3.      7.0%   ****
##  Supplementary modalities:                      0  |  4.      4.1%   **
##  Individuals:                                1139  |  5.      1.4%   
##  Share of passive mass:                         0  |  6.      0.3%   
##  Number of passive modalities:                  0  |  7.      0.2%   
## 
##                    The 28 active variables: [No. modalities - share of variance]                    
## 
##               sivilingeniorntnu [2 - 4%]                 teaterhogskolen [2 - 4%] 
##           norgeshandelshoyskole [2 - 4%]          kunstmusikkellerdesign [2 - 4%] 
##                         bedokBI [2 - 4%]                      sykepleier [2 - 4%] 
##                   journalistikk [2 - 4%]                   modernespraak [2 - 4%] 
##                        sosionom [2 - 4%]                   allmennlaerer [2 - 4%] 
##                        ingenior [2 - 4%]                      jusstudiet [2 - 4%] 
##                  medisinstudiet [2 - 4%]                psykologistudiet [2 - 4%] 
##                       sosialant [2 - 4%]             litteraturvitenskap [2 - 4%] 
##                          fysikk [2 - 4%]                  medievitenskap [2 - 4%] 
## praktiskpedagogiskutdannelseved [2 - 4%]                        filosofi [2 - 4%] 
##                                    [...]
## 
## $results$`20`
##                      Class Specific Multiple Correspondence Analysis:                      
##  
##                     Statistics                                   Scree plot               
##  Active dimensions:                             9  |  1.     59.6%   ******************************
##  Dimensions explaining 80% of inertia:          3  |  2.     19.7%   **********
##  Active modalities:                            56  |  3.      9.3%   ****
##  Supplementary modalities:                      0  |  4.      7.1%   ****
##  Individuals:                                 555  |  5.      1.9%   *
##  Share of passive mass:                         0  |  6.      1.6%   *
##  Number of passive modalities:                  0  |  7.      0.6%   
## 
##                    The 28 active variables: [No. modalities - share of variance]                    
## 
##               sivilingeniorntnu [2 - 4%]                 teaterhogskolen [2 - 4%] 
##           norgeshandelshoyskole [2 - 4%]          kunstmusikkellerdesign [2 - 4%] 
##                         bedokBI [2 - 4%]                      sykepleier [2 - 4%] 
##                   journalistikk [2 - 4%]                   modernespraak [2 - 4%] 
##                        sosionom [2 - 4%]                   allmennlaerer [2 - 4%] 
##                        ingenior [2 - 4%]                      jusstudiet [2 - 4%] 
##                  medisinstudiet [2 - 4%]                psykologistudiet [2 - 4%] 
##                       sosialant [2 - 4%]             litteraturvitenskap [2 - 4%] 
##                          fysikk [2 - 4%]                  medievitenskap [2 - 4%] 
## praktiskpedagogiskutdannelseved [2 - 4%]                        filosofi [2 - 4%] 
##                                    [...]
## 
## 
## $measures
## $measures$`98`
## $measures$`98`$cosines
##             MCA: 1      MCA: 2      MCA: 3      MCA: 4     MCA: 5   MCA: 1&2
## CSA: 1  0.98310445  0.20658925 -0.02341484 -0.07325629  0.1055664 1.00457627
## CSA: 2 -0.11954887  0.91823745 -0.36003169  0.14661503  0.1520552 0.92598701
## CSA: 3  0.04410534 -0.14614152 -0.03457573  0.96429757  0.1453573 0.15265197
## CSA: 4  0.02271551  0.25922867  0.64734670  0.12855701 -0.6201507 0.26022202
## CSA: 5 -0.05677979  0.08127167  0.55506911 -0.06379246  0.7078272 0.09914146
##          MCA: 1&3   MCA: 1&4  MCA: 1&5  MCA: 2&3  MCA: 2&4  MCA: 2&5   MCA: 3&4
## CSA: 1 0.98338325 0.98583003 0.9887561 0.2079119 0.2191931 0.2319987 0.07690734
## CSA: 2 0.37936098 0.18917690 0.1934237 0.9862975 0.9298688 0.9307421 0.38874000
## CSA: 3 0.05604251 0.96530569 0.1519013 0.1501760 0.9753087 0.2061215 0.96491724
## CSA: 4 0.64774512 0.13054846 0.6205666 0.6973215 0.2893552 0.6721506 0.65998838
## CSA: 5 0.55796564 0.08540153 0.7101009 0.5609873 0.1033178 0.7124777 0.55872282
##         MCA: 3&5  MCA: 4&5 MCA: 1&2&3 MCA: 2&3&4 MCA: 3&4&5
## CSA: 1 0.1081319 0.1284942  1.0048491  0.2204401  0.1306101
## CSA: 2 0.3908243 0.2112268  0.9935164  0.9971353  0.4174201
## CSA: 3 0.1494129 0.9751915  0.1565187  0.9759214  0.9758043
## CSA: 4 0.8964623 0.6333355  0.6976914  0.7090727  0.9056333
## CSA: 5 0.8995116 0.7106961  0.5638535  0.5646028  0.9017708
## 
## $measures$`98`$angles
##          MCA: 1   MCA: 2   MCA: 3   MCA: 4   MCA: 5 MCA: 1&2 MCA: 1&3  MCA: 1&4
## CSA: 1 10.54720 78.07745 88.65831 85.79896 83.94020      NaN 10.45957  9.656868
## CSA: 2 83.13393 23.33025 68.89786 81.56919 81.25395 22.18234 67.70589 79.095247
## CSA: 3 87.47213 81.59661 88.01856 15.35632 81.64203 81.21936 86.78732 15.136673
## CSA: 4 88.69839 74.97570 49.65815 82.61378 51.67286 74.91676 49.62819 82.498713
## CSA: 5 86.74501 85.33834 56.28453 86.34248 44.94159 84.31027 56.08478 85.100885
##         MCA: 1&5  MCA: 2&3 MCA: 2&4 MCA: 2&5 MCA: 3&4 MCA: 3&5 MCA: 4&5
## CSA: 1  8.600109 77.999986 77.33836 76.58523 85.58918 83.79236 82.61742
## CSA: 2 78.847347  9.495857 21.58563 21.44921 67.12388 66.99420 77.80575
## CSA: 3 81.262873 81.362875 12.75871 78.10484 15.22167 81.40710 12.78909
## CSA: 4 51.642476 45.787500 73.18065 47.76673 48.70101 26.30312 50.70336
## CSA: 5 44.756871 55.875893 84.06975 44.56313 56.03248 25.90606 44.70842
##        MCA: 1&2&3 MCA: 2&3&4 MCA: 3&4&5
## CSA: 1        NaN   77.26511   82.49515
## CSA: 2   6.528028    4.33792   65.32818
## CSA: 3  80.995113   12.59878   12.62951
## CSA: 4  45.757925   44.84048   25.09129
## CSA: 5  55.677288   55.62529   25.60818
## 
## 
## $measures$`08`
## $measures$`08`$cosines
##              MCA: 1        MCA: 2       MCA: 3       MCA: 4       MCA: 5
## CSA: 1 -0.995391688  0.1155425614 -0.004570317 -0.027419371  0.035172258
## CSA: 2  0.081961744  0.9814206828  0.184054099 -0.006626153 -0.001047712
## CSA: 3 -0.018451891 -0.1408699830  0.973490636  0.064169310  0.022584561
## CSA: 4 -0.009389538  0.0169238284 -0.049231212  0.969782063 -0.213496875
## CSA: 5  0.005803587  0.0004932956 -0.044933569  0.190738632  0.955753101
##           MCA: 1&2   MCA: 1&3   MCA: 1&4   MCA: 1&5   MCA: 2&3  MCA: 2&4
## CSA: 1 1.002075195 0.99540218 0.99576927 0.99601290 0.11563292 0.1187514
## CSA: 2 0.984837187 0.20147863 0.08222915 0.08196844 0.99853015 0.9814431
## CSA: 3 0.142073306 0.97366549 0.06676955 0.02916393 0.98363020 0.1547968
## CSA: 4 0.019354054 0.05011862 0.96982752 0.21370325 0.05205889 0.9699297
## CSA: 5 0.005824514 0.04530681 0.19082690 0.95577072 0.04493628 0.1907393
##         MCA: 2&5   MCA: 3&4   MCA: 3&5    MCA: 4&5 MCA: 1&2&3 MCA: 2&3&4
## CSA: 1 0.1207774 0.02779766 0.03546795 0.044597193 1.00208562  0.1188394
## CSA: 2 0.9814212 0.18417334 0.18405708 0.006708472 1.00188831  0.9985521
## CSA: 3 0.1426689 0.97560326 0.97375258 0.068027662 0.98380325  0.9857211
## CSA: 4 0.2141666 0.97103088 0.21909958 0.993004615 0.05289888  0.9711783
## CSA: 5 0.9557532 0.19595982 0.95680877 0.974600029 0.04530950  0.1959604
##        MCA: 3&4&5
## CSA: 1 0.04483076
## CSA: 2 0.18417632
## CSA: 3 0.97586463
## CSA: 4 0.99422426
## CSA: 5 0.97563530
## 
## $measures$`08`$angles
##           MCA: 1   MCA: 2   MCA: 3   MCA: 4   MCA: 5  MCA: 1&2  MCA: 1&3
## CSA: 1  5.502695 83.36508 89.73814 88.42879 87.98436       NaN  5.496423
## CSA: 2 85.298664 11.06184 79.39401 89.62035 89.93997  9.990284 78.376561
## CSA: 3 88.942725 81.90181 13.22213 86.32084 88.70589 81.832163 13.178256
## CSA: 4 89.462011 89.03029 87.17812 14.12114 77.67264 88.891025 87.127211
## CSA: 5 89.667477 89.97174 87.42463 79.00411 17.10778 89.666278 87.403222
##         MCA: 1&4 MCA: 1&5  MCA: 2&3 MCA: 2&4 MCA: 2&5 MCA: 3&4 MCA: 3&5
## CSA: 1  5.272282  5.11812 83.359868 83.17995 83.06303 88.40711 87.96741
## CSA: 2 85.283291 85.29828  3.106896 11.05515 11.06167 79.38706 79.39384
## CSA: 3 86.171538 88.32879 10.381343 81.09499 81.79769 12.68208 13.15635
## CSA: 4 14.110462 77.66054 87.015896 14.08642 77.63336 13.82482 77.34385
## CSA: 5 78.998955 17.10434 87.424474 79.00407 17.10775 78.69920 16.90095
##        MCA: 4&5 MCA: 1&2&3 MCA: 2&3&4 MCA: 3&4&5
## CSA: 1 87.44392        NaN  83.174877  87.430525
## CSA: 2 89.61563        NaN   3.083568  79.386886
## CSA: 3 86.09929   10.32617   9.694006  12.613685
## CSA: 4  6.78105   86.96770  13.789411   6.160993
## CSA: 5 12.94130   87.40307  78.699165  12.673714
## 
## 
## $measures$`20`
## $measures$`20`$cosines
##             MCA: 1       MCA: 2      MCA: 3      MCA: 4      MCA: 5   MCA: 1&2
## CSA: 1  0.98806566 -0.041362015  0.06072107  0.01691738  0.09484026 0.98893102
## CSA: 2  0.04955884  0.974898442 -0.18749397 -0.08154427 -0.18509199 0.97615729
## CSA: 3 -0.03376696  0.176684330  0.92796714  0.12746647  0.19696706 0.17988207
## CSA: 4 -0.02651198  0.044727606 -0.13083230  0.91664148  0.10748162 0.05199465
## CSA: 5 -0.05332681  0.001637275 -0.09591712 -0.29237356  0.30759498 0.05335194
##         MCA: 1&3   MCA: 1&4  MCA: 1&5   MCA: 2&3   MCA: 2&4  MCA: 2&5
## CSA: 1 0.9899297 0.98821047 0.9926069 0.07347016 0.04468796 0.1034673
## CSA: 2 0.1939332 0.09542299 0.1916119 0.99276430 0.97830284 0.9923135
## CSA: 3 0.9285813 0.13186322 0.1998405 0.94463769 0.21786476 0.2646004
## CSA: 4 0.1334915 0.91702480 0.1107031 0.13826659 0.91773207 0.1164167
## CSA: 5 0.1097444 0.29719699 0.3121833 0.09593109 0.29237815 0.3075993
##          MCA: 3&4  MCA: 3&5   MCA: 4&5 MCA: 1&2&3 MCA: 2&3&4 MCA: 3&4&5
## CSA: 1 0.06303369 0.1126132 0.09633728  0.9907934 0.07539272  0.1138768
## CSA: 2 0.20445894 0.2634635 0.20225853  0.9940005 0.99610764  0.2757943
## CSA: 3 0.93668069 0.9486406 0.23461399  0.9452410 0.95319886  0.9571660
## CSA: 4 0.92593125 0.1693204 0.92292139  0.1407854 0.92701092  0.9321486
## CSA: 5 0.30770504 0.3222030 0.42437834  0.1097567 0.30770940  0.4350828
## 
## $measures$`20`$angles
##           MCA: 1   MCA: 2   MCA: 3   MCA: 4   MCA: 5  MCA: 1&2  MCA: 1&3
## CSA: 1  8.860735 87.62945 86.51880 89.03066 84.55787  8.532826  8.138122
## CSA: 2 87.159324 12.86473 79.19343 85.32266 79.33350 12.536669 78.817592
## CSA: 3 88.064928 79.82331 21.87989 82.67679 78.64034 79.637109 21.785267
## CSA: 4 88.480798 87.43644 82.48231 23.56008 83.82984 87.019582 82.328601
## CSA: 5 86.943149 89.90619 84.49589 72.99989 72.08565 86.941707 83.699416
##         MCA: 1&4  MCA: 1&5  MCA: 2&3 MCA: 2&4  MCA: 2&5 MCA: 3&4 MCA: 3&5
## CSA: 1  8.806704  6.971391 85.786673 87.43872 84.061129 86.38604 83.53403
## CSA: 2 84.524334 78.953132  6.896679 11.95715  7.108558 78.20217 74.72432
## CSA: 3 82.422726 78.472367 19.154421 77.41635 74.656790 20.49861 18.44268
## CSA: 4 23.505068 83.644150 82.052447 23.40325 83.314653 22.19080 80.25169
## CSA: 5 72.710675 71.809144 84.495088 72.99961 72.085385 72.07902 71.20380
##        MCA: 4&5 MCA: 1&2&3 MCA: 2&3&4 MCA: 3&4&5
## CSA: 1 84.47171   7.780733  85.676212   83.46116
## CSA: 2 78.33094   6.279307   5.056909   73.99064
## CSA: 3 76.43113  19.048787  17.598448   16.83040
## CSA: 4 22.64302  81.906702  22.026435   21.22774
## CSA: 5 64.88868  83.698712  72.078758   64.20944
csa.all(result, analysefil$aar)$measures
## $`98`
## $`98`$cosines
##             MCA: 1      MCA: 2      MCA: 3      MCA: 4     MCA: 5   MCA: 1&2
## CSA: 1  0.98310445  0.20658925 -0.02341484 -0.07325629  0.1055664 1.00457627
## CSA: 2 -0.11954887  0.91823745 -0.36003169  0.14661503  0.1520552 0.92598701
## CSA: 3  0.04410534 -0.14614152 -0.03457573  0.96429757  0.1453573 0.15265197
## CSA: 4  0.02271551  0.25922867  0.64734670  0.12855701 -0.6201507 0.26022202
## CSA: 5 -0.05677979  0.08127167  0.55506911 -0.06379246  0.7078272 0.09914146
##          MCA: 1&3   MCA: 1&4  MCA: 1&5  MCA: 2&3  MCA: 2&4  MCA: 2&5   MCA: 3&4
## CSA: 1 0.98338325 0.98583003 0.9887561 0.2079119 0.2191931 0.2319987 0.07690734
## CSA: 2 0.37936098 0.18917690 0.1934237 0.9862975 0.9298688 0.9307421 0.38874000
## CSA: 3 0.05604251 0.96530569 0.1519013 0.1501760 0.9753087 0.2061215 0.96491724
## CSA: 4 0.64774512 0.13054846 0.6205666 0.6973215 0.2893552 0.6721506 0.65998838
## CSA: 5 0.55796564 0.08540153 0.7101009 0.5609873 0.1033178 0.7124777 0.55872282
##         MCA: 3&5  MCA: 4&5 MCA: 1&2&3 MCA: 2&3&4 MCA: 3&4&5
## CSA: 1 0.1081319 0.1284942  1.0048491  0.2204401  0.1306101
## CSA: 2 0.3908243 0.2112268  0.9935164  0.9971353  0.4174201
## CSA: 3 0.1494129 0.9751915  0.1565187  0.9759214  0.9758043
## CSA: 4 0.8964623 0.6333355  0.6976914  0.7090727  0.9056333
## CSA: 5 0.8995116 0.7106961  0.5638535  0.5646028  0.9017708
## 
## $`98`$angles
##          MCA: 1   MCA: 2   MCA: 3   MCA: 4   MCA: 5 MCA: 1&2 MCA: 1&3  MCA: 1&4
## CSA: 1 10.54720 78.07745 88.65831 85.79896 83.94020      NaN 10.45957  9.656868
## CSA: 2 83.13393 23.33025 68.89786 81.56919 81.25395 22.18234 67.70589 79.095247
## CSA: 3 87.47213 81.59661 88.01856 15.35632 81.64203 81.21936 86.78732 15.136673
## CSA: 4 88.69839 74.97570 49.65815 82.61378 51.67286 74.91676 49.62819 82.498713
## CSA: 5 86.74501 85.33834 56.28453 86.34248 44.94159 84.31027 56.08478 85.100885
##         MCA: 1&5  MCA: 2&3 MCA: 2&4 MCA: 2&5 MCA: 3&4 MCA: 3&5 MCA: 4&5
## CSA: 1  8.600109 77.999986 77.33836 76.58523 85.58918 83.79236 82.61742
## CSA: 2 78.847347  9.495857 21.58563 21.44921 67.12388 66.99420 77.80575
## CSA: 3 81.262873 81.362875 12.75871 78.10484 15.22167 81.40710 12.78909
## CSA: 4 51.642476 45.787500 73.18065 47.76673 48.70101 26.30312 50.70336
## CSA: 5 44.756871 55.875893 84.06975 44.56313 56.03248 25.90606 44.70842
##        MCA: 1&2&3 MCA: 2&3&4 MCA: 3&4&5
## CSA: 1        NaN   77.26511   82.49515
## CSA: 2   6.528028    4.33792   65.32818
## CSA: 3  80.995113   12.59878   12.62951
## CSA: 4  45.757925   44.84048   25.09129
## CSA: 5  55.677288   55.62529   25.60818
## 
## 
## $`08`
## $`08`$cosines
##              MCA: 1        MCA: 2       MCA: 3       MCA: 4       MCA: 5
## CSA: 1 -0.995391688  0.1155425614 -0.004570317 -0.027419371  0.035172258
## CSA: 2  0.081961744  0.9814206828  0.184054099 -0.006626153 -0.001047712
## CSA: 3 -0.018451891 -0.1408699830  0.973490636  0.064169310  0.022584561
## CSA: 4 -0.009389538  0.0169238284 -0.049231212  0.969782063 -0.213496875
## CSA: 5  0.005803587  0.0004932956 -0.044933569  0.190738632  0.955753101
##           MCA: 1&2   MCA: 1&3   MCA: 1&4   MCA: 1&5   MCA: 2&3  MCA: 2&4
## CSA: 1 1.002075195 0.99540218 0.99576927 0.99601290 0.11563292 0.1187514
## CSA: 2 0.984837187 0.20147863 0.08222915 0.08196844 0.99853015 0.9814431
## CSA: 3 0.142073306 0.97366549 0.06676955 0.02916393 0.98363020 0.1547968
## CSA: 4 0.019354054 0.05011862 0.96982752 0.21370325 0.05205889 0.9699297
## CSA: 5 0.005824514 0.04530681 0.19082690 0.95577072 0.04493628 0.1907393
##         MCA: 2&5   MCA: 3&4   MCA: 3&5    MCA: 4&5 MCA: 1&2&3 MCA: 2&3&4
## CSA: 1 0.1207774 0.02779766 0.03546795 0.044597193 1.00208562  0.1188394
## CSA: 2 0.9814212 0.18417334 0.18405708 0.006708472 1.00188831  0.9985521
## CSA: 3 0.1426689 0.97560326 0.97375258 0.068027662 0.98380325  0.9857211
## CSA: 4 0.2141666 0.97103088 0.21909958 0.993004615 0.05289888  0.9711783
## CSA: 5 0.9557532 0.19595982 0.95680877 0.974600029 0.04530950  0.1959604
##        MCA: 3&4&5
## CSA: 1 0.04483076
## CSA: 2 0.18417632
## CSA: 3 0.97586463
## CSA: 4 0.99422426
## CSA: 5 0.97563530
## 
## $`08`$angles
##           MCA: 1   MCA: 2   MCA: 3   MCA: 4   MCA: 5  MCA: 1&2  MCA: 1&3
## CSA: 1  5.502695 83.36508 89.73814 88.42879 87.98436       NaN  5.496423
## CSA: 2 85.298664 11.06184 79.39401 89.62035 89.93997  9.990284 78.376561
## CSA: 3 88.942725 81.90181 13.22213 86.32084 88.70589 81.832163 13.178256
## CSA: 4 89.462011 89.03029 87.17812 14.12114 77.67264 88.891025 87.127211
## CSA: 5 89.667477 89.97174 87.42463 79.00411 17.10778 89.666278 87.403222
##         MCA: 1&4 MCA: 1&5  MCA: 2&3 MCA: 2&4 MCA: 2&5 MCA: 3&4 MCA: 3&5
## CSA: 1  5.272282  5.11812 83.359868 83.17995 83.06303 88.40711 87.96741
## CSA: 2 85.283291 85.29828  3.106896 11.05515 11.06167 79.38706 79.39384
## CSA: 3 86.171538 88.32879 10.381343 81.09499 81.79769 12.68208 13.15635
## CSA: 4 14.110462 77.66054 87.015896 14.08642 77.63336 13.82482 77.34385
## CSA: 5 78.998955 17.10434 87.424474 79.00407 17.10775 78.69920 16.90095
##        MCA: 4&5 MCA: 1&2&3 MCA: 2&3&4 MCA: 3&4&5
## CSA: 1 87.44392        NaN  83.174877  87.430525
## CSA: 2 89.61563        NaN   3.083568  79.386886
## CSA: 3 86.09929   10.32617   9.694006  12.613685
## CSA: 4  6.78105   86.96770  13.789411   6.160993
## CSA: 5 12.94130   87.40307  78.699165  12.673714
## 
## 
## $`20`
## $`20`$cosines
##             MCA: 1       MCA: 2      MCA: 3      MCA: 4      MCA: 5   MCA: 1&2
## CSA: 1  0.98806566 -0.041362015  0.06072107  0.01691738  0.09484026 0.98893102
## CSA: 2  0.04955884  0.974898442 -0.18749397 -0.08154427 -0.18509199 0.97615729
## CSA: 3 -0.03376696  0.176684330  0.92796714  0.12746647  0.19696706 0.17988207
## CSA: 4 -0.02651198  0.044727606 -0.13083230  0.91664148  0.10748162 0.05199465
## CSA: 5 -0.05332681  0.001637275 -0.09591712 -0.29237356  0.30759498 0.05335194
##         MCA: 1&3   MCA: 1&4  MCA: 1&5   MCA: 2&3   MCA: 2&4  MCA: 2&5
## CSA: 1 0.9899297 0.98821047 0.9926069 0.07347016 0.04468796 0.1034673
## CSA: 2 0.1939332 0.09542299 0.1916119 0.99276430 0.97830284 0.9923135
## CSA: 3 0.9285813 0.13186322 0.1998405 0.94463769 0.21786476 0.2646004
## CSA: 4 0.1334915 0.91702480 0.1107031 0.13826659 0.91773207 0.1164167
## CSA: 5 0.1097444 0.29719699 0.3121833 0.09593109 0.29237815 0.3075993
##          MCA: 3&4  MCA: 3&5   MCA: 4&5 MCA: 1&2&3 MCA: 2&3&4 MCA: 3&4&5
## CSA: 1 0.06303369 0.1126132 0.09633728  0.9907934 0.07539272  0.1138768
## CSA: 2 0.20445894 0.2634635 0.20225853  0.9940005 0.99610764  0.2757943
## CSA: 3 0.93668069 0.9486406 0.23461399  0.9452410 0.95319886  0.9571660
## CSA: 4 0.92593125 0.1693204 0.92292139  0.1407854 0.92701092  0.9321486
## CSA: 5 0.30770504 0.3222030 0.42437834  0.1097567 0.30770940  0.4350828
## 
## $`20`$angles
##           MCA: 1   MCA: 2   MCA: 3   MCA: 4   MCA: 5  MCA: 1&2  MCA: 1&3
## CSA: 1  8.860735 87.62945 86.51880 89.03066 84.55787  8.532826  8.138122
## CSA: 2 87.159324 12.86473 79.19343 85.32266 79.33350 12.536669 78.817592
## CSA: 3 88.064928 79.82331 21.87989 82.67679 78.64034 79.637109 21.785267
## CSA: 4 88.480798 87.43644 82.48231 23.56008 83.82984 87.019582 82.328601
## CSA: 5 86.943149 89.90619 84.49589 72.99989 72.08565 86.941707 83.699416
##         MCA: 1&4  MCA: 1&5  MCA: 2&3 MCA: 2&4  MCA: 2&5 MCA: 3&4 MCA: 3&5
## CSA: 1  8.806704  6.971391 85.786673 87.43872 84.061129 86.38604 83.53403
## CSA: 2 84.524334 78.953132  6.896679 11.95715  7.108558 78.20217 74.72432
## CSA: 3 82.422726 78.472367 19.154421 77.41635 74.656790 20.49861 18.44268
## CSA: 4 23.505068 83.644150 82.052447 23.40325 83.314653 22.19080 80.25169
## CSA: 5 72.710675 71.809144 84.495088 72.99961 72.085385 72.07902 71.20380
##        MCA: 4&5 MCA: 1&2&3 MCA: 2&3&4 MCA: 3&4&5
## CSA: 1 84.47171   7.780733  85.676212   83.46116
## CSA: 2 78.33094   6.279307   5.056909   73.99064
## CSA: 3 76.43113  19.048787  17.598448   16.83040
## CSA: 4 22.64302  81.906702  22.026435   21.22774
## CSA: 5 64.88868  83.698712  72.078758   64.20944
#98
class.age    <- which(analysefil$aar == '98')
csa.res <- soc.csa(result, class.age)
csa.res
##                      Class Specific Multiple Correspondence Analysis:                      
##  
##                     Statistics                                   Scree plot               
##  Active dimensions:                             9  |  1.     68.8%   **********************************
##  Dimensions explaining 80% of inertia:          2  |  2.     15.2%   ********
##  Active modalities:                            56  |  3.      7.8%   ****
##  Supplementary modalities:                      0  |  4.      4.1%   **
##  Individuals:                                1089  |  5.      2.5%   *
##  Share of passive mass:                         0  |  6.      1.0%   
##  Number of passive modalities:                  0  |  7.      0.5%   
## 
##                    The 28 active variables: [No. modalities - share of variance]                    
## 
##               sivilingeniorntnu [2 - 4%]                 teaterhogskolen [2 - 4%] 
##           norgeshandelshoyskole [2 - 4%]          kunstmusikkellerdesign [2 - 4%] 
##                         bedokBI [2 - 4%]                      sykepleier [2 - 4%] 
##                   journalistikk [2 - 4%]                   modernespraak [2 - 4%] 
##                        sosionom [2 - 4%]                   allmennlaerer [2 - 4%] 
##                        ingenior [2 - 4%]                      jusstudiet [2 - 4%] 
##                  medisinstudiet [2 - 4%]                psykologistudiet [2 - 4%] 
##                       sosialant [2 - 4%]             litteraturvitenskap [2 - 4%] 
##                          fysikk [2 - 4%]                  medievitenskap [2 - 4%] 
## praktiskpedagogiskutdannelseved [2 - 4%]                        filosofi [2 - 4%] 
##                                    [...]
map.ctr(csa.res, dim = c(1,2), ctr.dim=c(1,2), label.size = 2, label.repel = TRUE)

contribution(csa.res)
## 
##            Dimension 1. (+)           
##                                           Ctr    Coord
## litteraturvitenskap: yes                  8.3     1.38
## medievitenskap: yes                       8.0     1.21
## kunsthistorie: yes                        7.6     1.46
## skrivekunstakademiet: yes                 5.6     1.43
## sosialant: yes                            5.3     0.98
## filmhoyskolen: yes                        5.3     1.16
## journalistikk: yes                        4.5     0.77
## filosofi: yes                             4.0     0.95
## teaterhogskolen: yes                      3.2     0.96
## praktiskpedagogiskutdannelseved: yes      2.7     0.77
## kunstmusikkellerdesign: yes               2.5     0.78
## psykologistudiet: yes                     2.1     0.48
## sammenlignendepolitikk: yes               2.0     0.62
## modernespraak: yes                        1.9     0.56
## 
##            Dimension 1. (-)           
##                                           Ctr    Coord
## sivilingeniorntnu: yes                    4.6    -0.83
## bedokBI: yes                              3.0    -0.85
## fysikk: yes                               2.6    -0.92
## ingenior: yes                             2.3    -0.69
## matematikk: yes                           2.2    -0.67
contribution(csa.res, 2)
## 
##       Dimension 2. (+)       
##                                  Ctr    Coord
## fysikk: yes                     12.0     1.56
## sivilingeniorntnu: yes          10.1     0.98
## bedokBI: yes                     9.3     1.18
## matematikk: yes                  8.8     1.05
## norgeshandelshoyskole: yes       7.2     0.95
## ingenior: yes                    6.8     0.94
## filosofi: yes                    3.8     0.73
## jusstudiet: yes                  3.7     0.63
## sammenlignendepolitikk: yes      3.3     0.63
## medievitenskap: yes              3.1     0.60
## historie: yes                    2.7     0.45
## journalistikk: yes               2.6     0.46
## 
##       Dimension 2. (-)       
##                                  Ctr    Coord
## sivilingeniorntnu: no            2.7    -0.26
contribution(csa.res, 3)
## 
##        Dimension 3. (+)        
##                                    Ctr    Coord
## sammenlignendepolitikk: yes       11.8     1.10
## bedokBI: yes                       9.9     1.13
## norgeshandelshoyskole: yes         4.3     0.68
## journalistikk: yes                 3.8     0.52
## jusstudiet: yes                    3.5     0.56
## historie: yes                      1.9     0.34
## 
##        Dimension 3. (-)        
##                                    Ctr    Coord
## kunstmusikkellerdesign: yes        6.7    -0.94
## biologiskefaguniversitet: yes      6.7    -0.87
## klassiskespraak: yes               5.6    -1.15
## fysikk: yes                        5.2    -0.95
## filmhoyskolen: yes                 4.1    -0.75
## teaterhogskolen: yes               3.3    -0.71
## sammenlignendepolitikk: no         2.4    -0.22
## medisinstudiet: yes                2.3    -0.46
## modernespraak: yes                 2.1    -0.43
## kunsthistorie: yes                 2.0    -0.55
map.csa.mca.array(csa.res, ndim = 4)

## TableGrob (5 x 4) "arrange": 17 grobs
##     z     cells    name                 grob
## 1   1 (2-2,1-1) arrange       gtable[layout]
## 2   2 (2-2,2-2) arrange       gtable[layout]
## 3   3 (2-2,3-3) arrange       gtable[layout]
## 4   4 (2-2,4-4) arrange       gtable[layout]
## 5   5 (3-3,1-1) arrange       gtable[layout]
## 6   6 (3-3,2-2) arrange       gtable[layout]
## 7   7 (3-3,3-3) arrange       gtable[layout]
## 8   8 (3-3,4-4) arrange       gtable[layout]
## 9   9 (4-4,1-1) arrange       gtable[layout]
## 10 10 (4-4,2-2) arrange       gtable[layout]
## 11 11 (4-4,3-3) arrange       gtable[layout]
## 12 12 (4-4,4-4) arrange       gtable[layout]
## 13 13 (5-5,1-1) arrange       gtable[layout]
## 14 14 (5-5,2-2) arrange       gtable[layout]
## 15 15 (5-5,3-3) arrange       gtable[layout]
## 16 16 (5-5,4-4) arrange       gtable[layout]
## 17 17 (1-1,1-4) arrange text[GRID.text.1573]
#08
class.age    <- which(analysefil$aar == '08')
csa.res <- soc.csa(result, class.age)
csa.res
##                      Class Specific Multiple Correspondence Analysis:                      
##  
##                     Statistics                                   Scree plot               
##  Active dimensions:                             9  |  1.     68.0%   **********************************
##  Dimensions explaining 80% of inertia:          2  |  2.     19.1%   **********
##  Active modalities:                            56  |  3.      7.0%   ****
##  Supplementary modalities:                      0  |  4.      4.1%   **
##  Individuals:                                1139  |  5.      1.4%   
##  Share of passive mass:                         0  |  6.      0.3%   
##  Number of passive modalities:                  0  |  7.      0.2%   
## 
##                    The 28 active variables: [No. modalities - share of variance]                    
## 
##               sivilingeniorntnu [2 - 4%]                 teaterhogskolen [2 - 4%] 
##           norgeshandelshoyskole [2 - 4%]          kunstmusikkellerdesign [2 - 4%] 
##                         bedokBI [2 - 4%]                      sykepleier [2 - 4%] 
##                   journalistikk [2 - 4%]                   modernespraak [2 - 4%] 
##                        sosionom [2 - 4%]                   allmennlaerer [2 - 4%] 
##                        ingenior [2 - 4%]                      jusstudiet [2 - 4%] 
##                  medisinstudiet [2 - 4%]                psykologistudiet [2 - 4%] 
##                       sosialant [2 - 4%]             litteraturvitenskap [2 - 4%] 
##                          fysikk [2 - 4%]                  medievitenskap [2 - 4%] 
## praktiskpedagogiskutdannelseved [2 - 4%]                        filosofi [2 - 4%] 
##                                    [...]
map.ctr(csa.res, dim = c(1,2), ctr.dim=c(1,2), label.size = 2, label.repel = TRUE)

contribution(csa.res)
## 
##       Dimension 1. (+)       
##                                  Ctr    Coord
## sivilingeniorntnu: yes          11.6     1.39
## ingenior: yes                    8.7     1.39
## matematikk: yes                  6.4     1.19
## fysikk: yes                      5.5     1.40
## norgeshandelshoyskole: yes       3.1     0.82
## bedokBI: yes                     2.3     0.77
## 
##       Dimension 1. (-)       
##                                  Ctr    Coord
## litteraturvitenskap: yes         5.3    -1.15
## skrivekunstakademiet: yes        5.3    -1.46
## kunsthistorie: yes               4.8    -1.21
## sosialant: yes                   3.8    -0.88
## medievitenskap: yes              3.3    -0.81
## sivilingeniorntnu: no            3.1    -0.37
## teaterhogskolen: yes             2.6    -0.90
## journalistikk: yes               2.5    -0.60
## kunstmusikkellerdesign: yes      2.1    -0.75
## sosionom: yes                    2.0    -0.62
## filosofi: yes                    1.9    -0.69
## historie: yes                    1.9    -0.49
## filmhoyskolen: yes               1.9    -0.73
contribution(csa.res, 2)
## 
##            Dimension 2. (+)           
##                                           Ctr    Coord
## ingenior: yes                             8.9     1.15
## matematikk: yes                           8.1     1.09
## fysikk: yes                               5.9     1.18
## sivilingeniorntnu: yes                    5.4     0.77
## klassiskespraak: yes                      5.1     1.27
## biologiskefaguniversitet: yes             4.7     0.85
## allmennlaerer: yes                        4.5     0.62
## medisinstudiet: yes                       4.1     0.71
## sammenlignendepolitikk: yes               3.7     0.72
## praktiskpedagogiskutdannelseved: yes      3.6     0.75
## modernespraak: yes                        3.2     0.62
## sosialant: yes                            2.9     0.62
## litteraturvitenskap: yes                  2.6     0.66
## historie: yes                             2.5     0.46
## kunsthistorie: yes                        2.2     0.67
## norgeshandelshoyskole: yes                2.1     0.55
## filosofi: yes                             2.1     0.58
## sykepleier: yes                           1.8     0.50
## 
##            Dimension 2. (-)           
## [1] Ctr   Coord
## <0 rows> (or 0-length row.names)
contribution(csa.res, 3)
## 
##            Dimension 3. (+)           
##                                           Ctr    Coord
## sykepleier: yes                          19.7     1.44
## sosionom: yes                            11.6     1.07
## allmennlaerer: yes                        7.5     0.70
## praktiskpedagogiskutdannelseved: yes      6.2     0.87
## medisinstudiet: yes                       3.8     0.60
## biologiskefaguniversitet: yes             3.7     0.66
## 
##            Dimension 3. (-)           
##                                           Ctr    Coord
## filmhoyskolen: yes                        4.6    -0.82
## sykepleier: no                            4.1    -0.30
## kunsthistorie: yes                        3.6    -0.75
## kunstmusikkellerdesign: yes               3.0    -0.65
## allmennlaerer: no                         2.8    -0.27
## sosionom: no                              2.6    -0.24
## sivilingeniorntnu: yes                    2.3    -0.45
## medievitenskap: yes                       1.8    -0.43
map.csa.mca.array(csa.res, ndim = 4)

## TableGrob (5 x 4) "arrange": 17 grobs
##     z     cells    name                 grob
## 1   1 (2-2,1-1) arrange       gtable[layout]
## 2   2 (2-2,2-2) arrange       gtable[layout]
## 3   3 (2-2,3-3) arrange       gtable[layout]
## 4   4 (2-2,4-4) arrange       gtable[layout]
## 5   5 (3-3,1-1) arrange       gtable[layout]
## 6   6 (3-3,2-2) arrange       gtable[layout]
## 7   7 (3-3,3-3) arrange       gtable[layout]
## 8   8 (3-3,4-4) arrange       gtable[layout]
## 9   9 (4-4,1-1) arrange       gtable[layout]
## 10 10 (4-4,2-2) arrange       gtable[layout]
## 11 11 (4-4,3-3) arrange       gtable[layout]
## 12 12 (4-4,4-4) arrange       gtable[layout]
## 13 13 (5-5,1-1) arrange       gtable[layout]
## 14 14 (5-5,2-2) arrange       gtable[layout]
## 15 15 (5-5,3-3) arrange       gtable[layout]
## 16 16 (5-5,4-4) arrange       gtable[layout]
## 17 17 (1-1,1-4) arrange text[GRID.text.2265]
#20
class.age    <- which(analysefil$aar == '20')
csa.res <- soc.csa(result, class.age)
csa.res
##                      Class Specific Multiple Correspondence Analysis:                      
##  
##                     Statistics                                   Scree plot               
##  Active dimensions:                             9  |  1.     59.6%   ******************************
##  Dimensions explaining 80% of inertia:          3  |  2.     19.7%   **********
##  Active modalities:                            56  |  3.      9.3%   ****
##  Supplementary modalities:                      0  |  4.      7.1%   ****
##  Individuals:                                 555  |  5.      1.9%   *
##  Share of passive mass:                         0  |  6.      1.6%   *
##  Number of passive modalities:                  0  |  7.      0.6%   
## 
##                    The 28 active variables: [No. modalities - share of variance]                    
## 
##               sivilingeniorntnu [2 - 4%]                 teaterhogskolen [2 - 4%] 
##           norgeshandelshoyskole [2 - 4%]          kunstmusikkellerdesign [2 - 4%] 
##                         bedokBI [2 - 4%]                      sykepleier [2 - 4%] 
##                   journalistikk [2 - 4%]                   modernespraak [2 - 4%] 
##                        sosionom [2 - 4%]                   allmennlaerer [2 - 4%] 
##                        ingenior [2 - 4%]                      jusstudiet [2 - 4%] 
##                  medisinstudiet [2 - 4%]                psykologistudiet [2 - 4%] 
##                       sosialant [2 - 4%]             litteraturvitenskap [2 - 4%] 
##                          fysikk [2 - 4%]                  medievitenskap [2 - 4%] 
## praktiskpedagogiskutdannelseved [2 - 4%]                        filosofi [2 - 4%] 
##                                    [...]
map.ctr(csa.res, dim = c(1,2), ctr.dim=c(1,2), label.size = 2, label.repel = TRUE)

contribution(csa.res)
## 
##       Dimension 1. (+)       
##                                  Ctr    Coord
## skrivekunstakademiet: yes        5.3     1.42
## kunstmusikkellerdesign: yes      4.9     1.12
## sosionom: yes                    4.7     0.93
## sosialant: yes                   4.3     0.91
## journalistikk: yes               4.1     0.76
## filosofi: yes                    4.1     0.98
## filmhoyskolen: yes               3.5     0.97
## kunsthistorie: yes               3.2     0.98
## litteraturvitenskap: yes         3.0     0.85
## medievitenskap: yes              2.8     0.74
## klassiskespraak: yes             2.2     0.99
## ingenior: no                     2.1     0.29
## psykologistudiet: yes            2.1     0.49
## sivilingeniorntnu: no            1.9     0.29
## 
##       Dimension 1. (-)       
##                                  Ctr    Coord
## ingenior: yes                   11.1    -1.54
## sivilingeniorntnu: yes           7.2    -1.07
## matematikk: yes                  7.1    -1.22
## fysikk: yes                      4.9    -1.28
contribution(csa.res, 2)
## 
##        Dimension 2. (+)        
##                                    Ctr    Coord
## ingenior: yes                     10.2     1.24
## klassiskespraak: yes              10.1     1.80
## matematikk: yes                   10.0     1.22
## fysikk: yes                        8.3     1.41
## modernespraak: yes                 6.7     0.90
## sivilingeniorntnu: yes             6.4     0.84
## filosofi: yes                      5.8     0.98
## litteraturvitenskap: yes           3.0     0.71
## historie: yes                      2.9     0.51
## kunsthistorie: yes                 2.8     0.75
## medievitenskap: yes                2.1     0.53
## bedokBI: yes                       2.0     0.59
## biologiskefaguniversitet: yes      2.0     0.56
## jusstudiet: yes                    1.9     0.48
## sammenlignendepolitikk: yes        1.8     0.50
## 
##        Dimension 2. (-)        
##                                    Ctr    Coord
## ingenior: no                       1.9    -0.23
## matematikk: no                     1.9    -0.23
contribution(csa.res, 3)
## 
##            Dimension 3. (+)           
##                                           Ctr    Coord
## sykepleier: yes                          19.5     1.48
## praktiskpedagogiskutdannelseved: yes     14.1     1.37
## psykologistudiet: yes                    10.5     0.83
## allmennlaerer: yes                        8.0     0.75
## medisinstudiet: yes                       7.7     0.89
## biologiskefaguniversitet: yes             5.6     0.85
## sosionom: yes                             5.1     0.73
## 
##            Dimension 3. (-)           
##                                           Ctr    Coord
## psykologistudiet: no                      4.3    -0.34
## sykepleier: no                            4.0    -0.31
## allmennlaerer: no                         3.0    -0.28
## praktiskpedagogiskutdannelseved: no       2.4    -0.23
## skrivekunstakademiet: yes                 2.1    -0.67
## medisinstudiet: no                        1.8    -0.21
map.csa.mca.array(csa.res, ndim = 4)

## TableGrob (5 x 4) "arrange": 17 grobs
##     z     cells    name                 grob
## 1   1 (2-2,1-1) arrange       gtable[layout]
## 2   2 (2-2,2-2) arrange       gtable[layout]
## 3   3 (2-2,3-3) arrange       gtable[layout]
## 4   4 (2-2,4-4) arrange       gtable[layout]
## 5   5 (3-3,1-1) arrange       gtable[layout]
## 6   6 (3-3,2-2) arrange       gtable[layout]
## 7   7 (3-3,3-3) arrange       gtable[layout]
## 8   8 (3-3,4-4) arrange       gtable[layout]
## 9   9 (4-4,1-1) arrange       gtable[layout]
## 10 10 (4-4,2-2) arrange       gtable[layout]
## 11 11 (4-4,3-3) arrange       gtable[layout]
## 12 12 (4-4,4-4) arrange       gtable[layout]
## 13 13 (5-5,1-1) arrange       gtable[layout]
## 14 14 (5-5,2-2) arrange       gtable[layout]
## 15 15 (5-5,3-3) arrange       gtable[layout]
## 16 16 (5-5,4-4) arrange       gtable[layout]
## 17 17 (1-1,1-4) arrange text[GRID.text.2955]