# states.R # Do frequency distribution of numbers of states per character in a data matrix. # T. J. Finney, 2015-06-13. message("Do frequency distn of nos. of states per character.") # Clear environment. rm(list=ls(all=TRUE)) # Set parameters. message("Input data matrix: ", file <- "../data/Mark-INTF-Parallel.csv") # Read input (assumed to be nominal data). in.df <- read.csv(file, row.names=1, colClasses="factor") n.coll <- dim(in.df)[2] nn.stt <- sapply(in.df[,1:n.coll], function(col) { length(levels(col)) }) message("Frequencies of nos. of states:") print(table(nn.stt))