Commit983b728

PPaccioretti

committed

Fix#8

1 parentf479c12 commit983b728Copy full SHA for 983b728

File tree

-4

lines changed

-4

lines changed

Lines changed: 4 additions & 4 deletions

Original file line number	Diff line number	Diff line change
`@@ -547,17 +547,17 @@ multispati <-`
`547`	`547`
`548`	`548`	`if (nfposi> sum(res$eig>0)) {`
`549`	`549`	`nfposi<- sum(res$eig>0)`
`550`		`- warning(paste("There are only", sum(res$eig>0),"positive factors."))`
	`550`	`+#warning(paste("There are only", sum(res$eig > 0), "positive factors."))`
`551`	`551`	`}`
`552`	`552`	`if (nfnega> sum(res$eig<0)) {`
`553`	`553`	`nfnega<- sum(res$eig<0)`
`554`		`- warning(paste("There are only", sum(res$eig<0),"negative factors."))`
	`554`	`+#warning(paste("There are only", sum(res$eig < 0), "negative factors."))`
`555`	`555`	`}`
`556`	`556`
`557`	`557`	`res$nfposi<-nfposi`
`558`	`558`	`res$nfnega<-nfnega`
`559`	`559`	`agarder<-`
`560`		`- c(1:nfposi,if (nfnega>0)`
	`560`	`+ c(seq_len(nfposi),if (nfnega>0)`
`561`	`561`	`(ndim-nfnega+1):ndim`
`562`	`562`	`else`
`563`	`563`	`NULL)`
`@@ -644,7 +644,7 @@ summary.multispati <- function(object, ...) {`
`644`	`644`	`ndim<-dudi$rank`
`645`	`645`	`nf<-nfposi+nfnega`
`646`	`646`	`agarder<-`
`647`		`- c(1:nfposi,if (nfnega>0)`
	`647`	`+ c(seq_len(nfposi),if (nfnega>0)`
`648`	`648`	`(ndim-nfnega+1):ndim`
`649`	`649`	`else`
`650`	`650`	`NULL)`

Comments

(0)