> library(psych)
> c(.307,.466,.479,.277,.797,.792,.234,.384,.438,.422,.274,.709,.707,.540),14,1)
> fc <- matrix(c(.520,.330,.540,.100,.710,.710,.540,.560,.640,.360,.530,.460,.750,.740),14,1)
> factor.congruence(fa,fc)
     [,1]
[1,] 0.95

library(foreign)
> x <- read.spss("E:\\FACTOR FOR ZIPPING\\DEMO FACTOR\\example33.sav")
> x <- data.frame(x)
> library(ltm)
Loading required package: MASS
Loading required package: msm
Loading required package: polycor
Warning messages:
1: package ‘ltm’ was built under R version 3.6.3 
2: package ‘msm’ was built under R version 3.6.3 
3: package ‘polycor’ was built under R version 3.6.3 
> cronbach.alpha(x)

Cronbach's alpha for the 'x' data-set

Items: 33
Sample units: 100
alpha: 0.923
