Commit e858cad9 by Eric Coissac

Patch several small bugs in the multivariate fonctions

parent 85fe3794
......@@ -22,7 +22,7 @@ S3method(print,pm)
S3method(residuals,pm)
S3method(subset,procmod.frame)
export(as.procmod.frame)
export(bicentered)
export(bicenter)
export(dist2orthospace)
export(is.euclid)
export(is.pm)
......
......@@ -20,7 +20,11 @@ nmds = function(distances,
k = attr(distances,"Size") - 1
y = suppressWarnings(cmdscale(distances,k))
k = ncol(y)
n = isoMDS(distances,
y=y,
k=k,
maxit = maxit,
trace = trace,
......@@ -46,10 +50,10 @@ pcoa = function(distances) {
stopifnot(inherits(distances,"dist"))
k = attr(distances,"Size") - 1
x = cmdscale(distances,k=k)
x = suppressWarnings(cmdscale(distances,k=k))
attr(x,"method")="pcoa"
return()
return(x)
}
#' Project a set of points in a euclidean space (PCA).
......@@ -79,7 +83,7 @@ pca = function(data,scale=FALSE) {
#' \url{https://stackoverflow.com/questions/43639063/double-centering-in-r}
#'
#' @export
bicentered = function(m) {
bicenter = function(m) {
# compute the row-wise and column-wise mean matrices
R = m*0 + rowMeans(m)
......
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