Plot.PP: Graficos da projection pursuit.

Description Usage Arguments Value Author(s) See Also Examples

View source: R/Plot.PP.R

Description

Graficos da projection pursuit.

Usage

1
2
3
Plot.PP(PP, Titles = NULL, PosLeg = 2, BoxLeg = TRUE, 
        Color = TRUE,Label = FALSE, LabNames = NULL, 
        AxisVar = TRUE, Axis = TRUE)

Arguments

PP

Dados da funcao PP_Optimizer.

Titles

Titulos para os graficos. Se nao for definido assume texto padrao.

PosLeg

0 sem legenda,
1 para legenda no canto superior esquerdo,
2 para legenda no canto superior direito (default),
3 para legenda no canto inferior direito,
4 para legenda no canto inferior esquerdo.

BoxLeg

Colocar moldura na legenda (default = TRUE).

Color

Graficos coloridos (default = TRUE).

Label

Coloca os rotulos das observacoes (default = FALSE).

LabNames

Nomes dos rotulos das observacoes, se omitido retorna a numeracao default.

AxisVar

Coloca eixos de rotacao das variaveis, somente quando DimProj > 1 (default = TRUE).

Axis

Plot os eixos X e Y (default = TRUE).

Value

Grafico da evolucao dos indices, e graficos cujos dados foram reduzidos em duas dimensoes.

Author(s)

Paulo Cesar Ossani

Marcelo Angelo Cirillo

See Also

PP_Optimizer and PP_Index

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
data(iris) # conjunto de dados

# Exemplo 1 - Sem as classes nos dados
Dat <- iris[,1:4]

Class <- NULL # classe dos dados

FcIndex <- "kurtosismax" # funcao indice

Dim <- 1 # dimensao da projecao dos dados

Sphere <- TRUE # dados esfericos

Res <- PP_Optimizer(Data = Dat, Class = Class, Findex = FcIndex,
               OptMethod = "GTSA", DimProj = Dim, Sphere = Sphere, 
               Weight = TRUE, Lambda = 0.1, r = 1, Cooling = 0.9, 
               Eps = 1e-3, Maxiter = 1000, Half = 30)
 
Tit <- NULL # titulos para os graficos

Plot.PP(Res, Titles = Tit, PosLeg = 1, BoxLeg = FALSE, Color = TRUE,
        Label = FALSE, LabNames = Class, AxisVar = TRUE, Axis = TRUE)


# Exemplo 2 - Com as classes nos dados
Class <- iris[,5] # classe dos dados

Res <- PP_Optimizer(Data = Dat, Class = Class, Findex = FcIndex,
               OptMethod = "GTSA", DimProj = Dim, Sphere = Sphere, 
               Weight = TRUE, Lambda = 0.1, r = 1, Cooling = 0.9, 
               Eps = 1e-3, Maxiter = 1000, Half = 30)

Tit <- c(NA,"Exemplo de grafico") # titulos para os graficos

Plot.PP(Res, Titles = Tit, PosLeg = 1, BoxLeg = FALSE, Color = TRUE,
        Label = FALSE, LabNames = Class, AxisVar = TRUE, Axis = TRUE)


# Exemplo 3 - Sem as classes nos dados, mas informando 
#             as classes na funcao plot
Res <- PP_Optimizer(Data = Dat, Class = NULL, Findex = "Moment",
               OptMethod = "GTSA", DimProj = 2, Sphere = Sphere, 
               Weight = TRUE, Lambda = 0.1, r = 1, Cooling = 0.9, 
               Eps = 1e-3, Maxiter = 1000, Half = 30)

Tit <- c(NA,NA) # titulos para os graficos

Class <- c(rep("a",50),rep("b",50),rep("c",50)) # classe dos dados

Plot.PP(Res, Titles = Tit, PosLeg = 1, BoxLeg = FALSE, Color = TRUE,
        Label = FALSE, LabNames = Class, AxisVar = TRUE, Axis = TRUE)


# Exemplo 4 - Com as classes nos dados, mas nao informada na funcao plot
Class <- iris[,5] # classe dos dados

Dim <- 2 # dimensao da projecao dos dados

FcIndex <- "lda" # funcao indice

Res <- PP_Optimizer(Data = Dat, Class = Class, Findex = FcIndex,
               OptMethod = "GTSA", DimProj = Dim, Sphere = Sphere, 
               Weight = TRUE, Lambda = 0.1, r = 1, Cooling = 0.9, 
               Eps = 1e-3, Maxiter = 1000, Half = 30)

Tit <- c("",NA) # titulos para os graficos

Plot.PP(Res, Titles = Tit, PosLeg = 1, BoxLeg = FALSE, Color = TRUE,
        Label = FALSE, LabNames = NULL, AxisVar = TRUE, Axis = TRUE)

MVar.pt documentation built on Nov. 23, 2017, 5:04 p.m.