The R Project SVN R

Rev

Rev 53111 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 53111 Rev 81437
Line 1... Line 1...
1 
## PR#14384
 1 
## PR#14384
2 
 
 2 
 
3 
sXY <- structure(list(x = c(0, 24, 27, 48, 51, 72, 75, 96, 99),
 3 
sXY <- structure(list(x = c(0, 24, 27, 48, 51, 72, 75, 96, 99),
4 
                      y = c(4.98227, 6.38021, 6.90309, 7.77815, 7.64345, 7.23045, 7.27875, 7.11394, 6.95424)),
 4 
                      y = c(4.98227, 6.38021, 6.90309, 7.77815, 7.64345, 7.23045, 7.27875, 7.11394, 6.95424)),
5 
                 .Names = c("x", "y"), row.names = c(NA, 9L),
 5 
                 names = c("x", "y"), row.names = c(NA, 9L),
6 
                 class = c("sortedXyData", "data.frame"))
 6 
                 class = c("sortedXyData", "data.frame"))
7 
a <- NLSstLfAsymptote(sXY)
 7 
a <- NLSstLfAsymptote(sXY)
8 
d <- NLSstRtAsymptote(sXY)
 8 
d <- NLSstRtAsymptote(sXY)
9 
z <- NLSstClosestX(sXY, (a+d)/2)
 9 
z <- NLSstClosestX(sXY, (a+d)/2)
10 
stopifnot(!is.na(z))
 10 
stopifnot(!is.na(z))