Commit 48ce57d0 by Eric Coissac

renames function is.orthogonal is_orthogonal

parent 3c759bbd
...@@ -229,7 +229,7 @@ is_euclid <- function(distances, tol = 1e-07) { ...@@ -229,7 +229,7 @@ is_euclid <- function(distances, tol = 1e-07) {
w0 > -tol w0 > -tol
} }
is.orthogonal <- function(x) { is_orthogonal <- function(x) {
stopifnot(is_procmod_frame(x)) stopifnot(is_procmod_frame(x))
!is.null(attr(x, "projected")) !is.null(attr(x, "projected"))
...@@ -296,7 +296,7 @@ ortho.data.frame <- function(data, scale = FALSE, ...) { ...@@ -296,7 +296,7 @@ ortho.data.frame <- function(data, scale = FALSE, ...) {
#' @rdname ortho #' @rdname ortho
#' @export #' @export
ortho.procmod_frame <- function(data, ...) { ortho.procmod_frame <- function(data, ...) {
if (is.orthogonal(data)) { if (is_orthogonal(data)) {
return(data) return(data)
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment