powered by
G
fit.APFA(G, dat)
library(gRapfa) data(Wheeze) samp <- sample(1:537, 250) G <- select.IC(Wheeze[samp,]) G.fit <- fit.APFA(G, Wheeze[-samp,])
Run the code above in your browser using DataLab