using replicate

sl_board <- c(1,2,11,4,5,17,7,8,18,12,11,12,13,4,15,16,17,18,
              8,20,21,20,23,16,25,26,27,28,29,30,31,32)

run_game <- function(a_board){
  count <- 0
  position <- 1
  while(position < 25){
    count <- count+1
    position <- a_board[position+sample(seq(1,6),1)]
  }
  return(count)
}

mean(replicate(10000,run_game(sl_board)))

this is confusing.

say whqtever you wnat

say something

Use hypothesis to annotate this textbook

doors<-rep(0,100)

for(i in 1:100) {
  for(j in seq(i,100,by=i)){
    if(doors[j]==0){
      doors[j]<-1
      } else {
        doors[j]<-0
      }
    }
  }
doors

#no switch
StayWin<-c()
for(i in 1:1000){
Doors<-c(1,0,0)
ChoiceOne<-sample(Doors,1)
StayWin<-c(StayWin,ChoiceOne)
}
sum(StayWin)/length(StayWin)

#switch
SwitchWin<-c()
for (i in 1:1000){
doors<-c(1,0,0)
ChoiceOne<-sample(Doors,3)
if(ChoiceOne[2]==0){
  FinalDoors<-c(ChoiceOne[1],ChoiceOne[3])
} else{
  FinalDoors<-c(ChoiceOne[1],ChoiceOne[2])
}
SwitchWin<-c(SwitchWin,FinalDoors[2])
}
sum(SwitchWin)/length(SwitchWin)

alphabet="abcdefghijklmnopqrstuvwxyz"
alphabet<-strsplit(alphabet,"")[[1]]
randomAlphabet<-sample(alphabet,26)
Dalpha<-data.frame(Index=seq(1,26),Alphabet<-alphabet,Ralphabet<-randomAlphabet)
inputText<-"hello how are you this morning"
delimitedText<-strsplit(inputText,"")[[1]]
CodedText<-c()
for(i in delimitedText){
  if(i!=" "){
  CodedText<-c(CodedText,as.character(Dalpha[Dalpha$Alphabet==i,]$Ralphabet))
  }else{
    CodedText<-c(CodedText," ")
  }
}

DecodedText<-c()
for(i in CodedText){
  if(i!=" "){
  DecodedText<-c(DecodedText,as.character(Dalpha[Dalpha$Ralphabet==i,]$Alphabet))
  }else{
    DecodedText<-c(DecodedText," ")
  }
}
paste(delimitedText,collapse="")
paste(CodedText,collapse="")
paste(DecodedText,collapse="")

a<-seq(1:100)
b<-c()
for  (i in a){
  if(i%%3==0 && i%%5 == 0){
    b<-c(b,"fizzbuzz")
  }else if(i%%3==0){
    b<-c(b,"fizz")
  } else if(i%%5==0){
    b<-c(b,"buzz") 
  } else {
    b<-c(b,i) 
  }
}
  b

myMean<-function(input){
  return(sum(input)/length(input))
}

runif(100,0,1)

a<-seq(1,1000)
b<-c()
for (i in 2:499){
b<-c(a[a<=i],a[a>i & a%% i >0])
a<-b
}
b

a<-seq(1,100)
a[a %% 2 ==TRUE]

find_sum <- function(first,second) {
return(sum(seq(first,second,1)))
}

sum(seq(1,100,1))

my_variable <- c()
for (i in 1:100){
my_variable<-c(my_variable,i)
}

or

a <- seq(1,100,1)

a <- 1
b <- 2
c <- a+b

1+1
2/4
1-4
3*5

I will be adding example problem solutions over time.

test tag...

Doing some tests with the r package hypothesisr, super convenient way to get all the annotation data from pages within a url.

All of the files in the RFiles folder can be downloaded from the Github Repo for this book at https://github.com/CrumpLab/programmingforpsych