Displaying 2 results from an estimated 2 matches for "tabmika".
Did you mean:
ambika
2004 Apr 09
1
bootstrap function coefficients
...bootstrap. The data table
called «RMika», contained times (Tps) and corresponding concentration of a
chemical in a soil (SolA). I would like to get, by bootstraping, 10
estimations of the parameters C0 and k from the function: SolA =
C0*exp(-k*Tps).
# First, I fit the data and all is OK
> tabMika<-read.delim("RMika.txt")
> library(nls)
> attach(tabMika)
> Expon<-function(Tps,parm){
+ C0<-parm[1]
+ k<-parm[2]
+ }
> DegSA.nls<-nls(SolA~C0*exp(-k*Tps),start=c(C0=35, k=1),tabMika)
> summary(DegSA.nls)
Formula: SolA ~ C0 * exp(-k * Tps)
Parameters:...
2004 Mar 12
0
Basic questions on nls and bootstrap
...day and y data are pollutant
concentration in soil.
In a first time, I want to fit the data for the soil A by using the Ct =
C0*exp(-k*Tpst) with Ct the concentration of pollutant at time t, C0 is the
initial concentration (i.e. t=0), Tps is the time in days.
The table containing data is called «tabMika»
Here, you can find my R program:
> tabMika<-read.delim("RMika.txt")
> tabMika
Tps SolA Solb
1 0 32.97 35.92
2 0 32.01 31.35
3 1 21.73 22.03
4 1 23.73 18.53
5 2 19.68 18.28
6 2 18.56 16.79
# and continue like that until 29 days.
> library(nls)...