Displaying 20 results from an estimated 5656 matches for "upper".
2010 Jan 10
1
scatterplot matrix with ggplot2
..."Bonham Lower",
"Bonham Lower", "Bonham Lower", "Bonham Lower", "Bonham Lower",
"Bonham Lower", "Bonham Lower", "Bonham Lower", "Bonham Lower",
"Bonham Lower", "Bonham Lower", "Bonham Upper", "Bonham Upper",
"Bonham Upper", "Bonham Upper", "Bonham Upper", "Bonham Upper",
"Bonham Upper", "Bonham Upper", "Bonham Upper", "Bonham Upper",
"Bonham Upper", "Bonham Upper", "...
2013 May 30
2
RFC: a "safe" uniroot() function for future R
...--------------------------------------------------------------
The help file says
?unirootS()? is a ?safe? version of ?uniroot()?, built on
?uniroot()?, also useful as drop-in replacement of ?uniroot()? in
some cases. ?Safe? means searching for the correct ?interval =
c(lower,upper)? if ?sign(f(x))? does not satisfy the requirements
at the interval end points; see the ?Details? section.
We've had this function, called safeUroot() in our package
copula for a while now, where an earlier not-exported version
has been in my package nor1mix even longer.
When I was tempt...
2007 Jul 04
2
for loop doesn't stop with upper loop value
Hi list,
could anyone please educate me on the following:
lst<-seq(47, 239, by=12)
for(n in lst)
{
lower=n; upper=lower+10
for(i in lower+2 : upper)
{
print(paste(n, " i: ", i, " lower: ",lower, " upper :", upper))
}
}
does not stop when i = upper
A while loop fixes this but, I still don't understand why the for loop
doesn't stop when I has the value o...
2010 Oct 19
2
superpose.polygon, panel.polygon and their colors
...y.newcastle.edu.au/R/e2/help/07/04/15595.html
I'm reproducing here the code for your convenience
est <- c(1:4, 3:6, 7, 9, 11, 13, 12, 15, 18, 21)
cond <- rep(c('a','b'), each = 8)
grp <- rep(c('I', 'II'), each = 4, 2)
x <- rep(c(.5, .7, .9, 1.1), 4)
upper <- est + 1
lower <- est - 1
data <- data.frame(est = est, x = x, cond = cond, grp = grp, upper =
upper, lower = lower)
rm(est, cond, grp, x, upper,lower)
panel.bands <-
function(x, y, upper, lower,
subscripts, col, ..., font, fontface) {
upper <- upper[subscr...
2007 Jun 28
2
minor flaw in integrate()
Hi,
I noticed a minor flaw in integrate() from package stats:
Taking up arguments lower and upper from integrate(),
if (lower == Inf) && (upper == Inf)
or
if (lower == -Inf) && (upper == -Inf)
integrate() calculates the value for (lower==-Inf) && (upper==Inf).
Rather, it should return 0.
Quick fix:
### old code ###
### [snip]
else {...
2005 Apr 15
2
abbreviate or wrap dimname labels
...le, this two-way table has dimnames too long to
be displayed nicely in a mosaicplot:
> library(catspec)
> library(vcd)
>
> data(FHtab)
> FHtab<-as.data.frame(FHtab)
>
> xtable <- xtabs(Freq ~ .,FHtab)
> lab <- dimnames(xtable)
> lab
$OccFather
[1] "Upper nonmanual" "Lower nonmanual" "Upper manual" "Lower manual"
[5] "Farm"
$OccSon
[1] "Upper nonmanual" "Lower nonmanual" "Upper manual" "Lower manual"
[5] "Farm"
abbreviate works here, but gives resu...
2009 Apr 22
2
integrate lgamma from 0 to Inf
...he computation works, but this is against the suggestion of integrates help information to use Inf explicitly. Using stirlings approximation doesnt bring the solution too.
## Stirlings approximation
lgammaApprox <- function(x)
{
0.5*log(2*pi)+(x-(1/2))*log(x)-x
}
integrate(lgamma, lower = 0, upper = 1.0e120)
integrate(lgammaApprox, lower = 0, upper = 1.0e120)
> integrate(lgamma, lower = 0, upper = 1.0e120)
1.374051e+242 with absolute error < 3.2e+235
> integrate(lgammaApprox, lower = 0, upper = 1.0e120)
1.374051e+242 with absolute error < 3.2e+235
integrate(lgamma, lower = 0, up...
2008 Jun 19
1
Setting the xlab for 'the other' (upper) X axis?
I would like to set the 'xlab' on the 'upper' x axis. The following code
shows roughly what I want by way of (one possible) expected behaviour.
par(mar=c(5.1, 4.1, 5.1, 2.1))
plot(rnorm(10), rnorm(10), xlab="the lower one")
axis(3, xlab="the upper one????")
There are various other ways that could be expected to work,...
2009 Jul 21
4
How to extract the upper xlim and ylim of my plot?
Dear R-helpers,
I wish to place some text in a plot, at approx 10% of my upper xlim and
approx 90% of my upper ylim, i.e.
> plot(log(all$SR,10)~log(all$AREA,10))
> text(.1*max(xlim),.9*max(ylim),"text to be placed")
(I know how to give absolute coordinates for text location, but I wish to
use relative coordinates).
My code (above) doesn't work because I...
2005 Apr 01
1
plotCI error when trying to omit upper or lower bars (PR#7764)
Full_Name: Volker Franz
Version: 2.0.1 (2004-11-15)
OS: Mac OSX / Debian
Submission from: (NULL) (84.58.8.232)
Hi there,
the new version of plotCI (Version: 2.0.3 of gplots) produces errors
if the upper or lower error bars should be omitted by passing NULL as
an argument. Older versions of plotCI had no problem with this. Here
is an example:
library(gplots)
means <- c(1,2,3,4,5)
upperw <- c(1,1,1,1,1)
lowerw <- c(1,1,1,1,1)
upper <- means+upperw
lower <- means-lowerw
plotCI(x=...
2023 Jan 16
1
Debian11 Samba backport and bind9
...= get_string(bind_info)
bind9_8 = '#'
bind9_9 = '#'
bind9_10 = '#'
bind9_11 = '#'
bind9_12 = '#'
bind9_14 = '#'
bind9_16 = '#'
bind9_18 = '#'
if bind_info.upper().find('BIND 9.8') != -1:
bind9_8 = ''
elif bind_info.upper().find('BIND 9.9') != -1:
bind9_9 = ''
elif bind_info.upper().find('BIND 9.10') != -1:
bind9_10 = ''
elif bind_info.upper().f...
2006 Aug 07
2
Dynamically created queries
...o do this.
rgds,
- matt.
-----------------------------------------------------------
This is roughly how I''ve mangle rails as I would have done it in PHP
event = Event.new(params[:event])
strQuery = ""
unless event.event_name.blank
strQuery = "UPPER(event_name) LIKE UPPER(" +
event.event_name.to_s + ") "
end
unless event.artist.blank
strQuery += sql_and(strQuery)
strQuery += "UPPER(artist) LIKE UPPER(" + event.artist.to_s + ")
"
end
unless event.city.blank
s...
2009 Feb 23
1
r: intergrate behaviour
hello R users
strange behavior of the integrate function!
i assume this occurs because of the way in which the quadriture is set up! (any comments.)
f=function(x){exp(-exp(-x)-5*x)/gamma(5)}
xx=seq(from=-20, to=20, length.out=1000)
plot(xx,f(xx),type="l")
integrate(f, lower=-Inf, upper= 1)
integrate(f, lower=-Inf, upper= 10)
integrate(f, lower=-10, upper= 11)
integrate(f, lower=-Inf, upper= 11)
integrate(f, lower=-Inf, upper= Inf)
the results:
> integrate(f, lower=-Inf, upper= 1)
0.9999586 with absolute error < 2.1e-06
> integrate(f, lower=-Inf, upper= 10)
1 with...
2023 Jan 16
1
Debian11 Samba backport and bind9
...= '#'
> ??????? bind9_9 = '#'
> ??????? bind9_10 = '#'
> ??????? bind9_11 = '#'
> ??????? bind9_12 = '#'
> ??????? bind9_14 = '#'
> ??????? bind9_16 = '#'
> ??????? bind9_18 = '#'
> ??????? if bind_info.upper().find('BIND 9.8') != -1:
> ??????????? bind9_8 = ''
> ??????? elif bind_info.upper().find('BIND 9.9') != -1:
> ??????????? bind9_9 = ''
> ??????? elif bind_info.upper().find('BIND 9.10') != -1:
> ??????????? bind9_10 = ''
> ??...
2019 Dec 31
2
[PATCH] drm/nouveau: declare constants as unsigned long.
...km/subdev/fb/ramgf100.c
index ac87a3b6b7c9..506b358fcdb6 100644
--- a/drivers/gpu/drm/nouveau/nvkm/subdev/fb/ramgf100.c
+++ b/drivers/gpu/drm/nouveau/nvkm/subdev/fb/ramgf100.c
@@ -655,7 +655,7 @@ gf100_ram_new_(const struct nvkm_ram_func *func,
static const struct nvkm_ram_func
gf100_ram = {
- .upper = 0x0200000000,
+ .upper = 0x0200000000UL,
.probe_fbp = gf100_ram_probe_fbp,
.probe_fbp_amount = gf100_ram_probe_fbp_amount,
.probe_fbpa_amount = gf100_ram_probe_fbpa_amount,
diff --git a/drivers/gpu/drm/nouveau/nvkm/subdev/fb/ramgf108.c b/drivers/gpu/drm/nouveau/nvkm/subdev/fb/ramgf108.c
ind...
2004 Sep 04
5
R question
...I write about this R program as follows but I don¡¦t know how to get the value of x which is between 2.1782 and 2.1783.
library(mvtnorm)
value<-array(1000)
a<-array(1000)
a<-seq(2,3,by=0.001)
for(i in 1000)
{
x<-a[i]
value[i]<-2*(pmvnorm(lower=-Inf, upper=-x, mean=0, sigma=1)+
pmvnorm(lower=c(-x,-Inf),upper=c(x,-x),mean=0,corr=diag(2)*sqrt(0.5)))
if(value[i]-0.05<0.001)
print(x)
}
---------------------------------
[[alternative HTML version deleted]]
2012 Dec 11
1
converting manual command to loop command
...recent past, is prety large. I want to convert these massive sets of commands into a simple loop.
Your help is required on it
thanks in advance
eliza
kindly note:
"e" is matrix whose each column has to be executed into a distance vector
##To get a distance matrix
>a<-dist(e[,1], upper=TRUE, diag=TRUE)
##To convert it in a matrix
>a<-matrix(a, ncol=1)
>b<-dist(e[,2], upper=TRUE, diag=TRUE)
>b<-matrix(b, ncol=1)
>c<-dist(e[,3], upper=TRUE, diag=TRUE)
>c<-matrix(c, ncol=1)
>d<-dist(e[,4], upper=TRUE, diag=TRUE)
>d<-matrix(d,...
2012 Oct 18
3
Upper limit in nlsLM not working as expected
Dear all,
I am using the nlsLM function to fit a Lorentzian function to my experimental data.
The LM algorithm should allow to specify limits, but the upper limit appears not to work as expected in my code.
The parameter 'w', which is peak width at half maximuim always hits the upper limit if the limit is specified. I would expect the value to be in-between the upper and lower limit with maybe hitting either limit occasionally.
The code below...
2023 Jan 16
1
Debian11 Samba backport and bind9
...bind9_9 = '#'
>> ???????? bind9_10 = '#'
>> ???????? bind9_11 = '#'
>> ???????? bind9_12 = '#'
>> ???????? bind9_14 = '#'
>> ???????? bind9_16 = '#'
>> ???????? bind9_18 = '#'
>> ???????? if bind_info.upper().find('BIND 9.8') != -1:
>> ???????????? bind9_8 = ''
>> ???????? elif bind_info.upper().find('BIND 9.9') != -1:
>> ???????????? bind9_9 = ''
>> ???????? elif bind_info.upper().find('BIND 9.10') != -1:
>> ???????????? bind9_10 =...
2009 Mar 05
3
text at the upper left corner outside of the plot region
Hi,
is there a way to place text at the upper left corner (or another
corner) of the plot?
I want to place it really at the upper left corner of the whole plot
(the file I get),
not at the upper left corner of the plot-region.
I tried text() and mtext(), and corner.label() of the plotrix package
but it didn't work out.
thanks!