Commit 48ce57d0 by Eric Coissac

renames function is.orthogonal is_orthogonal

parent 3c759bbd
......@@ -229,7 +229,7 @@ is_euclid <- function(distances, tol = 1e-07) {
w0 > -tol
}
is.orthogonal <- function(x) {
is_orthogonal <- function(x) {
stopifnot(is_procmod_frame(x))
!is.null(attr(x, "projected"))
......@@ -296,7 +296,7 @@ ortho.data.frame <- function(data, scale = FALSE, ...) {
#' @rdname ortho
#' @export
ortho.procmod_frame <- function(data, ...) {
if (is.orthogonal(data)) {
if (is_orthogonal(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