I would like to build a model in R to simulate the seed dispersal by one plant.
The plant produced 5 seeds and the probability of falling inside the eight closest space was 0.8 and in the next space 0.2 and in the rest space 0:
0

0

0

0

0

0

0.2

0.2

0.2

0.2

0.2

0

0.2

0.8

0.8

0.8

0.2

0

0.2

0.8

1

0.8

0.2

0

0.2

0.8

0.8

0.8

0.2

0

0.2

0.2

0.2

0.2

0.2

0

0

0

0

0

0

0

So I do not know how to program in R to choose these 5 places (randomly) knowing the probability of event.

I have built a matrix that each value has assigned the probability of mortality (0.7) except when there is a plant (1) so, the 5 seeds that felt in each place around that plant would have to be multiplied by 0.7 and if the result was >1 then we would have a new individual for the next run.
0.7          0.7          0.7          0.7          0.7          0.7
0.7          0.7          0.7          0.7          0.7          0.7
0.7          0.7          0.7          0.7          0.7          0.7
0.7          0.7          0.7          1              0.7          0.7
0.7          0.7          0.7          0.7          0.7          0.7
0.7          0.7          0.7          0.7          0.7          0.7

I am trying to do loops but I am a beginner and I am very lost. Could anyone say me what code should I use?

Thank you very much,
Judit Barroso

	[[alternative HTML version deleted]]

