PDA projection pursuit strategy.

Creates a Penalized Discriminant Analysis (PDA) projection pursuit strategy for use with pptr or pprf.

Usage

pp_pda(lambda = 0)

Arguments

lambda

A regularization parameter between 0 and 1. If lambda = 0, the model uses Linear Discriminant Analysis (LDA). If lambda > 0, the model uses Penalized Discriminant Analysis (PDA).

Value

A pp_strategy object.

See also

pptr, pprf, dr_uniform, dr_noop, sr_mean_of_means

Examples

# PDA with lambda = 0.5
pp_pda(0.5)
#> $name
#> [1] "pda"
#> 
#> $display_name
#> [1] "PDA"
#> 
#> $lambda
#> [1] 0.5
#> 
#> attr(,"class")
#> [1] "pp_strategy"

# Use with pptr
pptr(Type ~ ., data = iris, pp = pp_pda(0.5))
#> 
#> Project-Pursuit Oblique Decision Tree:
#> If ([ 0 -0.04 0.03 0.03 ] * x) < 0.01580044:
#>   Predict: setosa 
#> Else:
#>  If ([ 0 0.03 -0.06 -0.15 ] * x) < -0.4503323:
#>    Predict: virginica 
#>  Else:
#>    Predict: versicolor 
#> 

# Use with pprf
pprf(Type ~ ., data = iris, pp = pp_pda(0.5), dr = dr_uniform(2))
#> 
#> Random Forest of Project-Pursuit Oblique Decision Tree
#> -------------------------------------
#> Tree 1:
#> If ([ 0 0 0.05 0 ] * x) < 0.1617731:
#>   Predict: setosa 
#> Else:
#>  If ([ 0.01 0 0 0.24 ] * x) < 0.4458542:
#>    Predict: versicolor 
#>  Else:
#>    Predict: virginica 
#> 
#> Tree 2:
#> If ([ 0.02 0 0 0.09 ] * x) < 0.2074318:
#>   Predict: setosa 
#> Else:
#>  If ([ 0 0 0.06 0.15 ] * x) < 0.5487639:
#>    Predict: versicolor 
#>  Else:
#>    Predict: virginica 
#> 
#>