data(simGaussian)
plot1 <- surfaceplot(simGaussian, coords_name = c("s1", "s2"),
var_name = "z_true")
plot1
# try your favourite color palette
col.br <- colorRampPalette(c("blue", "white", "red"))
col.br.pal <- col.br(100)
plot2 <- surfaceplot(simGaussian, coords_name = c("s1", "s2"),
var_name = "z_true", col.pal = col.br.pal)
plot2
Run the code above in your browser using DataLab