polarolouis/anova-phylogenetique-projet-msv
1
0
Fork 0
mirror of https://github.com/Polarolouis/anova-phylogenetique-projet-msv.git synced 2026-06-17 18:25:25 +02:00
Code Issues Projects Releases Packages Wiki Activity

Fix typo

Browse source
This commit is contained in:
Louis Lacoste 2023-11-09 17:34:53 +01:00
parent 9efcc969f9
commit c53cbe3c49
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
simulations/mouvement_brownien.R
View file

@ -4,9 +4,9 @@ library(ggplot2)
N <- 1000 N <- 1000
time_delta <- 0.5 time_delta <- 0.5
generate_brownian_movement_traj <- function(N, time_delta) { generate_brownian_motion_traj <- function(N, time_delta, variance = 1) {
# BM indep vector # BM indep vector
bm_indep <- rnorm(N, mean = 0, time_delta) bm_indep <- rnorm(N, mean = 0, sqrt(time_delta * variance))
# The trajectory # The trajectory
bm_traj <- cumsum(bm_indep) bm_traj <- cumsum(bm_indep)
@ -15,9 +15,13 @@ generate_brownian_movement_traj <- function(N, time_delta) {
return(data.frame(time_serie = time_serie, bm_traj = bm_traj)) return(data.frame(time_serie = time_serie, bm_traj = bm_traj))
} }
bm_traj_and_time <- generate_brownian_movement_traj(N, time_delta) bm_traj_and_time <- generate_brownian_motion_traj(N, time_delta)
# Plotting # Generate multiple BM
ggplot(bm_traj_and_time) +
aes(x = time_serie, y = bm_traj) +
geom_line() # For phylogenic tree
generate_phylo_tree <- function(n_tips, max_time) {
}