diff --git a/R/pcm.R b/R/pcm.R
index 8edc36f..9a0680d 100644
--- a/R/pcm.R
+++ b/R/pcm.R
@@ -21,7 +21,7 @@
 #' @export
 
 
-pcm <- function(df=NULL,items=NULL,grp=NULL,dif.items=NULL,type.dif=NULL,weights=NULL,verbose=T,fit="ucminf",method.theta="eap",na.action=na.omit) {
+pcm <- function(df=NULL,items=NULL,grp=NULL,dif.items=NULL,type.dif=NULL,weights=NULL,verbose=T,fit="ucminf",method.theta="wle",na.action=na.omit) {
   ##### Detecting errors
 
   if (any(!(items %in% colnames(df)))) {
diff --git a/man/pcm.Rd b/man/pcm.Rd
index 253b854..c96673b 100644
--- a/man/pcm.Rd
+++ b/man/pcm.Rd
@@ -13,7 +13,7 @@ pcm(
   weights = NULL,
   verbose = T,
   fit = "ucminf",
-  method.theta = "eap",
+  method.theta = "wle",
   na.action = na.omit
 )
 }