RPE {PIE} | R Documentation |
RPE: Relative Prediction Error
Description
This function takes predicted values and target values to evaluate the performance of a PIE model. The formula for RPE is:
RPE = \frac{\sum_i (y_i - \hat{y}_i)^2}{\sum_i (y_i - \bar{y})^2}
where \bar{y} = \frac{1}{n}\sum_i^n y_i
.
Usage
RPE(pred, true_label)
Arguments
pred |
The predicted values of the dataset. |
true_label |
The actual target values of the dataset. |
Value
A numeric value representing the relative prediction error (RPE).
Examples
# Load the training data
data("winequality")
# Which columns are numerical?
num_col <- 1:11
# Which columns are categorical?
cat_col <- 12
# Which column is the response?
y_col <- ncol(winequality)
# Data Processing (the first 200 rows are sampled for demonstration)
dat <- data_process(X = as.matrix(winequality[1:200, -y_col]),
y = winequality[1:200, y_col],
num_col = num_col, cat_col = cat_col, y_col = y_col)
# Fit a PIE model
fold <- 1
fit <- PIE_fit(
X = dat$spl_train_X[[fold]],
y = dat$train_y[[fold]],
lasso_group = dat$lasso_group,
X_orig = dat$orig_train_X[[fold]],
lambda1 = 0.01, lambda2 = 0.01, iter = 5, eta = 0.05, nrounds = 200
)
# Prediction
pred <- predict(fit,
X = dat$spl_validation_X[[fold]],
X_orig = dat$orig_validation_X[[fold]]
)
# Validation
val_rrmse_test <- RPE(pred$total, dat$validation_y[[fold]])
[Package PIE version 1.0.0 Index]