I wrote code to clean data then append it to a data frame but it doesn't seem to work
library(readxl)
MTTB <- read_excel("GG78 MODEL/MTTB.xlsx")
View(MTTB)
attach(MTTB)
MTTB_Clean <- MTTB
col_names <- names(MTTB_Clean)
names(MTTB_Clean) <- col_names
#Removing outliers and cleaninG Data Set
dataframe <- data.frame()
for (i in 1:4) {
Di <- MTTB_Clean[!(MTTB_Clean[,i] %in% c(boxplot.stats(MTTB_Clean[,i])$out)),i]
dataframe <- rbind(dataframe, Di)
}
names(dataframe)<- c("CR01_MTBF","CR02_MTBF","CR03_MTBF","CR04_MTBF")
View(dataframe)
print(dataframe)