I attach the zip file, including all the necessary materials. please do this based on the guideline file.
Thank you.

hw2-fohuou5j.zip

Question

I attach the zip file, including all the necessary materials. please do this based on the guideline file.Thank you.

Manish Kumar · Accepted Answer

## Importing packages
library(tidyverse) # utility functions
#import dataset
HW2 % select(cust_id, months_since_survey)
#Find out the difference between rows (first row for each id default 1)
require(dplyr)
PartE_month_diff %
  group_by(cust_id) %>%
  mutate(month_diff = months_since_survey - lag(months_since_survey, default = months_since_survey[1] - 1))
PartE_month_diff
#Filter data which month difference more than 1
PartE_invalid %
  filter(month_diff != 1)
#Find out invalid cust_id
PartE_cust_id_invalid % select(cust_id, survey_date)
column_F
#change survey_date from factor to date format
require(lubridate)
(column_F$survey_date % 
  group_by(cust_id) %>% 
  summarise(non_na_count = sum(!is.na(survey_date)))
Part_F_non
#invalid cust_id
PartF_invalid %
  filter(non_na_count != 1)
#number of customer having invalid values
PartF_cust_id_invalid % select(cust_id,

I attach the zip file, including all the necessary materials. please do this based on the guideline file. Thank you.

Solution

Answer To This Question Is Available To Download

Related Questions & Answers

Submit New Assignment