# Here we create manually an individual:
individual <- c(PrSu = "M", GrSN = "F",
CArc = "F", InfP = "0", IsPu = "F")
individual
# Determination produced by Bruzek (2002): female individual.
bruzek02(individual)
Run the code above in your browser using DataLab