Merge pull request #85 from kayleachampion/main

rkillick · web-flow · commit d2d364d2dd2f · 2024-12-03T06:07:51.000-05:00
Update cpt.class.R
diff --git a/R/cpt.class.R b/R/cpt.class.R
@@ -580,7 +580,7 @@ setClass("cpt",slots=list(data.set="ts", cpttype="character", method="character"
       else if(test.stat(object)=="Gamma"){
         means=param.est(object)$scale*param.est(object)$shape
       }
-      else if(test.stat(object)=="Eobjectponential"){
+      else if(test.stat(object)=="Exponential"){
         means=1/param.est(object)$rate
       }
       else if(test.stat(object)=="Poisson"){
@@ -630,7 +630,7 @@ setClass("cpt",slots=list(data.set="ts", cpttype="character", method="character"
 	    else if(test.stat(object)=="Gamma"){
 	      means=param.est(object)$scale*param.est(object)$shape
 	    }
-	    else if(test.stat(object)=="Eobjectponential"){
+	    else if(test.stat(object)=="Exponential"){
 	      means=1/param.est(object)$rate
 	    }
 	    else if(test.stat(object)=="Poisson"){

Original file line number	Diff line number	Diff line change
`@@ -580,7 +580,7 @@ setClass("cpt",slots=list(data.set="ts", cpttype="character", method="character"`
`580`	`580`	`else if(test.stat(object)=="Gamma"){`
`581`	`581`	`means=param.est(object)$scale*param.est(object)$shape`
`582`	`582`	`}`
`583`		`- else if(test.stat(object)=="Eobjectponential"){`
	`583`	`+ else if(test.stat(object)=="Exponential"){`
`584`	`584`	`means=1/param.est(object)$rate`
`585`	`585`	`}`
`586`	`586`	`else if(test.stat(object)=="Poisson"){`
`@@ -630,7 +630,7 @@ setClass("cpt",slots=list(data.set="ts", cpttype="character", method="character"`
`630`	`630`	`else if(test.stat(object)=="Gamma"){`
`631`	`631`	`means=param.est(object)$scale*param.est(object)$shape`
`632`	`632`	`}`
`633`		`- else if(test.stat(object)=="Eobjectponential"){`
	`633`	`+ else if(test.stat(object)=="Exponential"){`
`634`	`634`	`means=1/param.est(object)$rate`
`635`	`635`	`}`
`636`	`636`	`else if(test.stat(object)=="Poisson"){`