Permalink
Browse files

add df to logLik method for fitMk & fitmultiMk

  • Loading branch information...
liamrevell committed Dec 5, 2017
1 parent 8bd2de3 commit 2e2d14009a9af25f70654797f6142ed57545bf27
Showing with 11 additions and 3 deletions.
  1. +1 −1 DESCRIPTION
  2. +5 −1 R/fitMk.R
  3. +5 −1 R/fitmultiMk.R
View
@@ -1,5 +1,5 @@
Package: phytools
Version: 0.6-50
Version: 0.6-51
Date: 2017-12-5
Title: Phylogenetic Tools for Comparative Biology (and Other Things)
Author: Liam J. Revell
View
@@ -154,7 +154,11 @@ summary.fitMk<-function(object,...){
}
## logLik method for objects of class "fitMk"
logLik.fitMk<-function(object,...) object$logLik
logLik.fitMk<-function(object,...){
lik<-object$logLik
attr(lik,"df")<-length(object$rates)
lik
}
## AIC method
AIC.fitMk<-function(object,...,k=2){
View
@@ -151,7 +151,11 @@ summary.fitmultiMk<-function(object,...){
}
## logLik method for objects of class "fitmultiMk"
logLik.fitmultiMk<-function(object,...) object$logLik
logLik.fitmultiMk<-function(object,...){
lik<-object$logLik
attr(lik,"df")<-length(object$rates)
lik
}
## AIC method
AIC.fitmultiMk<-function(object,...,k=2){

0 comments on commit 2e2d140

Please sign in to comment.