Displaying 6 results from an estimated 6 matches for "ycol".
Did you mean:
col
2009 Jul 31
2
another automation question
This code works:
x<-letters[1:6]
ycols<-23:28
xcols<-rep(c(3,4,5,8),each=length(ycols))
somertime<-function(i,j)somers2(Pred_pres_a_indpdt[,i,,], population[,j])
results<-mapply(somertime,xcols,ycols)
How can I make variable "h" work?
x<-letters[1:6]
ycols<-23:28
xcols<-rep(c(3,4,5,8),each=length(yco...
2004 Feb 08
2
substitute, eval, quote and functions
Hi,
i am working with large data frames with many dependend variables. I
want to write some functions that will allow me to quickly select
variables from the frame and plot them in various colors depending on
factor columns, possibly selecting rows according to factor conditions.
In order to do this in a nice function, i need to understand how to work
with a column name in the body of a
2015 Jul 10
0
colour palettes in biplot
biplot could benefit from allowing colour palettes,
eg. allowing col=list(xcol= xxpal, ycol= yypal) where xxpal and yypal
are palettes.
For an example, see the robust pricipal components in the principal
componetent section of
<http://www.statlab.uni-heidelberg.de/data/olive/olive10.pdf>
The required change is to replace
col[1L] resp. col[2L] by col[1L]] reep. col[[2L]] for exam...
2006 Oct 24
0
incorrect number of subscriptions error in user-written function
...or each selection
sec1 = combinations(4,2,1:4)
sec2 = combinations(6,3,5:10)
sec3 = combinations(8,5,11:18)
I then wrote a function to combine the combinations for each selection.
multiperm <-function(x, y) # function to combine combinations
{
xdim = nrow(x)
xcol = ncol(x)
ydim = nrow(y)
ycol = ncol(y)
v1 = matrix( nrow = xdim*ydim, ncol = xcol+ycol )
for ( i in 1:xdim) {
for (j in 1:ydim){
v1[i + (j-1)*xdim , ] = c(x[i,], y[j, ])}
}
v1 = data.frame(v1) # set output as dataframe
}
This works fine when combining sec1 and sec2,
comb = multiperm(sec1,sec2)
However wh...
2012 Sep 13
6
[newbie] aggregating table() results and simplifying code with loop
Dear all,
I'm looking for primary help at aggregating table() results and at
writing a loop (if useful)
My dataset ( http://goo.gl/gEPKW ) is composed of 23k rows, each one
representing a point in the space of which we know the land cover over
10 years (column y01 to y10).
I need to analyse it with a temporal sliding window of 5 years (y01 to
y05, y02 to y06 and so forth)
For each period
2004 Sep 21
1
bubble plots
...ot; "NFi"
I do:
> levels(data$etat) <- c(0, 2, -2, 1, -1)
> data$etat <- as.numeric(as.vector(data$etat))
> C1 <- subset(data, sub=="C" & bloc=="1", select=c(x, y, etat))
> x11()
> lset(theme = col.whitebg())
> bubble(C1, xcol = 1, ycol = 2, zcol = 3,
xlab = "", ylab = "", main = "Bloc 1 - Substrat C",
key.entries = min(C1[, 3]):max(C1[, 3]), maxsize=3)
I then obtain "-2", "-1", "O", etc. as legend labels and cannot find
argument making it possible to label my legend...