Multigroup Analysis for SEM

 #R 3.6 version is needed for MGA analysis #More than two option in a variable Mga is not possible#install.packages("devtools") #library(devtools)# install "plspm"#install_github("gastonstat/plspm")# load plspmlibrary(plspm)#require(plspm)dataset <- read.csv(file.choose())#make a modelCO=c(0,0,0,0,0)AT=c(1,0,0,0,0)SN=c(1,0,0,0,0)PBC=c(1,0,0,0,0)PMO=c(0,1,1,1,0)x=rbind(CO,AT,SN,PBC,PMO)colnames(x)=rownames(x)innerplot(x,...

Principal Component Analysis (PCA)

#install.packages("magrittr")  # for piping %>%#install.packages("ade4")      # PCA computation#install.packages("factoextra")# PCA visualizationlibrary(psych)#library(fmsb)#PCA - principal component analysis#Covid19 data analysismydata<- read.csv(file.choose())summary(mydata)#Define_mydataiables#mydata<-...

Descriptive statistics in R

 #Tawkir codehubdata<-read.csv(file.choose())  #to input datasummary(data) #to show all data variablesdescribe(data) #to show mean and median for numeric datahead(data)  #to show some column and variable names#Rename one column namecolnames(data)[colnames(data)=="lining"]<- "Living"#Rename...

Reliability test in R

 #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<- alpha(data.frame(all[c("AT2", "AT4", "AT5", "AT6")]))perc_mor_obligation<-alpha(data.frame(all[c("CO8", "AT1")...

Conditional statement and new variable creation in R

 # Load datap <- read.csv(file.choose())#create new data for trial#create new data for triallw9=ifelse(p$LANE_WIDTH<9, 1,0)lw10=ifelse(p$LANE_WIDTH>=10 & p$LANE_WIDTH<11, 1,0)lw11=ifelse(p$LANE_WIDTH>=11 & p$LANE_WIDTH<12, 1,0)lw12=ifelse(p$LANE_WIDTH>=12 & p$LANE_WIDTH<13, 1,0)lw13=ifelse(p$LANE_WIDTH>=13 & p$LANE_WIDTH<14, 1,0)lw14=ifelse(p$LANE_WIDTH>=14...