#Data generation
NumberUnknowns = 50
NumberLoci = 10
TestUnknownDataArray=array(sample(1:5,2*NumberUnknowns*NumberLoci,replace=TRUE)
,dim=c(NumberUnknowns,2,NumberLoci))
CalcFractionsMultiLoglik(TestUnknownDataArray)
Run the code above in your browser using DataLab