Nothing
#' @title Checks binary matrix for unwanted characters.
#'
#' @description Checks for unwanted values (other than 1, 0, and ?).
#'
#' @param x A CSV file containing replicate pairs of binary data.
#'
#' @return Index positions where unwanted values occur (row, column).
#'
#' @examples data(BinMatInput_reps)
#' mat = BinMatInput_reps
#' check.data(mat)
#'
#' @export
check.data = function(x){
row.names(x) <- x[[1]]
x[,1] <- NULL
x[,] <- sapply(x[,], as.numeric)
answer = which(x != 0 & x != 1 & x != "?", arr.ind = T)
if(length(answer) > 0) print(answer)
else {writeLines("None found.")}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.