Commit b3ed8974 by Eric Coissac

renames function is.procmod_frame is_procmod_frame

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