Através da seguinte condição:

    ifelse(??, 1, Z/(1+1))

O que colocar no lugar de "??" para que o R entenda que quando i=j na matriz Z, quero que se atribua o valor 1?