Untitled

x.data <- c(12.148640, 8.787796, 10.680923, 6.513949, 8.911702, 9.834332, 10.774171,
10.955747, 12.983507, 11.831164, 8.087671, 11.190404, 7.810677, 8.852047, 5.573072,
11.377695, 11.047517, 8.091733, 12.170512, 8.572226, 9.251821, 8.802385, 9.739331,
12.723662, 7.373611, 8.248335, 9.929799, 7.501122, 7.593859, 14.603036)

x_bar <- mean(x.data)
s <- sd(x.data)

CV_hat <- s / x_bar

print(paste("L'estimation ponctuelle du coefficient de variation est :", CV_hat))