search for: x_grid

...oading required package: abind Loading required package: codetools Loading required package: rlecuyer Loading required package: snow Loading required package: snowfall > infest_kud_fun<-function(x,A,B){ +?? equation1=exp(A-(B*x)) +?? return(list("equation1"=equation1)) + } > x_grid<-c(0.5,10) #distances kudzu could grow > A_grid<-rnorm(1000) #probabilities > B_grid<- rnorm(1000) #probabilities > #put parameters in a list > param_list_kud=list("x"=x_grid, "A"=A_grid, "B"=B_grid) > #run MC simulation > MC_result...

...ckage: codetools > Loading required package: rlecuyer > Loading required package: snow > Loading required package: snowfall > > > infest_kud_fun<-function(x,A,B){ > + equation1=exp(A-(B*x)) > + return(list("equation1"=equation1)) > + } > > > > x_grid<-c(0.5,10) #distances kudzu could grow > > A_grid<-rnorm(1000) #probabilities > > B_grid<- rnorm(1000) #probabilities > > > > #put parameters in a list > > param_list_kud=list("x"=x_grid, "A"=A_grid, "B"=B_grid) > > > #ru...

Hi, A pared down version of the dataset I'm working with: edm<-read.table(textConnection("WELLID X_GRID Y_GRID LAYER ROW COLUMN SPECIES CALCULATED OBSERVED w301_3 4428. 1389 2 6 18 1 3558 6490. w304_12 4836. 6627 2 27 20 1 3509 3228. 02_10_12080 3.6125E+04 13875 1 56 145 1 2774 -999.0 02_10_120...