# przykład 2.14

xp<-seq(64.0,64000,length=25)
yp<-seq(0.0,256,length=25)
cpusT<-expand.grid(mmax=xp,cach=yp)

cpus.svm<-svm(log10(perf)~mmax+cach,cpus)
cpusT$perf<-predict(cpus.svm, newdata=cpusT,type="response")
pp<-matrix(cpusT$perf,25,25)
persp(xp,yp,pp,theta = -45, phi = 30, expand = 0.8, d=2, 
ltheta = 30, shade = 0.75,ticktype="detailed",nticks=6, xlab = "mmax",ylab = "cach",zlab = "log10(perf)")->rr