Initialization

HaToeV=27.21138602;

SetDirectory["~/Dropbox/Manuscripts/CASPT3/Data"];

Needs["MaTeX`"]
SetOptions[MaTeX,"Preamble"->{"\\usepackage{amssymb,amsmath,latexsym,amsfonts,amsthm,mathpazo,xcolor,bm,mhchem}"}];

XLS

Sheet=4;

WFT={"CASPT2(IPEA)","CASPT2(NOIPEA)","CASPT3(IPEA)","CASPT3(NOIPEA)","SC-NEVPT2","PC-NEVPT2"};
MAE=Import["FCI-all.xlsx"][[Sheet,3;;286,39+{19,20,21,22,23,24}]];
graph=Table[
Show[{
Histogram[MAE[[;;,m]],20,"PDF",PlotTheme->"Scientific",BaseStyle->14,PlotRange->{{-1,+1},Automatic},FrameLabel->{"Error (eV)",None},ChartStyle->{Directive[Opacity[0.5],ColorData[1,"ColorList"][[m]]]},FrameTicks->{Automatic,None},FrameStyle->Directive[Thick,20,Black],PlotLabel->Style[WFT[[m]]<>" MAE: "<>ToString[SetAccuracy[Mean[Abs[DeleteCases[MAE[[;;,m]],""]]],3]]<>" eV",20]]
,
SmoothHistogram[DeleteCases[MAE[[;;,m]],""],Automatic,"PDF",PlotRange->{{-1,1},Automatic},PlotStyle->Directive[ColorData[1,"ColorList"][[m]],Thickness[0.01]],Filling->Bottom,PlotTheme->"Web"]
},ImageSize->300]
,{m,6}];
Grid[{graph[[1;;2]],graph[[3;;4]]},Spacings->{1,2}]
Export["PT2_vs_PT3.pdf",%];

Table

tab=Import["FCI-all.xlsx"][[Sheet,3;;286,{1,2,5,7,8,9,11,13,19,20,21,22,23,24}]];
TableForm[Table[{IntegerPart[tab[[k,1]]],tab[[k,2]],"$"<>StringTrim[tab[[k,3]]]<>"("<>tab[[k,5]]<>")$",tab[[k,4]],tab[[k,6]],tab[[k,7]],tab[[k,8]],tab[[k,9]],tab[[k,10]],tab[[k,11]],tab[[k,12]],tab[[k,13]]},{k,Length[tab]}],TableHeadings->{ None,{"#","Molecule","Excitation","Nature","$\%T_1$","TBE","Safe?","CASSCF","CASPT2(IPEA)","CASPT2(NOIPEA)","CASPT3(IPEA)","CASPT3(NOIPEA)"}}]