Displaying 2 results from an estimated 2 matches for "m_na".
Did you mean:
m_a
2009 Apr 14
1
mean fold change issues and p values
...orm.test[i,j]
m <- m+1
}
n = 1
for(j in col_s2:col_e2){
nb.int.norm[n] <- data.norm.test[i,j]
n <- n+1
}
m_na = mean(na.int.norm, na.rm=TRUE)
m_nb = mean(nb.int.norm, na.rm=TRUE)
mean.na[i] = exp(m_na)
mean.nb[i] = exp(m_nb)
if(group_size[g_1]-sum(is.na(na.int.norm))>1 && group_size[g_2]-sum(is.na(nb.int.norm))>1){...
2013 Feb 18
1
attempt to apply non-function
...;t
know why because I have implemented the function and I'm calling the
function with a parameter. I'm obviously missing the plot ... Can someone
perhaps point out the error of my ways?
Error:
> out<-ode(y=init, times=times, func=G1999, parms=parms, method="lsoda")
Error in m_Na(v) : attempt to apply non-function
Code:
library(deSolve)
G1999 <- function(time, init, parms) {
with(as.list(c(init, parms)),{
m_Na <- function(v) 1 / (1 + 15 * exp(-0.769 * (v+34)) * ((1 -
exp(-0.05(v+6)/0.11 * v + 0.66))))
dv <- I_ext - (
+ g_Na * (m_Na(v))^3 * h_Na...