Dificuldade de rodar uma função

olá,

Estou tentando rodar esse seguinte codigo:
R = pedlist ← with(novo,
+ +pedigree(id=id, dadid=fid, momid=mid, sex=sex))

R= kinmat ← kinship(pedlist)

porém o mesmo aparece o seguinte erro:

Error in pedigree(id = id, dadid = fid, momid = mid, sex = sex) : **
** Id not male, but is a father: 2272646 1673512 2247788 1265593 2973635

A minha duvida é o seguinte existe uma função na qual posso substituir todos os animais que forem pais eu colocar sexo 1 - macho? ou vice versa