Questions and Answers

Codecademy Learn Phaser: Keyboard Events 10/12

2019-09-09T05:37:00.001-07:00

//Sample Solution
const gameState = {}

function preload() {
this.load.image('codey', 'https://s3.amazonaws.com/codecademy-content/courses/learn-phaser/codey.png');
}

function create() {
gameState.codey = this.add.sprite(150, 200, 'codey')
// Set cursor keys here!
gameState.cursors = this.input.keyboard.createCursorKeys();
}

function update() {
// Update based on keypress here!
if(gameState.cursors.right.isDown){
gameState.codey.x += 5
}
if(gameState.cursors.left.isDown){
gameState.codey.x -= 5
}
if(gameState.cursors.up.isDown){
gameState.codey.y -= 5
}
if(gameState.cursors.down.isDown){
gameState.codey.y += 5
}
}

const config = {
type: Phaser.AUTO,
width: 400,
height: 500,
backgroundColor: "#5f2a55",
scene: {
preload,
create,
update
}
}

const game = new Phaser.Game(config)

Codecademy Learn Phaser: Basics Storing State 8/12

2019-09-09T02:59:00.000-07:00

//Sample Solution
const gameState = {};

function create() {
gameState.circle = this.add.circle(40, 100, 20, 0xff9999)
}

function update() {
gameState.circle.y += 1
}

const config = {
type: Phaser.AUTO,
width: 450,
height: 600,
backgroundColor: "#99ff99",
scene: {
create,
update
}
}

const game = new Phaser.Game(config)

Codecademy Learn Phaser: Basics Move Your Bodies 7/12

2019-09-09T02:50:00.002-07:00

//Sample Solution
let codey;

function preload() {
this.load.image('codey', 'https://s3.amazonaws.com/codecademy-content/courses/learn-phaser/codey.png');
}

function create() {
codey = this.add.sprite(30, 200, 'codey')
}

// Create your update() function here
function update() {
codey.x += 1;
}

const config = {
type: Phaser.AUTO,
width: 400,
height: 400,
backgroundColor: "#5f2a55",
scene: {
preload,
create,
// Include update here!
update
}
}

const game = new Phaser.Game(config)

Codecademy Learn Phaser: Basics Start Making A Scene 6/12

2019-09-09T02:46:00.000-07:00

//Sample Solution
// Create a create() function here:
function create() {
this.add.text(100,170,"Spaze Invaydurs");
}

const config = {
type: Phaser.AUTO,
width: 450,
height: 600,
backgroundColor: "#a0a0dd",
// Add in the scene information in the config here:
scene: {
create
}
}

const game = new Phaser.Game(config)

Codecademy Learn Phaser: Basics Create A Config 5/12

2019-09-09T02:39:00.002-07:00

//Sample Solution
const config = {
width: 450,
height: 600,
backgroundColor: "#0000ff",
}

const game = new Phaser.Game(config)

Codecademy Learn Phaser: Basics Draw A Background Image 4/12

2019-09-09T02:34:00.002-07:00

//Sample Solution
function preload() {
// Load in the background image here!
this.load.image('sky','https://s3.amazonaws.com/codecademy-content/courses/learn-phaser/sky.jpg');
}

function create() {
// Put the background image in the scene here!
this.add.image(200,200,'sky');
}

const config = {
type: Phaser.AUTO,
width: 450,
height: 600,
backgroundColor: "#5f2a55",
scene: {
create,
preload
}
}

const game = new Phaser.Game(config)

Codecademy Learn Phaser: Basics Draw A Sprite 3/12

2019-09-09T02:29:00.002-07:00

//Sample Solution
function preload() {
// Load in the sprite here!
this.load.image('codey','https://s3.amazonaws.com/codecademy-content/courses/learn-phaser/codey.png')
}

function create() {
// Create a sprite game object here!
this.add.sprite(40,50,'codey')
}

const config = {
type: Phaser.AUTO,
width: 450,
height: 600,
backgroundColor: "#5f2a55",
scene: {
create,
preload
}
}

const game = new Phaser.Game(config)

Codecademy Learn Phaser: Basics Draw A Circle 2/12

2019-09-09T02:20:00.002-07:00

//Sample Solution
function create() {
let circle1 = this.add.circle(50, 100, 90, 0xFFF070);
let circle2 = this.add.circle(95, 300, 80, 0xFF0000);
let circle3 = this.add.circle(200, 200, 100, 0x9F00D0);
let circle4 = this.add.circle(300, 400, 10, 0x00E030);

// Add in a circle here!
let circle5 = this.add.circle(450, 600, 240, 0xFFFFFF);
}

const config = {
type: Phaser.AUTO,
width: 450,
height: 600,
scene: {
create
}
}

const game = new Phaser.Game(config)

Codecademy Learn Phaser: Basics Hello World 1/12

2019-09-09T02:15:00.002-07:00

//Sample Solution
function create() {
// Change "Codey's Adventures\n in Code World" to the name of your game
this.add.text(50, 100, "Nathan's Nation", { font: "40px Times New Roman", fill: "#ffa0d0"});

// Change "by Codecademy" to your name!
this.add.text(130, 300, "by nathan", { font: "20px Times New Roman", fill: "#ffa0d0"});
}

const config = {
type: Phaser.AUTO,
width: 450,
height: 600,
backgroundColor: "#5f2a55",
scene: {
create
}
};

const game = new Phaser.Game(config);

Codecademy Hypothesis Testing With R ANOVA 13/14

2019-09-09T02:02:00.003-07:00

#Sample Solution
---
title: "Hypothesis Testing in R"
output: html_notebook
---

```{r message = FALSE}
# load data
load("dist_one.Rda")
load("dist_two.Rda")
load("dist_three.Rda")
load("dist_four.Rda")
```

```{r}
# plot histograms and define not_normal here:
hist(dist_one)
hist(dist_two)
hist(dist_three)
hist(dist_four)
not_normal <- 4
```

```{r}
# define ratio here:
ratio <- sd(dist_two)/sd(dist_three)
ratio
```

Codecademy Hypothesis Testing With R ANOVA 12/14

2019-09-09T01:56:00.000-07:00

#Sample Solution
---
title: "Hypothesis Testing in R"
output: html_notebook
---

```{r message = FALSE}
# load libraries
library(tidyr)
```

```{r message = FALSE}
# load data
load("stores.Rda")
load("stores_new.Rda")
```

```{r}
# inspect stores here:
stores
```

```{r}
# perform anova on stores here:
results = aov(sales ~ store, data = stores)
summary(results)
```

```{r}
# perform anova on stores_new here:
results_new = aov(sales ~ store, data = stores_new)
summary(results_new)
```

Codecademy Hypothesis Testing With R Dangers of Multiple T-Tests 11/14

2019-09-09T01:39:00.002-07:00

#Sample Solution
---
title: "Hypothesis Testing in R"
output: html_notebook
---

```{r message = FALSE}
# load data
load("store_a.Rda")
load("store_b.Rda")
load("store_c.Rda")
```

```{r}
# calculate means here:
store_a_mean <- mean(store_a)
store_a_mean
store_b_mean <- mean(store_b)
store_b_mean
store_c_mean <- mean(store_c)
store_c_mean
```

```{r}
# calculate standard deviations here:
store_a_sd <- sd(store_a)
store_a_sd
store_b_sd <- sd(store_b)
store_b_sd
store_c_sd <- sd(store_c)
store_c_sd
```

```{r}
# perform two sample t-test here:
a_b_results <- t.test(store_a,store_b)
a_b_results
a_c_results <- t.test(store_a,store_c)
a_c_results
b_c_results <- t.test(store_b,store_c)
b_c_results
```

```{r}
# calculate error_prob here:
error_prob <- (1-(0.95**3))
error_prob
```

Codecademy Hypothesis Testing With R Two-Sample T-Test 10/14

2019-09-09T01:22:00.002-07:00

#Sample Solution
---
title: "Hypothesis Testing in R"
output: html_notebook
---

```{r message = FALSE}
# load data
load("week_1.Rda")
week_1
load("week_2.Rda")
week_2
```

```{r}
# calculate week_1_mean and week_2_mean here:
week_1_mean <- mean(week_1)
week_1_mean
week_2_mean <- mean(week_2)
week_2_mean
```

```{r}
# calculate week_1_sd and week_2_sd here:
week_1_sd <- sd(week_1)
week_1_sd
week_2_sd <- sd(week_2)
week_2_sd
```

```{r}
# run two sample t-test here:
results <- t.test(week_1,week_2)
results
```

Codecademy Hypothesis Testing With R One-Sample T-Test 9/14

2019-09-09T01:16:00.002-07:00

#Sample Solution
---
title: "Hypothesis Testing in R"
output: html_notebook
---

```{r message = FALSE}
# load and view data
load("ages.Rda")
ages
```

```{r}
# calculate ages_mean here:
ages_mean <- mean(ages)
ages_mean
```

```{r}
# perform t-test here:
results <- t.test(ages,mu=30)
results
```

Codecademy Hypothesis Testing With R Significance Level 8/14

2019-09-09T01:10:00.000-07:00

#Sample Solution
---
title: "Hypothesis Testing in R"
output: html_notebook
---

```{r}
# update reject_hypothesis here:
# all p-values below the threshold will result in # # rejecting the null hypothesis
# p-value threshold industry = 0.05
# hypothesis test actual p-value = 0.1 > 0.05
# since p-value is larger than the threshold, we # accept the null hypothesis
reject_hypothesis <- FALSE
```

Codecademy Hypothesis Testing With R P-Values 7/14

2019-09-09T01:03:00.002-07:00

#Sample Solution
---
title: "Hypothesis Testing in R"
output: html_notebook
---

```{r}
# possible interpretations
st_1 <- "There is a 20% chance that the difference in average weight of green and red apples is due to random sampling."
st_2 <- "There is a 20% chance that green and red apples have the same average weight."
st_3 <- "There is a 20% chance red apples weigh more than green apples."
st_4 <- "There is a 20% chance green apples weigh more than green apples."

# update the value of interpretation here:
interpretation <- "st_1"
```

Codecademy Hypothesis Testing With R Type I and Type II Errors 6/14

2019-09-09T00:58:00.000-07:00

#Sample Solution
---
title: "Hypothesis Testing in R"
output: html_notebook
---

```{r}
# the true positives and negatives:
actual_positive <- c(2, 5, 6, 7, 8, 10, 18, 21, 24, 25, 29, 30, 32, 33, 38, 39, 42, 44, 45, 47)
actual_negative <- c(1, 3, 4, 9, 11, 12, 13, 14, 15, 16, 17, 19, 20, 22, 23, 26, 27, 28, 31, 34, 35, 36, 37, 40, 41, 43, 46, 48, 49)

# the positives and negatives we determine by running the experiment:
experimental_positive <- c(2, 4, 5, 7, 8, 9, 10, 11, 13, 15, 16, 17, 18, 19, 20, 21, 22, 24, 26, 27, 28, 32, 35, 36, 38, 39, 40, 45, 46, 49)
experimental_negative <- c(1, 3, 6, 12, 14, 23, 25, 29, 30, 31, 33, 34, 37, 41, 42, 43, 44, 47, 48)
```

```{r}
# define type_i_errors and type_ii_errors here:
type_i_errors = intersect(experimental_positive,actual_negative)
type_i_errors
type_ii_errors =
intersect(experimental_negative,actual_positive)
type_ii_errors
```

Codecademy Hypothesis Testing With R Designing an Experiment 5/14

2019-09-09T00:46:00.002-07:00

#Sample Solution
---
title: "Hypothesis Testing in R"
output: html_notebook
---

```{r}
# load data
load("retriever_lengths.Rda")
load("doodle_lengths.Rda")
```

```{r}
# calculate mean_retriever_l and mean_doodle_l here:
mean_retriever_l = mean(retriever_lengths)
mean_doodle_l = mean(doodle_lengths)
mean_retriever_l
mean_doodle_l
```

```{r}
# calculate mean_difference here:
mean_difference = mean_retriever_l - mean_doodle_l
mean_difference
```

```{r}
# statements:
st_1 <- "The average length of Golden Retrievers is 2.5 inches longer than the average length of Goldendoodles."
st_2 <- "The average length of Golden Retrievers is the same as the average length of Goldendoodles."

# update null_hypo here:
null_hypo <- "st_2"
```

Codecademy Hypothesis Testing With R Hypothesis Formulation 4/14

2019-09-07T22:16:00.000-07:00

#Sample Solution
---
title: "Hypothesis Testing in R"
output: html_notebook
---

```{r}
# experiment 1
hypo_a <- "DeePressurize lowers blood pressure in patients."
hypo_b <- "DeePressurize has no effect on blood pressure in patients."
null_hypo_1 <- "hypo_b"
```

```{r}
# experiment 2
hypo_c <- "The new profile layout has no effect on number of matches with other users."
hypo_d <- "The new profile layout results in more matches with other users than the original layout."
null_hypo_2 <- "hypo_c"
```

Codecademy Hypothesis Testing With R Sample Mean and Population Mean - I 2/14

2019-09-07T22:07:00.002-07:00

#Sample Solution
---
title: "Hypothesis Testing in R"
output: html_notebook
---

```{r}
# generate random population
population <- rnorm(300, mean=65, sd=3.5)

# calculate population mean here:
population_mean <- mean(population)
population_mean
```

```{r}
# generate sample 1
sample_1 <- sample(population, size=30)
sample_1

# calculate sample 1 mean
sample_1_mean <- mean(sample_1)
sample_1_mean
```

```{r}
# generate samples 2,3,4 and 5
sample_2 <- sample(population, size=30)
sample_3 <- sample(population, size=30)
sample_4 <- sample(population, size=30)
sample_5 <- sample(population, size=30)
```

```{r}
# calculate sample means here:
sample_2_mean <- mean(sample_2)
sample_2_mean
sample_3_mean <- mean(sample_3)
sample_3_mean
sample_4_mean <- mean(sample_4)
sample_4_mean
sample_5_mean <- mean(sample_5)
sample_5_mean
```

Codecademy Interquartile Range IQR in R 3/4

2019-09-07T14:05:00.000-07:00

Codecademy Interquartile Range IQR in R 3/4
#Sample Solution
---
title: "Interquartile Range"
output: html_notebook
---

```{r}
# load song data
load("songs.Rda")
```

```{r}
# create the variable interquartile_range here
interquartile_range = IQR(songs)
```

```{r}
# ignore the code below here:

tryCatch(print(paste("The IQR of the dataset is",interquartile_range)), error=function(e) {print("You haven't defined interquartile_range yet")})
```

Codecademy Interquartile Range Quartiles 2/4

2019-09-07T13:58:00.002-07:00

#Sample Solution
---
title: "Interquartile Range"
output: html_notebook
---

```{r}
# load song data
load("songs.Rda")
```

```{r}
# find the first quartile
q1 <- quantile(songs,0.25)
```

```{r}
# calculate the third quartile here:
q3 <- quantile(songs,0.75)
```

```{r}
# calculate the interquartile range here:
interquartile_range <- q3 - q1
```

```{r}
# ignore the code below here:

tryCatch(print(paste("The first quartile of the dataset is",q1)), error=function(e) {print("You haven't defined q1 yet")})

tryCatch(print(paste("The third quartile of the dataset is",q3)), error=function(e) {print("You haven't defined q3 yet")})

tryCatch(print(paste("The IQR of the dataset is",interquartile_range)), error=function(e) {print("You haven't defined interquartile_range yet")})
```

Codecademy Interquartile Range Range Review 1/4

2019-09-07T13:55:00.000-07:00

#Sample Solution
---
title: "Interquartile Range"
output: html_notebook
---

```{r message=FALSE, warning=FALSE}
# load libraries
library(ggplot2)
```

```{r}
# load song data
load("songs.Rda")
```

```{r}
# find maximum and minimum song lengths
maximum <- max(songs)
minimum <- min(songs)
```

```{r}
# create variable song_range here:
song_range <- maximum - minimum
```

```{r message=FALSE, echo=FALSE}
# plot histogram
hist <- qplot(songs,
geom="histogram",
main = 'Histogram of Song Lengths',
xlab = 'Song Length (Seconds)',
ylab = 'Count',
fill=I("blue"),
col=I("red"),
alpha=I(.2))
hist
```

```{r}
# ignore the code below here:

tryCatch(print(paste("The range of the dataset is",song_range)), error=function(e) {print("You haven't defined the variable song_range yet")})
```

Codecademy Quantiles Common Quantiles 4/5

2019-09-06T12:36:00.000-07:00

#Sample Solution
---
title: "Quantiles"
output: html_notebook
---

```{r}
# load song data
load("songs.Rda")
```

```{r}
# define percentile and answer here:
percentile <- quantile(songs,0.32)
answer <- "below"
```

```{r}
# ignore the code below here:

tryCatch(print(paste("Your percentile is",percentile)), error=function(e) {print("You haven't defined percentile")})
```

Codecademy Quantiles Many Quantiles 3/5

2019-09-06T12:32:00.002-07:00

#Sample Solution
---
title: "Quantiles"
output: html_notebook
---

```{r}
# load song data
load("songs.Rda")
```

```{r}
# define quartiles and deciles here:
quartiles <- quantile(songs, c(0.25, 0.5, 0.75))
decile_array <- c()
for(k in 1:9){
decile_array[k]<-k/10
}
decile_array
deciles <- quantile(songs, decile_array)
deciles
```

```{r}
# define tenth here:
tenth <- 3
```

```{r}
# ignore the code below here:

tryCatch(print(paste(c("The quartiles are",quartiles,collapse=" "))), error=function(e) {print("You haven't defined quartiles.")})

tryCatch(print(paste(c("The deciles are",deciles,collapse=" "))), error=function(e) {print("You haven't defined deciles.")})
```