library(lattice)
grids = GP.generate.grids(d=2L)
Psi_mat = GP.eigen.funcs.fast(grids)
fig = list()
for(i in 1:4){
fig[[i]] = levelplot(Psi_mat[,i]~grids[,1]+grids[,2])
}
plot(fig[[1]],split=c(1,1,2,2),more=TRUE)
plot(fig[[2]],split=c(1,2,2,2),more=TRUE)
plot(fig[[3]],split=c(2,1,2,2),more=TRUE)
plot(fig[[4]],split=c(2,2,2,2))
Run the code above in your browser using DataLab