Cleaning Kaden

Load packages

library(tidyverse)

Load data

kaden_obs <- read.csv("daily_obs_excel.csv")

library(magrittr)

Remove weird symbol

kaden_obs$Time <- gsub('\xca', '', kaden_obs$Time)

Select columns

dq <-  kaden_obs[,1:17]

Use dplyr

# bind Day and Time columns
tt <- paste(dq$Day,dq$Time)
# add this new column to dataframe
dq2 <- data.frame(tt, dq[,3:17])

Remove any duplicates in Time column

# using distinct
#dq3 <- distinct(dq2, dq2$tt)
# find duplicated rows 
myRepeated <- duplicated(dq2[ ,1])

dq3 <- dq2[!myRepeated,]


# which rows were repeated
# which(myRepeated == TRUE)