Displaying 7 results from an estimated 7 matches for "lphi".
Did you mean:
lph
2011 Mar 29
1
Dirichlet surface
...term1*term2*term3
}
z <- outer(x1, x2, f)
z[z<=0] <- NA
persp(x1, x2, z,
main = "Dirichlet Distribution",
col = "lightblue",
theta = 50,
phi = 20,
r = 50,
d = 0.1,
expand = 0.5,
ltheta = 90,
lphi = 180,
shade = 0.75,
ticktype = "detailed",
nticks = 5)
#<end code>
It works fine (I guess), except for a1=a2=a3=1. In that case I get the
error: Error in persp.default... invalid 'z' limits.
The z matrix has only elements 2 and NA.
Any ideas are app...
2017 Jun 21
0
customizing color key with plot3D
...ncluding clim, I needed to omit breaks. This code uses one of your other examples as a starting point and works as intended:
persp3D(z = volcano, zlim = c(-60, 200), phi = 20,
colkey = list(length = 0.2, width = 0.4, shift = 0.15,
cex.axis = 0.8, cex.clab = 0.85), lighting = TRUE, lphi = 90,
clab = c("","height","m"), bty = "f", plot = FALSE)
elev.classes <- matrix(findInterval(volcano, vec = seq(50, 200, by=50)), nrow=nrow(volcano), ncol=ncol(volcano))
class.colors <- c("red", "blue", "green")
#...
2002 Nov 04
0
persp(), x- and y-axis with character strings
...axis are the yields.
The following code works fine:
persp(y, x, as.matrix(ypper), xlab="Last 50 periods", ylab="Maturities
(months)",zlab="Yields",
zlim=c(3,6),theta=130, phi=15, col="Seagreen", box=T, ticktype="detailed",
shade=0.3,
ltheta=270, lphi=30, r=sqrt(3), expand=.75, main="Historical yield curves")
Now, I want to replace the x- and y-axis with character strings, such that:
temp<-seq(ISOdate(1999,1,1), by="week", length=(nrow(yall)))
temp.ymd <-
substr(as.character(temp),1,10)[(lastobs-index[length(index)]):...
2005 Feb 01
0
persp plots axis tick-labels
...f numbers with ordered lists of labels. if I
pass levels(Columns) as the y-axis I get :
non-numeric argument to binary operator
- but I can't work out how to access the labels in any other way.
This is the command I am using :
persp(Rows,Columns,FRm,xlim=c(0,500),theta=28,phi=40,ltheta=20,lphi=135,col='gray',shade=0.7,r=1,box=TRUE,ticktype='detailed',d=1,expand=0.7,xlab='Frequency(Hz)',ylab="Source's
Distance from Floor",zlab='Floor Related Transfer Function(dB)')
with
yaxis :
> Columns
[1] 1 2 3 4 5 6 7 8
x axis :
> Rows
[1] 46...
2012 Nov 05
0
slider control questions
...main = bquote(paste("Dirichlet eloszlás, ", alpha ,"=(",.(a1),",",.(a2),",",.(a3),")")),
col = "lightblue",
theta = 50,
phi = 20,
r = 50,
d = 0.1,
expand = 0.5,
ltheta = 90,
lphi = 180,
shade = 0.75,
ticktype = "detailed",
nticks = 5)
}
plot.dirichlet<-function(){
refresh.code<-function(...){
a1<-slider(no=1); a2<-slider(no=2); a3<-slider(no=3)
type= slider(obj.name="type")
dirfelulet(a1,a2,a3)
}...
2017 Jun 21
0
customizing color key with plot3D
...bels at the breaks and nothing at the midpoints. How can I show the class labels at 1:3, and not the breaks?
library(plot3D)
persp3D(z = volcano, zlim = c(-60, 200), phi = 20,
colkey = list(length = 0.2, width = 0.4, shift = 0.15,
cex.axis = 0.8, cex.clab = 0.85), lighting = TRUE, lphi = 90,
clab = c("","height","m"), bty = "f", plot = FALSE)
# classify the volcano elevations with 3 classes
elev.classes <- matrix(findInterval(volcano, vec = seq(50, 200, by=50)), nrow=nrow(volcano), ncol=ncol(volcano))
class.colors <- c("r...
2005 Jun 24
9
R demos
Hi All,
I am currently preparing some form of slideshow introducing R and its
capabilities for some colleagues. The thing will be about 30 mins, and
I'd like to have some "pretty pictures" and some "amazing facts" (I'm
trying to sell, obviously :)).
Can I ask if it's possible to easily retrieve a gross figure of the
number of functions in R considering the