Â
Â
install.packages("tidyr")
Â
library(tidyr)
library(dplyr)
data<-read.csv("Data_AL.csv")
wide_data <- data %>%
pivot_wider(names_from = c(Age,Gender),values_from = c(BillAmt_1,BillAmt_2))
Â
long_data <- wide_data %>%
pivot_longer(cols = -Custid, names_to = "Age_Gender", values_to = "Value")