Displaying 7 results from an estimated 7 matches for "ly1".
Did you mean:
l1
2005 Mar 23
1
interp.surface() error (PR#7745)
...ieve I have found the problem and a
solution for it:
The scaling calculations in the code,
lx <- ((nx - 1) * (loc[, 1] - xa))/xr + 1
ly <- ((ny - 1) * (loc[, 2] - ya))/yr + 1
can lead to numerical error, so in the following lines
lx1 <- ifelse(lx == nx, nx - 1, trunc(lx))
ly1 <- ifelse(ly == ny, ny - 1, trunc(ly))
the equality statements which are the first arguments to the IF-ELSE
statements return false when they are supposed to be true. I believe the
remedy is to simply avoid absolute equalities, as in the following example
(which has worked for my problem):...
2007 May 29
1
rgl.postscript
...gt;=9)
ge9recs<-seq(1,length(ge9))[ge9]
b1<-sp1m[ge9recs,]
b2<-sp2m[ge9recs,]
b1b2<-cbind(b1[,2],b2[,2])
bavg<-apply(b1b2,1,mean)
blow<-cbind(sp1m[ge9recs,1],bavg)
path.one<-rbind(sp1m[-ge9recs,],blow)
path.two<-rbind(sp2m[-ge9recs,],blow)
uy1<-9-path.one[-ge9recs,1]
ly1<-rep(0,length(ge9recs))
y1<-c(uy1,ly1)
uy2<--1*(9-path.two[-ge9recs,1])
ly2<-rep(0,length(ge9recs))
y2<-c(uy2,ly2)
m1<-cbind(path.one,y1)
m2<-cbind(path.two,y2)
d.mat<-rbind(m1,m2)
open3d()
points3d(x=d.mat[,1],y=d.mat[,3],z=d.mat[,2],size=3)
lines3d(x=m1[,1],y=m1[,3],z=...
2010 Apr 29
1
Request - adding recycled "lwd" parameter to polygon
...crossings <- cumsum(cross[does.cross][o])
if (fillOddEven)
crossings <- crossings%%2
drawline <- crossings != 0
lx <- x0 + xd * tsort
ly <- y0 + yd * tsort
lx1 <- lx[-length(lx)][drawline]
ly1 <- ly[-length(ly)][drawline]
lx2 <- lx[-1L][drawline]
ly2 <- ly[-1L][drawline]
segments(lx1, ly1, lx2, ly2, ...)
}
polygon.fullhatch <- function(x, y, density, angle, ..debug.hatch =
FALSE,
...) {
x <- c(x, x...
2010 Apr 29
1
Request - adding recycled "lwd" parameter to polygon
...crossings <- cumsum(cross[does.cross][o])
if (fillOddEven)
crossings <- crossings%%2
drawline <- crossings != 0
lx <- x0 + xd * tsort
ly <- y0 + yd * tsort
lx1 <- lx[-length(lx)][drawline]
ly1 <- ly[-length(ly)][drawline]
lx2 <- lx[-1L][drawline]
ly2 <- ly[-1L][drawline]
segments(lx1, ly1, lx2, ly2, ...)
}
polygon.fullhatch <- function(x, y, density, angle, ..debug.hatch =
FALSE,
...) {
x <- c(x, x...
2011 Oct 22
0
error on Fast bilinear interpolator from a grid
...Original data contains 6 column with 29,040 lines, and x, y dimension are 240x121.
I would like to get new data from column name: "lon", "lat" and "temp" by x, y dimension are 3,586x1,800
So I used the code as below, but I got error message as "z[cbind(lx1 + 1, ly1)] : out of range"
Help me please.
Thank you in advance.
==============================================================
library(fields)
d <- read.table("test.txt", dec=".", sep = "", nrows = 29040, colClasses="numeric", col.names=c("lon",...
2010 Feb 16
0
replicating aov results with lmer
....20
Layout1 -0.2917 0.4997 -0.58
Fixture1 -0.8333 0.3755 -2.22
Fixture2 1.8542 0.3755 4.94
Layout1:Fixture1 -0.2083 0.3755 -0.55
Layout1:Fixture2 0.8542 0.3755 2.27
Correlation of Fixed Effects:
(Intr) Layot1 Fixtr1 Fixtr2 Ly1:F1
Layout1 0.000
Fixture1 0.000 0.000
Fixture2 0.000 0.000 -0.500
Layt1:Fxtr1 0.000 0.000 0.000 0.000
Layt1:Fxtr2 0.000 0.000 0.000 0.000 -0.500
ass <-
structure(list(Time = c(22, 24, 30, 27, 25, 21, 2...
2020 Feb 27
2
[PATCH] Update the 5 year logo to 10 year logo
...*uh_c`En@abZx1}u{fUkcDa2S+d+{qAL0
zZZUS_4!DTXcN0#u0H=yb(d5PBAit!oLihIL`>k#oK7traY8BuLEi^V<nFm!^K0eDx
zn<F<-VLL|~^Cr|elMi2$oW5%vtq?3)<g@AsZW6jw2K+Cte~L2ZdY{V5zLshn5;kYV
zl<%#q9tSZo{;H>hn>r5B^<DP2{Ph#eg&(+?FZnXGE9L~9fe>$dPJ(HvCjZdGtWyT6
z1Pt`A$wS`_nOykEHj8+mmu7I;EN4)`Ly1s^>oGWi(9@Xg3VSP^9Q)fzdOBqtW%H18
z&5Y=~ss++mu#-akiA;ofeHGLMP2|%OAsyV$?nV_YDfMBXgDT^beHEwm=L!Q<YdAg5
z|GR8TtLLY2d9b?ZxH6`V21D%|K&-+`lZUx`un?qI0bTL{05BpZr7U!#LUT?cjaeb-
zgW~1)u}RI6`*uMjD)Re7R1w8JCf0p*RsDTHlM4iqYeI>6Vj8aec$<_SCAI|~kd9!|
zLEJ$e+%#iyf@cI0Z?duU!_9RP-*u;sP5h?!VJ_Q-jJhY%...