Skip to content

Commit

Permalink
Stop exporting everything related to 'dibas'
Browse files Browse the repository at this point in the history
  • Loading branch information
aursiber committed Oct 3, 2023
1 parent b44074f commit 7fb3c46
Show file tree
Hide file tree
Showing 2 changed files with 0 additions and 10 deletions.
5 changes: 0 additions & 5 deletions NAMESPACE
Original file line number Diff line number Diff line change
@@ -1,9 +1,5 @@
# Generated by roxygen2: do not edit by hand

S3method(dibas,dist)
S3method(dibas,matrix)
S3method(dibas,phylo)
S3method(dibas,vector)
S3method(plot,ppca)
S3method(print,ppca)
S3method(scatter,ppca)
Expand All @@ -12,7 +8,6 @@ S3method(summary,ppca)
export(.tipToRoot)
export(abouheif.moran)
export(bullseye)
export(dibas)
export(distRoot)
export(distTips)
export(listDD)
Expand Down
5 changes: 0 additions & 5 deletions R/dibas.R
Original file line number Diff line number Diff line change
Expand Up @@ -122,7 +122,6 @@
#'
#' @importFrom stats dnorm sd rnorm
#'
#' @export dibas
dibas <- function (x, ...) UseMethod("dibas")


Expand All @@ -133,7 +132,6 @@ dibas <- function (x, ...) UseMethod("dibas")
## dibas.matrix
################
#' @rdname dibas
#' @export
dibas.matrix <- function(x, grp, method=c("default","leaveOneOut"), ...){
method <- match.arg(method)
## DECLARE SOME VARIABLES, HANDLE ARGUMENTS ##
Expand Down Expand Up @@ -269,7 +267,6 @@ dibas.matrix <- function(x, grp, method=c("default","leaveOneOut"), ...){
##

#' @rdname dibas
#' @export
dibas.vector <- function(x, grp, method=c("default","leaveOneOut"), n.items=NULL, ...){
method <- match.arg(method)

Expand Down Expand Up @@ -363,7 +360,6 @@ dibas.vector <- function(x, grp, method=c("default","leaveOneOut"), n.items=NULL
## dibas.phylo
###############
#' @rdname dibas
#' @export
dibas.phylo <- function(x, grp, method=c("default","leaveOneOut"), fromRoot=FALSE, metric=c("Abouheif", "nNodes", "patristic", "sumDD"),
n.items=NULL, ...){
## if(!require(ape)) stop("ape package is required")
Expand All @@ -389,7 +385,6 @@ dibas.phylo <- function(x, grp, method=c("default","leaveOneOut"), fromRoot=FALS
## dibas.dist
##############
#' @rdname dibas
#' @export
dibas.dist <- function(x, grp, method=c("default","leaveOneOut"), ...){

res <- dibas.matrix(as.matrix(x), grp, method)
Expand Down

0 comments on commit 7fb3c46

Please sign in to comment.