# Compute the squarer error of power tranformations scoring function.
df <- data.frame(
y = rep(x = 2, times = 3),
x = 1:3,
a = 1:3
)
df$squaredpower_error <- serrpower_sf(x = df$x, y = df$y, a = df$a)
print(df)
Run the code above in your browser using DataLab