Displaying 4 results from an estimated 4 matches for "lim1".
Did you mean:
lim
2009 Oct 14
0
Problem with NLSstClosestX; and suggested fix
...--------------------
NLSstClosestX.sortedXyData <- function (xy, yval)
{
deviations <- xy$y - yval
if (any(deviations==0)) xy$x[match(0, deviations)] else { # new line
inserted
if (any(deviations <= 0)) {
dev1 <- max(deviations[deviations <= 0])
lim1 <- xy$x[match(dev1, deviations)]
if (all(deviations <= 0)) {
return(lim1)
}
}
if (any(deviations >= 0)) {
dev2 <- min(deviations[deviations >= 0])
lim2 <- xy$x[match(dev2, deviations)]
if (all(deviations &...
2007 Jan 08
1
finer control of scales in xyplot
When plotting over multiple pages in lattice, I'd like to be able to
have "same" scales within a page, but "free" scales between pages. In
other words, something like:
z<-data.frame(x=1:100,
y=runif(100),
d=rep(1:2,50),
p=rep(1:2,each=50))
plot<-xyplot(y~x|d*p,
data=z,
2004 May 31
0
Doubts on anova and use of contrasts in multcomp package
...0) # r2 vs r3/e1
C3 = c(0, 2, 0, -1, 0, -1) # r1 vs (r2,r3)/e2
C4 = c(0, 0, 0, 1, 0, -1) # r2 vs r3/e2
C = rbind(C1, C2, C3, C4)
row.names(C) = c('r1 vs (r2,r3)/e1', 'r2 vs r3/e1',
'r1 vs (r2,r3)/e2', 'r2 vs r3/e2')
lim1 = lm(y ~ aux, data = df)
print(anova(lim1))
tc1 = simtest(y ~ aux, data = df, conf.level = 0.9,
alternative = 'less', eps = 1e-04, cmatrix = C)
print(summary(tc1))
#===Below: verifying E effect in R levels (already analized in av2)
# (with auxiliary variable - aux)...
2006 Jul 28
3
R uses private function in libc (PR#9107)
Full_Name: Quanah Gibson-Mount
Version: 2.3.0, 2.3.1
OS: Linux
Submission from: (NULL) (171.66.155.86)
libc used to export the symbol:
__libc_stack_end;
however, newer versions of libc no longer export it. R has some serious
problems around this, because the code has:
# ifdef linux
extern void * __libc_stack_end;
# endif
and
#if defined(linux)
R_CStackStart = (uintptr_t)