Dselby86
commented
2 years ago When are you getting this error message? It is after play_game is called?
If it is in play_game, can you please run each of the play_game lines individually? Then we can see where the error occurred?
Thanks
On Mon, Jan 24, 2022 at 11:23 AM ellihammons21 @.***> wrote:
Hello,
I'm having a problem with the code for Part 1 of the Lab 2 Challenge Questions. Using the code from the Lab 2 solutions, I get the following warning message.
longer object length is not a multiple of shorter object length
This becomes a problem and slows things down signifcantly when I run the simulation. And input as to what is going wrong here would be appreciated!
build_doors <- function( n=5 ){ return( 1:n ) }
create_game <- function( ) { a.game <- sample( x=rep( c("goat","car"), c(3,2) ), size=5, replace=F ) return( a.game ) }
select_door <- function( ) { doors <- build_doors() a.pick <- sample( doors, size=1 ) return( a.pick ) # number between 1 and 5 }
open_doors <- function( game, a.pick ) {
reveal one car and one goat
doors <- build_doors()
if( game[ a.pick ] == "car" ) { opened.car.door <- doors[ game == "car" & doors != a.pick ] goat.doors <- doors[ game != "car" ] opened.goat.door <- sample( goat.doors, size=1 ) opened.doors <- c( opened.car.door, opened.goat.door ) }
if( game[ a.pick ] == "goat" ) { opened.car.door <- sample( doors[game=="car"], size=1 ) available.goat.doors <- doors[ game != "car" & doors != a.pick ] opened.goat.door <- sample( available.goat.doors, size=1 ) opened.doors <- c( opened.car.door, opened.goat.door ) } return( opened.doors ) # two numbers }
change_door <- function( stay=T, opened.doors, a.pick ) { doors <- build_doors()
if( stay ) { final.pick <- a.pick } if( ! stay ) { available.doors <- doors[ ! ( doors %in% opened.doors | doors == a.pick ) ] final.pick <- sample( available.doors, size=1 ) }
return( final.pick ) # number between 1 and 5 }
determine_winner <- function( final.pick, game ) { if( game[ final.pick ] == "car" ) { return( "WIN" ) } if( game[ final.pick ] == "goat" ) { return( "LOSE" ) } }
play_game <- function( ) { new.game <- create_game() first.pick <- select_door() opened.door <- open_goat_door( new.game, first.pick )
final.pick.stay <- change_door( stay=T, opened.door, first.pick ) final.pick.switch <- change_door( stay=F, opened.door, first.pick )
outcome.stay <- determine_winner( final.pick.stay, new.game ) outcome.switch <- determine_winner( final.pick.switch, new.game )
strategy <- c("stay","switch") outcome <- c(outcome.stay,outcome.switch) game.results <- data.frame( strategy, outcome, stringsAsFactors=F ) return( game.results ) }
play_game()
— Reply to this email directly, view it on GitHub https://github.com/Watts-College/cpp-527-spr-2022/issues/16, or unsubscribe https://github.com/notifications/unsubscribe-auth/AB4EHB4JWKGPYQWU3MQIS7TUXWKL3ANCNFSM5MWD22KA . Triage notifications on the go with GitHub Mobile for iOS https://apps.apple.com/app/apple-store/id1477376905?ct=notification-email&mt=8&pt=524675 or Android https://play.google.com/store/apps/details?id=com.github.android&referrer=utm_campaign%3Dnotification-email%26utm_medium%3Demail%26utm_source%3Dgithub.
You are receiving this because you are subscribed to this thread.Message ID: @.***>
ellihammons21
Hello,
I'm having a problem with the code for Part 1 of the Lab 2 Challenge Questions. Using the code from the Lab 2 solutions, I get the following warning message.
longer object length is not a multiple of shorter object length
This becomes a problem and slows things down signifcantly when I run the simulation. And input as to what is going wrong here would be appreciated!