Displaying 3 results from an estimated 3 matches for "y3a".
Did you mean:
3a
2017 May 24
1
reg-tests-1d.R fails in r72721
...PR#17120
> filename <- "\U9b3c.R"
> print(Encoding(filename))
[1] "UTF-8"
>
> y1 <- paste0("~/", filename)
> print(Encoding(y1))
[1] "UTF-8"
>
> y2 <- path.expand(y1)
> print(Encoding(y2))
[1] "unknown"
>
> y3a <- iconv(y2, to="UTF-8")
> print(Encoding(y3a))
[1] "unknown"
>
> y3b <- enc2utf8(y2)
> print(Encoding(y3b))
[1] "unknown"
>
> Encoding(y2) <- "UTF-8"
> print(Encoding(y2))
[1] "unknown"
>
h.
--
+---
| Hiroyuki...
2012 Jun 13
0
Plotted circle does not go through desired points - very long email with code
...quation that goes through
(xm, ym)
m2 <- (xy$y[i]-pt2$y)/(xy$x[i]-pt2$x)
a.m2 <- atan(m2) # angle in radians
b.m2 <- (pi/2) +a.m2
m3 <- tan(b.m2) # slope of perpendicular line
b3 <- ym -(m3*xm)
?
# Choose again some random points on this line:
x3a <- -100
x3b <- 100
y3a <- m3*x3a + b3
y3b <- m3*x3b + b3
?
# Build the spatial lines (the 2 perpendicular lines) and
find their intersection:
win <- owin(range(-100,x1a, x1b, x3a, x3b, xm, 100),
range(-100,y1a, y1b, y3a, y3b, ym, 100))
ln1 <- psp(x1a, y1a, x1b, y1b, window = win)
ln3 <- psp(x3a, y3a,...
2017 May 24
2
reg-tests-1d.R fails in r72721
On 2017-05-24, Duncan Murdoch wrote:
>
> I think the test is wrong because in the first case you are working in a
> locale where that character is representable. In my locale it is not, so x1
> is converted to UTF-8, and everything compares equal.
>
> An explicit conversion of x1 to UTF-8 should fix this, i.e. replace
>
> x1 <- path.expand(paste0("~/",