Displaying 4 results from an estimated 4 matches for "width1".
Did you mean:
width
2010 Mar 27
1
string width calculation
...(different strings here and the same font was used for both strings - even under these circumstances, it does not work correctly):
> STRING1 <- "0123456789 0"
> STRING2 <- " x "
> pdf("GREEK.pdf", width=10, height=8)
> par(mfrow=c(1,1))
> WIDTH1 <- strwidth("0123456789", cex=1, units="inches", family="", font=1)
> WIDTH2 <- strwidth("0", cex=1, units="inches", family="", font=1)
> plot(1,1,type="n", axes=F, xlab="", ylab="")
>...
2000 Apr 05
2
My first R-program
...rrect one:
pValCalculator(b, n=20, m=20)
{
ind <- 1:min(c(n,m))
prob <- (1-pnorm(b,sd=std*sqrt(ind)))
prob1 <- sum((n-ind+1)*(m-ind+1)*prob)
prob1
}
inputData <-
scan("/users/lvssso/projects/LAMA/output/pValLamaScore.tmp", list(block1
= "",block2 = "",width1 = 0,width2 = 0,alignment = 0,score = 0));
pVal <- vector(mode = "numeric", length(inputData$score));
for(i in 1:length(inputData$score))
pVal[i] <- pValCalculator(inputData$score, inputData$width1,
inputData$width2);
inputData$pValue <- list(pVal);
write.table(inputData, fi...
2004 Oct 14
2
fidelity of generated raster images (R and perl)
...nd R version 2.0.
print($out "bitmap('/usr/local/mycrow/tmp/out.png', type = 'png256',
height = ".(int($height*68/64)/64).", width =
".(int($width*69/64)/64).", res = 64, pointsize=0)\n");
print($out 'par(mar=c(0,0,0,0))'."\n");
my $width1 = $width-1;
my $height1 = $height-1;
print($out <<END);
plot.new()
plot.window(c(0,$width1),c(0,$height1))
rect(m[,1], m[,2], m[,1], m[,2], col="black", border="black")
There are alternatives to rect (plot with type="p", pch=".", etc)
and I have also t...
2000 Apr 05
0
My first R program
...the *** :
pValCalculator(b, n=20, m=20)
{
ind <- 1:min(c(n,m))
prob <- (1-pnorm(b,sd=std*sqrt(ind)))
prob1 <- sum((n-ind+1)*(m-ind+1)*prob)
prob1
}
inputData <-
scan("/users/lvssso/projects/LAMA/output/pValLamaScore.tmp", list(block1
= "",block2 = "",width1 = 0,width2 = 0,alignment = 0,score = 0));
pVal <- vector(mode = "numeric", length(lamaScore));
for(i in 1:length(inputData$lamaScore)
***** pVal[i] <- pValCalculator(inputData$score, inputData$width1,
inputData$width2);
inputData$pValue <- list(pVal);
write.table(inputData,...