Skip to content

Instantly share code, notes, and snippets.

@sellisd
Created January 19, 2021 00:00
Show Gist options
  • Save sellisd/a026c77b88087c69ce6b655f2301a0e3 to your computer and use it in GitHub Desktop.
Save sellisd/a026c77b88087c69ce6b655f2301a0e3 to your computer and use it in GitHub Desktop.
library(tidyverse)
a<-numeric(0)
bet<-10
points<-0
for(i in c(1:100) {
points <-sample(-1,1)*bet+points
a<-c(a,points)
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment