search for: lin2

...t;--0.03 b<--0.02 t<-seq(0:144);t y<-p*exp(a*t) + q*exp(b*t)+rnorm(t,sd=0.3*(p* exp(a*t) + q*exp(b*t))) fittA <- nls(y~cbind(exp(a*t), exp(b*t)), algorithm="plinear",start=list(a=-.1, b=-0.2), data=list(y=y, t=t), trace=FALSE);fittA # a b .lin1 .lin2 # -0.003074 -2.777 4512 -2399 fittB <- nls(y~cbind(exp(a*t), exp(b*t)), algorithm="plinear",start=list(a=-.1, b=-0.3), data=list(y=y, t=t), trace=FALSE);fittB # a b .lin1 .lin2 # -0.02248 -0.04684 2414.86017 2052.96601 but 1 - th...

...ly it looks like this ('scuse ascii-art) INTERNET GATEWAY (ADSL-DHCP) / /eth0 (213.x.x.x) | winbox1 -- eth1 (192.x.x.1) [SNAT for incoming] | / /eth1 (192.x.x.10) [SNAT for incoming from eth0] | lin1 -- eth0 (192.x.x.20) | lin2 -- eth0 (192.x.x.21) | lin3 -- eth0 (192.x.x.22) I decided to use the same subnet and simply SNAT the connections from lin2 and lin3 which works a treat, I can access (outgoing) anything I like from all the lin boxes, having cleverly <g> set up the routing tables. I've con...

Hi all, I am not a mathematician and I am trying to fit a function which could fit my observed data. Which function should I use and how could I fit it to data in R? Below are the data: x <- c(0, 9, 17, 24, 28, 30) y <- c(500, 480, 420, 300, 160, 5) I use R for Mac OS, version 2.10-1 2009-08-24 Thank you for your help. Vincent. [[alternative HTML version deleted]]

Hi, I have a problem fitting the following Weibull Model to a set of data. The model is this one: a-b*exp(-c*x^d) If I fitted the model with CurveExpert I can find a very nice set of coefficients which create a curve very close to my data, but when I use the nls.lm function in R I can't obtain the same result. My data are these: X Y 15 13 50 13 75 9 90 4 With the commercial

This data are kilojoules of energy that are consumed in starving fish over a time period (Days). The KJ reach a lower asymptote and level off and I would like to use a non-linear plot to show this leveling off. The data are noisy and the sample sizes not the largest. I have tried selfstarting weibull curves and tried the following, both end with errors. Days<-c(12, 12, 12, 12, 22, 22, 22,

...near parameters: > DF <- data.frame(X = c(15, 50, 75, 90), Y = c(13, 13, 9, 4)) > > nls(Y ~ cbind(1, exp(-c*X^d)), DF, start = list(c = 1, d = 1), alg = "plinear") Nonlinear regression model model: Y ~ cbind(1, exp(-c * X^d)) data: DF c d .lin1 .lin2 1.000e+00 1.000e+00 8.667e+00 1.417e+07 residual sum-of-squares: 40.67 Number of iterations to convergence: 0 Achieved convergence tolerance: 0 --Forwarded Message Attachment-- From: pmilin at ff.uns.ac.rs To: r-help at stat.math.ethz.ch Date: Mon, 23 Aug 2010 21:33:19 +0200 Subject: [R] Coin...