Displaying 2 results from an estimated 2 matches for "mydensityfn".
Did you mean:
mydensity
2003 Apr 18
3
superimposing graphs
...*************
mg.hist <- function(len,theta,pos,size)
{
x <- empmargdistvec(len,theta,pos,size)
postscript(file="plot.ps", horizontal = FALSE, onefile = FALSE, paper
= "special", width=6, height=4)
par(mfcol=c(1,2),pch=20)
truehist(x, nbins=100)
mydensityfn <- function(x)
{
mydensity(x,theta,pos,len)
}
curve(mydensityfn)
dev.off()
2003 May 03
1
can't plot ylab in graph
...,size)
{
x <- empmargdistvec(len,theta,pos,size)
postscript(file="plot.ps", horizontal = FALSE, onefile = FALSE, paper
= "special", width=6, height=4)
par(mfcol=c(1,2),pch=20)
truehist(x, nbins=100,xlab=expression(paste("Range ", (theta))))
mydensityfn <- function(x)
{
mydensity(x,theta,pos,len)
}
par(new=T)
curve(mydensityfn, col = "red", add=TRUE)
...
}