session_grid(NULL)
a <- ursa_dummy(nband=6,min=0,max=255,mul=1/4)
## exam 1
compose_open()
compose_close()
## exam 2
compose_open(a)
compose_close()
## exam 3
compose_open("rgb",fileout="tmp1")
compose_plot(a[1:3])
compose_close(execute=FALSE)
Sys.sleep(1)
a <- dir(pattern="tmp1.png")
print(a)
file.remove(a)
Run the code above in your browser using DataLab