SEM in R

library(psych)all=read.csv(choose.files())#Calculating_Cronbach's Alphacovid_concern<- alpha(data.frame(all[c("CO2", "CO3", "CO5", "CO7")]))attitude<- alpha(data.frame(all[c("SN3", "PBC1", "PBC2")]))social_norm<- alpha(data.frame(all[c("CO4", "AT7", "SN1", "SN2", "PMO1")]))perc_beh_control<-...

Confusion Matrix for Any Model in R

 #Confusion matrix# trainingp<- predict(model, rail)tab<- table(p, rail$OPS)tab1-sum(diag(tab))/sum(tab)#testingp1<- predict(model, test)tab1<- table(p1, test$OPS)tab11-sum(diag(tab1))/sum(tab1)#endlibrary(e1071)#dataconfusionMatrix(rail$OPS, sample(rail$OPS))newPrior <- c(.05, .8,...

Sankey Plot

#Tawkir_ahmed_code#Sankey_plot library(networkD3)## create a dataframe with 10 nodesnodes = data.frame("name" = c("Node_0", "Node_1", "Node_2", "Node_3", "Node_4", "Node_5",                              "Node_6", "Node_7",...