Displaying 3 results from an estimated 3 matches for "atmp".
Did you mean:
atm
2013 Mar 10
0
Steepest Ascent Algorithm
...#dB1dB1
}
list(l=l,grad=if(gcomp) grad,hess=if(hesscomp)hess)
}
#Steepest ascent algorithm----------------------------------
ascent2 <- function(data,maxit,theta) {
for (it in 1:maxit){
a =like(theta,data,gcomp=T,hesscomp=F)
theta1 = theta + a$grad # Steepest Ascent
atmp = like(theta,data,gcomp=F,hesscomp=F)
halve = 0;
print(c(it, halve, a$l))
print(c(it, halve, atmp$l))
while (theta[1]<=0)
{
halve = halve + 1
theta1 = theta + a$grad/2^(halve)
}
atmp = like(theta1,data,gcomp = FALSE)
while (atmp$l < a$l & halve...
2012 Aug 03
5
replacement has length zero. In addition: Warning message: In max(i) : no non-missing arguments to max; returning -Inf
...577120, 1217578920, 1217580720), tzone = "", tclass = c("POSIXct",
"POSIXt")), .Dim = c(10L, 13L), .Dimnames = list(NULL, c("WDIR",
"WSPD", "GST", "WVHT", "DPD", "APD", "MWD", "PRES", "ATMP", "WTMP",
"DEWP", "VIS", "TIDE")))
I tried to copy some fields from this data to another data. I got error.
Could you please help? Thanks.
diveCond <- data.frame(matrix(0, nrow=97, ncol=17))
names(diveCond) <- c("dive_id", "timestam...
2006 May 03
1
my asterisk crashed
...0 times>, "$5?", '\0' <repeats 11
times>, "x0\000\000\000\000\001\000\000\000\b", '\0' <repeats 39 times>,
"\020\000\000\000\210\214?`", '\0' <repeats 16 times>,
"k\000\000\000\002\000\000\000 *j??(j?3c"...
atmp = '\0' <repeats 79 times>
atmp2 = '\0' <repeats 2380 times>, "May 2 14:06:48", '\0' <repeats
161 times>, "May 2 14:06:48", '\0' <repeats 65 times>,
"0\000\000\000\006\000\000\000\016\000\000\000\002\000\000\0...