Displaying 1 result from an estimated 1 matches for "trsurfy".
2004 Aug 06
1
: (Lattice): Overlaying more than one trend surface using contourplot() and wireframe()
...osity <- c(62,60,66,59,72,69,68,70,71,68,71,58,57)
molwt <-
c(2940,3470,3680,3890,3480,3200,3410,3290,3500,3360,3020,3630,3150)
###################################################################################
## Fit 2-order Polynomial trend for Yield
Yield.ls <- surf.ls(2, g, h, Yield)
trsurfY<- trmat(Yield.ls,min(g), max(g),min(h), max(h),100)
trsurfY[c("x","y")]<- expand.grid(x=trsurfY$x,y=trsurfY$y)
## Fit 2-order Polynomial trend for viscosity
viscosity.ls <- surf.ls(2, g, h, viscosity)
trsurfV<- trmat(viscosity.ls,min(g), max(g),min(h), max(h),100)
tr...