Elimination of Duplicated Rows in a Array

Description

An utility function to eliminate the duplicated rows in a array.

Usage

uniquewt.df(x)

Arguments

Value

The function returns a y which contains once each duplicated row of x.
y is an attribut 'factor' which gives the number of the row of y in which each row of x is found
y is an attribut 'length.class' which gives the number of duplicates in x with an attribut of each row of y with an attribut

Author(s)

Daniel Chessel

Examples

data(ecomor)
forsub.r <- uniquewt.df(ecomor$forsub)
attr(forsub.r, "factor")
forsub.r[1,]
ecomor$forsub[126,] #idem

dudi.pca(ecomor$forsub, scale = FALSE, scann = FALSE)$eig
# [1] 0.36845 0.24340 0.15855 0.09052 0.07970 0.04490
w1 <- attr(forsub.r, "len.class") / sum(attr(forsub.r,"len.class"))
dudi.pca(forsub.r, row.w = w1, scale = FALSE, scann = FALSE)$eig
# [1] 0.36845 0.24340 0.15855 0.09052 0.07970 0.04490

Worked out examples

> library(ade4)
> ### Name: uniquewt.df
> ### Title: Elimination of Duplicated Rows in a Array
> ### Aliases: uniquewt.df
> ### Keywords: utilities
> 
> ### ** Examples
> 
> data(ecomor)
> forsub.r <- uniquewt.df(ecomor$forsub)
> attr(forsub.r, "factor")
  [1] 1  1  1  2  1  3  3  4  4  4  5  5  4  4  6  6  4  5  7  5  4  4  5  8  1 
 [26] 4  6  6  9  5  1  10 4  4  4  5  5  5  4  4  4  4  4  5  4  3  11 12 13 5 
 [51] 10 7  4  4  5  5  5  5  4  4  4  7  13 13 13 14 8  7  12 15 5  1  5  5  5 
 [76] 5  5  5  9  5  12 5  7  16 7  7  8  12 12 12 12 12 12 12 12 17 18 5  5  5 
[101] 5  5  4  19 19 5  5  4  5  5  6  2  1  7  2  2  13 13 20 4  14 21 14 21 14
[126] 14 22 22 4 
Levels: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
> forsub.r[1,]
     foliage ground twig bush trunk aerial
E033       1      0    0    1     0      0
> ecomor$forsub[126,] #idem
     foliage ground twig bush trunk aerial
E072       0      0    1    0     1      0
> 
> dudi.pca(ecomor$forsub, scale = FALSE, scann = FALSE)$eig
[1] 0.37533941 0.24104252 0.15616250 0.09072903 0.07514625 0.04457409
> # [1] 0.36845 0.24340 0.15855 0.09052 0.07970 0.04490
> w1 <- attr(forsub.r, "len.class") / sum(attr(forsub.r,"len.class"))
> dudi.pca(forsub.r, row.w = w1, scale = FALSE, scann = FALSE)$eig
[1] 0.37533941 0.24104252 0.15616250 0.09072903 0.07514625 0.04457409
> # [1] 0.36845 0.24340 0.15855 0.09052 0.07970 0.04490
> 
> 
> 
>