install.packages("readxl", repos = "https://cran.rstudio.com/")
library(readxl)
library(PETIndex)
dt <- read_excel("G:/My Drive/00--Pekerjaan/PENELITIAN/01--Project/Pengembangan Package pftopsis/pfetopsis/dataSimulation/data_new_without_disease.xlsx", sheet = "data")
framework <- read_excel("G:/My Drive/00--Pekerjaan/PENELITIAN/01--Project/Pengembangan Package pftopsis/pfetopsis/dataSimulation/data_new_without_disease.xlsx", sheet = "framework")

## 1. Subset Data Berdasarkan Dimensi dan Indikator
fram <- setData(dt, framework)

## 2. Normalisasi Data Berdasarkan Dimensi dan Indikator
normList <- normalise(fram, framework, method = "z-score")

## 3. Melakukan Uji Bartlett untuk Mengecek Korelasi antar Variabel
bart <- bartLetteachDim(normList, framework, alpha = 0.05)
bart$meteorologi
bart$air_pollution
bart$vulnerable_group
bart$socio_economic
bart$medical_care

## 4. Melakukan PCA untuk Setiap Dimensi
pca <- pCA_each_dim(list_norm = normList,
                    framework = framework,
                    threshold = 0.8,
                    method = "FactoMineR")

## 5. Melakukan Entropy
dim_dir <- read_excel("G:/My Drive/00--Pekerjaan/PENELITIAN/01--Project/Pengembangan Package pftopsis/pfetopsis/dataSimulation/data_new_without_disease.xlsx", sheet = "dim_dir")
dimPC <- pca$weighted_PC
CI <- fentropyTOPSIS(df = dimPC, dim_dir = dim_dir)
CI$topsis_score