R Programming Question Function Project

I need this function to be written in R using one of the three packages attached below. Please send me either a screenshot or the Rmd file if possible. Also, please include comments on processes. (must be done in R Notebook)

Q8. Write a function with two inputs: x and label: if label is 0, return x − √ x; if label is 1, return x + √ x. Create an R package and name it use your last name. Install your package on your machine. Call your R function in your package and use quality as x, and white-or-red as label (white is 0 and red is 1). Create a histogram in R to show the distribution of transformed “quality”. • Hint: consider R package glue, devtools, roxygen2