# This code will load the R packages we will use
suppressPackageStartupMessages({
library(mosaic)
library(supernova)
library(Lock5withR)})
font_size = function (size) {
theme(text = element_text(size = size))}
linktocsv <- "https://docs.google.com/spreadsheets/d/e/2PACX-1vTyGgp4Pdt8diSAiJ0MD4WzyRdGMojMePO9DHreNWczPoDYOzWDGRB4MqrQLtC-ytcWb7QozkhYPmQc/pub?output=csv"
pokemon<-read.csv(linktocsv,header=TRUE)
head(pokemon)
MyPokemon <- sample(pokemon, 1)
# why isn't this printing anything?
ERROR: Error in sample(pokemon, 1): object 'pokemon' not found
# the best fitting model
# gf_dhistogram(~ Thumb, data = Fingers, fill = "coral2") %>%
# gf_fitdistr(color = "darkblue")
OpponentPokemon <- sample(pokemon, 1)
select(OpponentPokemon, Name, HitPoints)
# modify this code for 10 opponents, then 100, then 1000
OpponentPokemon <- sample(pokemon, 1)
select(OpponentPokemon, Name, HitPoints)
# write code to count up how many had HitPoints greater than your pokemon