Commit b3ed8974 by Eric Coissac

renames function is.procmod_frame is_procmod_frame

parent 700d5756
...@@ -80,7 +80,7 @@ corls.test <- function(..., ...@@ -80,7 +80,7 @@ corls.test <- function(...,
if (length(xs) == 1) { if (length(xs) == 1) {
x <- xs[[1]] x <- xs[[1]]
if (is.procmod_frame(x)) { if (is_procmod_frame(x)) {
xs <- x xs <- x
} else { } else {
xs <- procmod_frame(x) xs <- procmod_frame(x)
......
...@@ -158,7 +158,7 @@ varls <- function(..., ...@@ -158,7 +158,7 @@ varls <- function(...,
if (length(xs) == 1) { if (length(xs) == 1) {
x <- xs[[1]] x <- xs[[1]]
if (is.procmod_frame(x)) { if (is_procmod_frame(x)) {
xs <- x xs <- x
} else { } else {
xs <- procmod_frame(x) xs <- procmod_frame(x)
......
...@@ -230,7 +230,7 @@ is.euclid <- function(distances, tol = 1e-07) { ...@@ -230,7 +230,7 @@ is.euclid <- function(distances, tol = 1e-07) {
} }
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"))
} }
......
...@@ -312,7 +312,7 @@ procmod_frame <- function(..., ...@@ -312,7 +312,7 @@ procmod_frame <- function(...,
#' @author Eric Coissac #' @author Eric Coissac
#' @author Christelle Gonindard-Melodelima #' @author Christelle Gonindard-Melodelima
#' @export #' @export
is.procmod_frame <- function(x) { is_procmod_frame <- function(x) {
inherits(x, "procmod_frame") inherits(x, "procmod_frame")
} }
......
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