I do the these passages:
library(Geneland)

set.seed(1)

data <- simdata(nindiv=200,
                coord.lim=c(0,1,0,1) ,
                number.nuclei=5 ,
                allele.numbers=rep(10,20),
                IBD=FALSE,
                npop=2,
                give.tess.grid=FALSE)

geno <- data$genotypes
coord <- t(data$coord.indiv)

path.mcmc <- paste(tempdir(),"/",sep="") 

set.seed(1)
mcmcFmodel(coordinates=coord,
           genotypes=geno,
           path.mcmc=path.mcmc,
           rate.max=10,
           delta.coord=0,
           npopmin=1,
           npopinit=5,
           npopmax=5,
           nb.nuclei.max=50,
           nit=500,
           thinning=1,
           freq.model="Dirichlet",
           varnpop=FALSE,

           spatial=TRUE)
But at the end R say to me that  do had found the function "mcmcFmodel".
Any sugestion?
thanks

********************************************************** 
**********************************************************
VincenzoLandi
AnimalScience Phd student
        
Faculty of Agricolture
Universityof Perugia (Italy).
        
Departamentof Genetica
Campus deRabanales
Universidadde Cordoba
Cordoba(Spain)

Contacts:

cell phone: +39 3395388713
Skype: vincenzozoot
Italy: +39 0755857109
Spain:+34 957218706

        




      
	[[alternative HTML version deleted]]


