www.phidot.org

Hi,

I'm trying to export data/models from RMark to MARK and once I finish exporting the file then I try to open MARK and receive an error message. It only happens if I'm running R/RMark. I've uninstalled and re-installed MARK 2x and after closing R and restarting my computer then MARK opens fine. Has anyone else had this problem? I'm running the most recent version of MARK and RMark.

Thanks for the assistance!

Try this example. It worked for me. When you say there is an error, you need to tell us what it is. My guess is that you may have a permissions issue on your computer.

Code: Select all

data(dipper)
dipper.processed=process.data(dipper,groups=("sex"))
#
# Create default design data
#
dipper.ddl=make.design.data(dipper.processed)
#
run.dipper=function()
{
#
# Process data
#
# Add Flood covariates for Phi and p that have different values
#
   dipper.ddl$Phi$Flood=0
   dipper.ddl$Phi$Flood[dipper.ddl$Phi$time==2 | dipper.ddl$Phi$time==3]=1
   dipper.ddl$p$Flood=0
   dipper.ddl$p$Flood[dipper.ddl$p$time==3]=1
#
#  Define range of models for Phi
#
   Phidot=list(formula=~1)
   Phitime=list(formula=~time)
   Phisex=list(formula=~sex)
   Phisextime=list(formula=~sex+time)
   Phisex.time=list(formula=~sex*time)
   PhiFlood=list(formula=~Flood)
#
#  Define range of models for p
#
   pdot=list(formula=~1)
   ptime=list(formula=~time)
   psex=list(formula=~sex)
   psextime=list(formula=~sex+time)
   psex.time=list(formula=~sex*time)
   pFlood=list(formula=~Flood)
#
# Run assortment of models
#
   dipper.phidot.pdot          =mark(dipper.processed,dipper.ddl,
         model.parameters=list(Phi=Phidot,p=pdot))
   dipper.phidot.pFlood         =mark(dipper.processed,dipper.ddl,
         model.parameters=list(Phi=Phidot,p=pFlood))
   dipper.phidot.psex           =mark(dipper.processed,dipper.ddl,
         model.parameters=list(Phi=Phidot,p=psex))
   dipper.phidot.ptime          =mark(dipper.processed,dipper.ddl,
         model.parameters=list(Phi=Phidot,p=ptime))
#
# Return model table and list of models
#
   return(collect.models() )
}

dipper.results=run.dipper()
export.MARK(dipper.processed,"dipper",dipper.results)