data(flood)
est_BiGam <- MLEce(flood, "BiGam")
plot(est_BiGam, c(3))
air_data <- airquality[ ,3:4]
air_data[ ,2] <- air_data[ ,2]*0.1
est_BiWei <- MLEce(air_data, "BiWei")
plot(est_BiWei)
data(fossil_pollen)
fossil_data <- cbind(fossil_pollen[,1]/100,rowSums(fossil_pollen[,-1]/100))
est_fossil <- MLEce(fossil_data, "Dirichlet")
plot(est_fossil,c(2))
Run the code above in your browser using DataLab