## Not run:
# data("mlgtResult", package="mlgt")
# my.mlgt.Result
# # the default method
# my.genoytpes <- callGenotypes(my.mlgt.Result)
# # using a custom method
# callGenotypes.custom <- function(table, maxPropUniqueVars=0.5) {
# table$status <- "notCalled"
# table$propUniqueVars <- table$numbVar/table$numbSeq
# table$status <- ifelse(table$propUniqueVars <= maxPropUniqueVars,"good", "bad")
# return(table)
# }
# my.custom.Genotypes <- callGenotypes(my.mlgt.Result, method="callGenotypes.custom")
# ## End(Not run)
Run the code above in your browser using DataLab