ความนิยมของเพลงใหม่

# Create data frame of new data
predict_data <- data.frame(___ = ___, ___ = "Beyoncé")

# Create posterior predictions for Lemonade album
new_predictions <- ___(stan_model, ___ = predict_data)

# Print first 10 predictions for the new data
___[___:___,]

# Print a summary of the posterior distribution of predicted popularity
___(new_predictions[, ___])