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?