# NOT RUN {
set.seed(1)
dataset <- matrix(c(sample(0:2, 4 * 8, TRUE),
'0', '0', rep('?', 6)), nrow = 5,
dimnames = list(c(LETTERS[1:4], 'FOSSIL'),
paste('char', 1:8)), byrow = TRUE)
artex <- ArtificialExtinction(dataset, c('A', 'C'), 'FOSSIL')
# }
Run the code above in your browser using DataLab