tilføj enkelt observation til diagonal i mobility matricen, så unik identifikation er mulig #6
Description
ændrer en enkelt observation i de diagonaler der er dupletter af andre, dvs så diagonalen i mob.mat kan bruges til at identificere hver enkelt element unikt. Meget vigtigt i det jeg laver lige nu.
diag(mob.mat)[which(duplicated(diag(mob.mat)))] <- diag(mob.mat+1)[which(duplicated(diag(mob.mat)))]
diag(mob.mat)[which(duplicated(diag(mob.mat)))] <- diag(mob.mat+1)[which(duplicated(diag(mob.mat)))]