Commit 1b31e9e8 by Eric Coissac

patch function to use .siteCount instead of nrow

parent ac148f17
......@@ -257,7 +257,7 @@ as.procmod.frame.pm = function(data,...) {
#' @author Christelle Gonindard-Melodelima
#' @export
dim.procmod.frame = function(x)
return(c(nrow(x[[1]]),length(x)))
return(c(.siteCount(x[[1]]),length(x)))
#' @author Eric Coissac
#' @author Christelle Gonindard-Melodelima
......@@ -265,7 +265,7 @@ dim.procmod.frame = function(x)
`[[<-.procmod.frame` = function (x, i, value)
{
cl = class(x)
nrows=nrow(x)
nrows=.siteCount(x)
class(x)="list"
if (!is.null(value)) {
......@@ -384,3 +384,4 @@ as.list.procmod.frame = function(x, ...) {
class(x)='list'
return(x)
}
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