There is a worked example of exactly what you are trying to do on the
wireframe/cloud help page. Thinking incorrectly (and foolishly as it
turned out) that this was a reproducible example. I tried your code.
I then tried the help page code. If reviewing the help page is
ineffective, then
Hi. I tried the following:
F<-function(x,y,b1,b2,b3) b1/(1+b2*(x+b3*y));
t<-data.frame(ExM=c(T$ExM,F(T$S1,T$S2,0.2,0.2,51.28205)),S1=rep(T$S1,2),S2=rep(T$S2,2),gr=c(rep(1,length(T$ExM)),rep(2,length(T$ExM;
library(lattice);
wireframe(ExM ~ S1 * S2, data = t, groups=gr);
where
2 matches
Mail list logo
