# simulate data
df <- simulateData(n.entity = 50, n.obs = 100, mu = .2, r = .7)
# calculate measure performance
out <- calcPerformance(df = df, entity = 'entity', y = 'y')
# plot performance
plotPerformance(out$perf.results)
Run the code above in your browser using DataLab