library(metaSEM) dt<-readLowTriMat("dt.dat", no.var=3) nDT<-c(232,200,164,369,432,101,163,241,380,304,1448,340,197,82,273,246,123,819,611,302,501,828,287,279,770,150,245,546,232,232,278,401,249,107,1574,296,298,223,180,544,159,179,512,462,643,657,355,325,71,71,472,439,102,128,305,615,1097,307,840,800,219,1074,24,33,48,336,131,361,263,352,1389,2023,280,201,246,321,424,274,290,281,626,302,224,419,60,470,320,352,585,252,516,447,114,82,884,489,279,230,157,89,187,261,186,397,388,142,329,119,135,385,213,51,227,96,224,254,369,159,32,554,228,117,594,193,344,324,739,120,165,408,201,186,45,45,61,85,253,166,139,829,396,259,268,97,242,336,210) is.pd(dt) fixedDT<-tssem1(dt, nDT, method="FEM") summary(fixedDT)