Displaying 3 results from an estimated 3 matches for "plot_list".
2020 Oct 27
3
R for-loop to add layer to lattice plot
...ore clarity:
```
library(e1071)
library(lattice)
library(latticeExtra)
make.grid <- function(x, n = 1000) {
grange = apply(x, 2, range)
x1 = seq(from = grange[1,1], to = grange[2,1], length = n)
x2 = seq(from = grange[1,2], to = grange[2,2], length = n)
expand.grid(X1 = x1, X2 = x2)
}
plot_list <- list()
for (i in 1:10) {
x1 = rnorm(100, mean = 0.2, sd = 0.15)
y1 = rnorm(100, mean = 0.7, sd = 0.15)
y2 = rnorm(100, mean = 0.2, sd = 0.15)
x2 = rnorm(100, mean = 0.75, sd = 0.15)
df = data.frame(x = c(x1,x2), y=c(y1,y2),
z=c(rep(0, length(x1)), rep(1, length(x2)...
2020 Oct 28
0
R for-loop to add layer to lattice plot
...)
> library(latticeExtra)
>
> make.grid <- function(x, n = 1000) {
> grange = apply(x, 2, range)
> x1 = seq(from = grange[1,1], to = grange[2,1], length = n)
> x2 = seq(from = grange[1,2], to = grange[2,2], length = n)
> expand.grid(X1 = x1, X2 = x2)
> }
>
> plot_list <- list()
> for (i in 1:10) {
> x1 = rnorm(100, mean = 0.2, sd = 0.15)
> y1 = rnorm(100, mean = 0.7, sd = 0.15)
> y2 = rnorm(100, mean = 0.2, sd = 0.15)
> x2 = rnorm(100, mean = 0.75, sd = 0.15)
> df = data.frame(x = c(x1,x2), y=c(y1,y2),
> z=c(re...
2004 Nov 29
1
data is getting corrupted
...alls this rather lengthy function (but I thought I should include
the entire function for completeness),
/* this function converts the sample list */
/* from R into the internal structure */
struct SAMPLE_RECORD *build_sample_from_sexp( SEXP sample )
{
int i;
/* plots variables */
SEXP plot_list;
SEXP plot_plot_sexp;
SEXP plot_lat_sexp;
SEXP plot_long_sexp;
SEXP plot_elev_sexp;
SEXP plot_slp_sexp;
SEXP plot_asp_sexp;
SEXP plot_h20_sexp;
SEXP plot_map_sexp;
/* plants variables */
SEXP plant_list;
SEXP plant_plot_sexp;
SEXP plant_plant_sexp;
SEXP plant...