Question

Read the data set in BlackFriday.xlsx into R. Call the loaded data BlackFriday.xlxs. Make sure that you have the directory set to the correct location for the data.

Find the average of purchase amount using for loop.

Find the average of purchase amount using while loop.

Find the average of purchase amount using repeat loop.

Find the average of purchase amount for female shoppers using for loop.

Find the average of purchase amount for female shoppers using while loop.

Find the average of purchase amount for female shoppers using repeat loop.

Find the differences between the average of purchase amount for female and male shoppers.

large file, I just need the R scrpit

User_ID Product_ID Gender Age Occupation City_Category Stay_In_Current_City_Years Marital_Status Product_Category_1 Product_Category_2 Product_Category_3 Purchase

Answer 1

Use below statements to the path if your dataset isn't in the same folder as your executable

# Returns the current directory

getwd()

# set the path to required directory

setwd("Path to dataset")

# read the table into dataframe named df

# also,add an attribute header = true, if your data has heading in first column

df <- read.table("BlackFriday.xlsx")

****** average using for loop

sum = 0

for(each in df[["Purchase"]])

{

sum = sum + each

}

Average = sum / nrow(df)

****** average using while loop

sum = 0

i = nrow(df)

j = 0

while( j < i )

{

sum = sum + df[j,Purchase]

j = j +1

}

Average = sum / nrow(df)

****** average using repeat loop

sum = 0

i = nrow(df)

j = 0

repeat( j < i )

{

sum = sum + df[j,Purchase]

j = j + 1

if (j == i )

{

break

}

}

Average = sum / nrow(df)

****** average using while loop for female customers

sum = 0

i = nrow(df)

j = 0

count = 0

while( j < i )

{

if (df[j,Gender] == "Female")

{

sum = sum + df[j,Purchase]

count = count + 1

}

j = j +1

}

Average = sum / count

****** average using repeat loop

sum = 0

i = nrow(df)

count = 0

j = 0

repeat( j < i )

{

if (df[j,Gender] == "Female")

{

sum = sum + df[j,Purchase]

count = count + 1

}

j = j + 1

if (j == i )

{

break

}

}

Average = sum / count

****** average difference between male and female using while loop

male_sum = 0

female_sum = 0

i = nrow(df)

j = 0

male_count = 0

female_count = 0

while( j < i )

{

if (df[j,Gender] == "Female")

{

female_sum = female_sum + df[j,Purchase]

female_count = female_count + 1

}

if (df[j,Gender] == "Male")

{

male_sum = male_sum + df[j,Purchase]

male_count = male_count + 1

}

j = j +1

}

Average difference = ( female_sum / female_count ) -   ( male_sum / male_count )

If you don't understand, please post your question in comments.