# NOT RUN {
f<-InjusticiaM_desagregada(2019,"04","F:/") # Aggregated mode
da1 <- data.frame( # Contains the votes
Reg=c("Alava","Albacete","Madrid","Barcelona","Valladolid"),
PSOE=c(400,300,0,50,25),
PP=c(300,200,10,150,2),
Cs=c(400,0,3,300,45),
Uno=c(465,23,341,263,0))
da2 <- data.frame( # Contains the seats
Reg=c("Alava","Albacete","Madrid","Barcelona","Valladolid"),
PSOE=c(4,3,0,0,0),
PP=c(2,3,0,1,0),
Cs=c(4,0,0,2,1),
Uno=c(3,0,3,2,0))
f2<- InjusticiaM_desagregada(Auto=FALSE,d_votos=da1,d_escanos = da2) #No agregegado
# }
Run the code above in your browser using DataLab