R/ternary_convert.R

In peterwu19881230/microbialPhenotypes: Tools That Analyze Phenotypic Profiles by Annotation Sets

ternary_convert <-
function(matrix,threshold){
    ternary<-matrix(,nrow(matrix),ncol(matrix)) #This creates an empty matrix (Precisely, matrix with all NAs)
    rownames(ternary)<-rownames(matrix)
    colnames(ternary)<-colnames(matrix)
    ternary[matrix>-1*threshold&matrix<threshold]=0
    ternary[matrix<=-1*threshold]=-1
    ternary[matrix>=threshold]=1
    return(as.data.frame(ternary)) 
}