Я получил коды из другой лаборатории, используя следующую строку:
image(plot_bm.mat, col = mycol, axes = F, useRaster = T, zlim = c(z.lim[1], z.lim[2]))
, в которой mycol <- colItay(seq(0,1,0.01))[30:100].
Полученное изображение
Не могу найти функцию colItay. Может кто-нибудь объяснить мне, что это такое?