Displaying 4 results from an estimated 4 matches for "wheat3".
Did you mean:
wheat
2007 Jul 25
1
how to use "replace" for efficiency
...NA's if runoff data > rainfall data
if (is.na(wheat2[i,5:7])==FALSE && any(wheat2[i,5:7]>wheat2[i,8])) {
wheat2[i,5:7] <- NA
}
}
I tried this:
wheat1 <- replace(wheat2[,5:7],is.na(wheat2[i,5:7])==FALSE &&
any(wheat2[i,5:7]>wheat2[i,8]),NA)
wheat3 <- cbind(wheat2[1:4],wheat1,wheat2[,8])
> wheat3[5539,] # the culprit row
DateRain Rain StartDate EndDate RO.A RO.B RO.C filtered.Rain
5539 28-Feb-58 0 27-Feb-58 28-Feb-58 61.5 88.7
65 0
Not sure what I am doing wrong, any help is appreciated
Wi...
2000 Mar 29
1
A "stack" function
...4 4.9 6 5.2
$ Oats : num 8.3 6.1 7.8 7 5.5 7.2
> stack <- function(data)
+ data.frame(values = unlist(data),
+ lev = factor(rep(names(data), lapply(data, length))))
> stack(ex10.09) # try it on the example
values lev
Wheat1 5.2 Wheat
Wheat2 4.5 Wheat
Wheat3 6.0 Wheat
Wheat4 6.1 Wheat
Wheat5 6.7 Wheat
Wheat6 5.8 Wheat
Barley1 6.5 Barley
Barley2 8.0 Barley
Barley3 6.1 Barley
Barley4 7.5 Barley
Barley5 5.9 Barley
Barley6 5.6 Barley
Maize1 5.8 Maize
Maize2 4.7 Maize
Maize3 6.4 Maize
Maize4 4.9 Maiz...
2000 Feb 29
0
mapping of colornames into hsv: half way done
...uot;,
"violetred2", "#EE3A8C",
"violetred3", "#CD3278",
"violetred4", "#8B2252",
"wheat", "#F5DEB3",
"wheat1", "#FFE7BA",
"wheat2", "#EED8AE",
"wheat3", "#CDBA96",
"wheat4", "#8B7E66",
"whitesmoke", "#F5F5F5",
"yellow", "#FFFF00",
"yellow1", "#FFFF00",
"yellow2", "#EEEE00",
"yellow3", "#CD...
2009 Mar 14
1
multiple hypothesis testing
...snow3",..: 9 10 11 12 13 14 15 1 2 3 ...
> > ##Factor w/ 4 levels "blue","green",..: 3 4 2 1
> > str(as.character(mycols$color.names))
> chr [1:15] "tomato1" "tomato4" "turquoise1" "violet" "violetred4" "wheat3"
> ...
> > ##chr [1:4] "tomato1" "yellow1" "green" "blue"
> >
> > attach(dd)
> > seqiplot(data.seq[1:4,], withlegend=FALSE, ylab="Seal ID",
> + axes = F, title = "30-09-2008", cpal=mycols)
> There were...