Missing plotfunctions.R from book Chapter 6 (6.7.2)

[slsevilla]

Hi - Following the information listed in Chapter6.7.2 and having an issue with the code because there is no information on where 'plotfunction.R' came from. Can you provide me the location of this R file?

#load plotfunction 
source("plotfunction.R")

#load metasheet for RIMA pipeline
metasheet <- read.csv("metasheet.csv")

#methods: CIBERSORT, quanTIseq, EPIC, MCP, xCell, TIMER
hmap(ta = res_ciber, meta = metasheet, methods = "CIBERSORT", phenotype = "Responder")