Displaying 5 results from an estimated 5 matches for "asmr".
Did you mean:
asm
2003 Jul 01
2
strange error message
...r message:
> bio<-matrix(NA, ncol=9, nrow=366)
> W<-NULL
> M<- length(Day) #number of days iterated
>
> for (i in 1:M)
+ {
+
+
+ if (Day[i]==1) W[i] <- Wo else W[i] <- (W[i-1]+(Gr[i]/Ef))
+
+
+ C<- p*CA*(W^CB)*(((comp[,3])^Xc)*(exp(Xc*(1-(comp[,3])))))*Pc
+
+ ASMR<- ACT*RA*(W^RB)*(((comp[,4])^Xa)*(exp(Xa*(1-(comp[,4])))))
+
+ SMR<- (ASMR/ACT)
+
+ A<- (ASMR-SMR)
+
+ F<- (FA*((comp[,2])^FB)*(exp(FG*p))*C)
+
+ U<- (UA*((comp[,2])^UB)*(exp(UG*p))*(C-F))
+
+ SDA<- (S*(C-F))
+
+ Gr<- (C-(ASMR+F+U+SDA))
+
+ bio<- cbind(W, C, ASMR, SMR...
2003 Jul 01
1
Creating a loop that works....
...ps my rbind at the end of the file is incorrect? I think maybe I'm getting
mixed up between calculating vectors and values-- should I be specifying [i]
for everything below where I am now specifying vecotrs?
+ #W<-Wo
+
+ C<- p*CA*(W^CB)*((comp[,3]^Xc)*(exp(Xc*(1-comp[,3]))))*Pc
+
+ ASMR<- (ACT*RA*(W^(RB))*((comp[,4]^Xa)*(exp(Xa*(1-comp[,4])))))
+
+ SMR<- (ASMR/ACT)
+
+ A<- (ASMR-SMR)
+
+ F<- (FA*(comp[,2]^FB)*(exp(FG*p))*C)
+
+ U<- (UA*(comp[,2]^UB)*(exp(UG*p))*(C-F))
+
+ SDA<- (S*(C-F))
+
+ Gr<- (C-(ASMR+F+U+SDA))
+ #Day, Temp, Vc, Vr, W, C, ASMR, SMR,...
2003 Jul 14
2
problem with coding for 'optim' in R
...y, Temp = daily avg. temp.
> #temp [,2]
>
> Vc<-(CTM-(temp[,3]))/(CTM-CTO)
> Vr<-(RTM-(temp[,3]))/(RTM-RTO)
>
> comp<- cbind (Day, jday, Temp, Vc, Vr)
>
> #comp
>
> bio<-matrix(NA, ncol=13, nrow=length(Day))
> W<-NULL
> C<-NULL
> ASMR<-NULL
> SMR<-NULL
> A<-NULL
> F<-NULL
> U<-NULL
> SDA<-NULL
> Gr<-NULL
> Hg<-NULL
> Ed<-NULL
> GHg<-NULL
> K<-NULL
> Expegk<-NULL
> EGK<-NULL
> p<-NULL
> ACT<-NULL
>
>
> p <- 0.558626...
2003 Jun 30
0
Constructing loops in which i+1st element depends on ith
...mp, Vc, Vr)
bio<-NULL
M<- length(Day) #number of days iterated
for (i in 1:M)
{
weight<- function(Day)
{
W<-NULL
if (Day[i]==1) W[i] <- Wo
{W[i] <- ((bio[i-1,1]*bio[i-1,9])/Ef)
}
W
}
W<-weight(Day)
#W<-Wo
C<- p*CA*(W^CB)*((comp[,3]^Xc)*(exp(Xc*(1-comp[,3]))))*Pc
ASMR<- (ACT*RA*(W^(RB))*((comp[,4]^Xa)*(exp(Xa*(1-comp[,4])))))
SMR<- (ASMR/ACT)
A<- (ASMR-SMR)
F<- (FA*(comp[,2]^FB)*(exp(FG*p))*C)
U<- (UA*(comp[,2]^UB)*(exp(UG*p))*(C-F))
SDA<- (S*(C-F))
Gr<- (C-(ASMR+F+U+SDA))
bio<- rbind(c(W, C, ASMR, SMR, A, F, U, SDA, Gr))
dimnames...
2003 Jul 15
7
Excel can do what R can't?????
...t;- cbind (Day, jday, Temp)
#Day = number of days modelled, jday=julian day, Temp = daily avg. temp.
#temp [,2]
Vc<-(CTM-(temp[,3]))/(CTM-CTO)
Vr<-(RTM-(temp[,3]))/(RTM-RTO)
comp<- cbind (Day, jday, Temp, Vc, Vr)
#comp
bio<-matrix(NA, ncol=13, nrow=length(Day))
W<-NULL
C<-NULL
ASMR<-NULL
SMR<-NULL
A<-NULL
F<-NULL
U<-NULL
SDA<-NULL
Gr<-NULL
Hg<-NULL
Ed<-NULL
GHg<-NULL
K<-NULL
Expegk<-NULL
EGK<-NULL
p<-NULL
ACT<-NULL
#starting values for p, ACT
p <- 1 # 0.558626306252032 #solution set for p, ACT from excel 'solver' f'...