
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 T is da dataframe like T<-data.frame(S1=...,S2=...,ExM=...)

 

But the resulting response surface plot is mixed up, ie it is not two seprate surfaces as it should be. I know that as I have plotted them both seperately as well.

Can anyone see what I am doing wrong?

 

Thanks!

Lars

_________________________________________________________________

s. It's easy!

aspx&mkt=en-us
	[[alternative HTML version deleted]]


