### plot the estimated expected lung volume of children given age and height
data(FEV)
x1=FEV[,1] ## age
x2=FEV[,3] ## height
y=FEV[,2]
ans=iso_pen(y,cbind(x1,x2))
persp(ans$xg1,ans$xg2,ans$xgmat,th=-40,tick="detailed",xlab="age",ylab="height",zlab="FEV")
Run the code above in your browser using DataLab