Error in createMutationDefinition examples

[nima nouri]

## Define hydropathy classes
library(alakazam)
hydropathy <- list(hydrophobic=c("A", "I", "L", "M", "F", "W", "V"),
                    hydrophilic=c("R", "N", "D", "C", "Q", "E", "K"),
                    neutral=c("G", "H", "P", "S", "T", "Y"))
chars <- unlist(hydropathy, use.names=FALSE)
classes <- setNames(translateStrings(chars, hydropathy), chars)

## Create hydropathy mutation definition
md <- createMutationDefinition("Hydropathy", classes)

Error in [<-.data.frame(*tmp*, , codon, value = c(0, 0, 0, 1, 0, 1, : replacement has 4 rows, data has 12 Calls: createMutationDefinition -> computeCodonTable -> [<- -> [<-.data.frame Execution halted

[Julian Zhou]

Via commit 349455e