Nothing
########### Meta Menu #################
intCol <-function ()
{
require(EcoVirtual)
initializeDialog(title = gettextRcmdr("Internal Colonization"))
#### Salva dados
dsname <- tclVar("Do_Not_Save")
entryDsname <- tkentry(top, width="20", textvariable=dsname)
####
tfVar <- tclVar("100")
tfEntry <- tkentry(top, width = "4", textvariable = tfVar)
clVar <- tclVar("20")
lnVar <- tclVar("20")
clEntry <- tkentry(top, width = "4", textvariable = clVar)
lnEntry <- tkentry(top, width = "4", textvariable = lnVar)
### controle de barra
fiVar <- tclVar(0.4)
fiVarSlider <- tkscale(top, from=0, to=1, showvalue=TRUE, variable=fiVar, resolution=0.05, orient="horizontal")
#####
iVar <- tclVar("0.1") ## nclassVar ->iVar
iEntry <- tkentry(top, width = "6", textvariable = iVar)
peVar <- tclVar(0.05)
peEntry <- tkscale(top, from=0, to=1, showvalue=TRUE, variable=peVar, resolution=0.05, orient="horizontal")
onOK <- function()
{
closeDialog()
tf <- round(as.numeric(tclvalue(tfVar)))
if (is.na(tf) || tf <= 0)
{
errorCondition(message = "Number of simulations must be a positive integer")
return()
}
cl <- round(as.numeric(tclvalue(clVar)))
if (is.na(cl) || cl <= 0)
{
errorCondition(message = "Number of coluns on the simulated arena must be a positive integer.")
return()
}
ln <- round(as.numeric(tclvalue(lnVar)))
if (is.na(ln) || ln <= 0)
{
errorCondition("Number of lines on the simulated arena must be a positive integer.")
return()
}
i <- as.numeric(tclvalue(iVar))
if (i<0 || i > 10)
{
errorCondition(message = "Colonization constant must be between 0 and 10")
return()
}
fi <- as.numeric(tclvalue(fiVar))
pe <- as.numeric(tclvalue(peVar))
############ Data name
dsnameValue <- trim.blanks(tclvalue(dsname))
if (dsnameValue == "Do_Not_Save" | dsnameValue=="")
{
command <- paste("meta.inter(tf = ",tf, ", cl = ", cl,", fi = ", fi,", ln =", ln,", i = ", i,", pe = ", pe, ")", sep = "")
}
else
{
command <- paste(dsnameValue,"<- meta.inter(tf = ",tf, ", cl = ", cl,", fi = ", fi,", ln =", ln,", i = ", i,", pe = ", pe, ")", sep = "")
}
########
doItAndPrint(command)
tkfocus(CommanderWindow())
}
OKCancelHelp(helpSubject = "metapop")
# data name
tkgrid(tklabel(top, text="Enter name for data set: "), entryDsname, sticky="e")
tkgrid(tklabel(top, text="Simulation Arena Conditions : ", fg="blue"), sticky="w")
tkgrid(tklabel(top, text = "Maximum time "), tfEntry, sticky = "e")
tkgrid(tklabel(top, text = "Coluns "), clEntry, sticky = "e")
tkgrid(tklabel(top, text = "Rows "), lnEntry, sticky = "e")
#
tkgrid(tklabel(top, text="Species parameters :", fg="blue"), sticky="w")
tkgrid(tklabel(top, text="Initial occupance "), fiVarSlider, sticky="se")
tkgrid(tklabel(top, text = "Colonization coeficient "), iEntry, sticky = "e")
tkgrid(tklabel(top, text = "Prob. Extintion "), peEntry, sticky = "se")
tkgrid(buttonsFrame, sticky = "w", columnspan = 2)
tkgrid.configure(entryDsname, sticky = "w")
tkgrid.configure(tfEntry, sticky = "w")
tkgrid.configure(clEntry, sticky = "w")
tkgrid.configure(lnEntry, sticky = "w")
tkgrid.configure(fiVarSlider, sticky = "w")
tkgrid.configure(iEntry, sticky = "w")
tkgrid.configure(peEntry, sticky = "w")
dialogSuffix(rows = 8, columns = 2, focus = tfEntry)
}
######################################
##########################################
propRain <-function()
{
require(EcoVirtual)
initializeDialog(title = gettextRcmdr("Propagulus Rain"))
####
dsname <- tclVar("Do_Not_Save")
entryDsname <- tkentry(top, width="20", textvariable=dsname)
###
tfVar <- tclVar("100")
tfEntry <- tkentry(top, width = "4", textvariable = tfVar)
clVar <- tclVar("20")
lnVar <- tclVar("20")
clEntry <- tkentry(top, width = "4", textvariable = clVar)
lnEntry <- tkentry(top, width = "4", textvariable = lnVar)
fiVar <- tclVar(0.25) ## nclassVar ->fiVar
fiEntry <- tkscale(top, from=0, to=1, showvalue=TRUE, variable=fiVar, resolution=0.05, orient="horizontal")
pcVar <- tclVar("0.1") ## nclassVar ->fiVar
pcEntry <- tkscale(top, from=0, to=1, showvalue=TRUE, variable=pcVar, resolution=0.05, orient="horizontal")
peVar <- tclVar("0.05") ## nclassVar ->fiVar
peEntry <- tkscale(top, from=0, to=1, showvalue=TRUE, variable=peVar, resolution=0.05, orient="horizontal")
onOK <- function()
{
closeDialog()
tf <- round(as.numeric(tclvalue(tfVar)))
if (is.na(tf) || tf <= 0)
{
errorCondition(message = "Number of simulations must be a positive integer")
return()
}
cl <- round(as.numeric(tclvalue(clVar)))
if (is.na(cl) || cl <= 0)
{
errorCondition(message = "Number of coluns on the simulated arena must be a positive integer.")
return()
}
ln <- round(as.numeric(tclvalue(lnVar)))
if (is.na(ln) || ln <= 0)
{
errorCondition("Number of lines on the simulated arena must be a positive integer.")
return()
}
fi <- as.numeric(tclvalue(fiVar))
pc <- as.numeric(tclvalue(pcVar))
pe <- as.numeric(tclvalue(peVar))
############ Data name
dsnameValue <- trim.blanks(tclvalue(dsname))
if (dsnameValue == "Do_Not_Save" | dsnameValue=="")
{
command <- paste("metapop(tf = ",tf, ", cl = ", cl,", fi = ", fi,", ln =", ln,", pc = ", pc,", pe = ", pe, ")", sep = "")
}
else
{
command <- paste(dsnameValue,"<-metapop(tf = ",tf, ", cl = ", cl,", fi = ", fi,", ln =", ln,", pc = ", pc,", pe = ", pe, ")", sep = "")
}
########
# command <- paste("metapop(tf = ",tf, ", cl = ", cl,", fi = ", fi,", ln =", ln,", pc = ", pc,", pe = ", pe, ")", sep = "")
doItAndPrint(command)
tkfocus(CommanderWindow())
}
OKCancelHelp(helpSubject = "metapop")
tkgrid(tklabel(top, text="Enter name for data set: "), entryDsname, sticky="e")
tkgrid(tklabel(top, text="Simulation Arena Conditions : ", fg="blue"), sticky="w")
tkgrid(tklabel(top, text = "Maximum time "), tfEntry, sticky = "e")
tkgrid(tklabel(top, text = "Coluns "), clEntry, sticky = "e")
tkgrid(tklabel(top, text = "Rows "), lnEntry, sticky = "e")
tkgrid(tklabel(top, text="Species parameters : ", fg="blue"), sticky="w")
tkgrid(tklabel(top, text = "Initial occupance "), fiEntry, sticky = "se")
tkgrid(tklabel(top, text = "Colonization probability "), pcEntry, sticky = "se")
tkgrid(tklabel(top, text = "Extintion probability "), peEntry, sticky = "se")
tkgrid(buttonsFrame, sticky = "w", columnspan = 2)
tkgrid.configure(entryDsname, sticky = "w")
tkgrid.configure(tfEntry, sticky = "w")
tkgrid.configure(clEntry, sticky = "w")
tkgrid.configure(lnEntry, sticky = "w")
tkgrid.configure(fiEntry, sticky = "w")
tkgrid.configure(pcEntry, sticky = "w")
tkgrid.configure(peEntry, sticky = "w")
dialogSuffix(rows = 7, columns = 2, focus = tfEntry)
}
###############################################################
##################################################
#meta.cier <-function(tf,cl,ln,fi,i,e)
#meta.er <-function(tf,cl,ln,fi,pc,e)
resEff <-function ()
{
require(EcoVirtual)
initializeDialog(title = gettextRcmdr("Rescue Effect"))
####
dsname <- tclVar("Do_Not_Save")
entryDsname <- tkentry(top, width="20", textvariable=dsname)
###
tfVar <- tclVar("100")
tfEntry <- tkentry(top, width = "4", textvariable = tfVar)
clVar <- tclVar("20")
lnVar <- tclVar("20")
clEntry <- tkentry(top, width = "4", textvariable = clVar)
lnEntry <- tkentry(top, width = "4", textvariable = lnVar)
fiVar <- tclVar(0.25) ## nclassVar ->fiVar
fiEntry <- tkscale(top, from=0, to=1, showvalue=TRUE, variable=fiVar, resolution=0.05, orient="horizontal")
pcVar <- tclVar("0.1") ## nclassVar ->fiVar
pcEntry <- tkscale(top, from=0, to=1, showvalue=TRUE, variable=pcVar, resolution=0.05, orient="horizontal")
eVar <- tclVar("0.05") ## nclassVar ->fiVar
eEntry <- tkentry(top, width = "6", textvariable = eVar)
onOK <- function()
{
closeDialog()
tf <- round(as.numeric(tclvalue(tfVar)))
if (is.na(tf) || tf <= 0)
{
errorCondition(message = "Number of simulations must be a positive integer")
return()
}
cl <- round(as.numeric(tclvalue(clVar)))
if (is.na(cl) || cl <= 0)
{
errorCondition(message = "Number of coluns on the simulated arena must be a positive integer.")
return()
}
ln <- round(as.numeric(tclvalue(lnVar)))
if (is.na(ln) || ln <= 0)
{
errorCondition("Number of lines on the simulated arena must be a positive integer.")
return()
}
e <- as.numeric(tclvalue(eVar))
if (e<0 || e > 10)
{
errorCondition(message = "Extintion constant must be between 0 and 1")
return()
}
fi <- as.numeric(tclvalue(fiVar))
pc <- as.numeric(tclvalue(pcVar))
############ Data name
dsnameValue <- trim.blanks(tclvalue(dsname))
if (dsnameValue == "Do_Not_Save" | dsnameValue=="")
{
command <- paste("meta.er(tf = ",tf, ", cl = ", cl,", fi = ", fi,", ln =", ln,", pc = ", pc,", e = ", e, ")", sep = "")
}
else
{
command <- paste(dsnameValue,"<-meta.er(tf = ",tf, ", cl = ", cl,", fi = ", fi,", ln =", ln,", pc = ", pc,", e = ", e, ")", sep = "")
}
########
# command <- paste("meta.er(tf = ",tf, ", cl = ", cl,", fi = ", fi,", ln =", ln,", pc = ", pc,", e = ", e, ")", sep = "")
doItAndPrint(command)
tkfocus(CommanderWindow())
}
OKCancelHelp(helpSubject = "metapop")
tkgrid(tklabel(top, text="Enter data set name: "), entryDsname, sticky="e")
tkgrid(tklabel(top, text="Simulation Arena Conditions : ", fg="blue"), sticky="w")
tkgrid(tklabel(top, text = "Maximum time "), tfEntry, sticky = "e")
tkgrid(tklabel(top, text = "Coluns "), clEntry, sticky = "e")
tkgrid(tklabel(top, text = "Rows "), lnEntry, sticky = "e")
tkgrid(tklabel(top, text="Species parameters : ", fg="blue"), sticky="w")
tkgrid(tklabel(top, text = "Initial occupance "), fiEntry, sticky = "e")
tkgrid(tklabel(top, text = "Colonization probability "), pcEntry, sticky = "e")
tkgrid(tklabel(top, text = "Extintion coeficient "), eEntry, sticky = "e")
tkgrid(buttonsFrame, sticky = "w", columnspan = 2)
tkgrid.configure(entryDsname, sticky = "w")
tkgrid.configure(tfEntry, sticky = "w")
tkgrid.configure(clEntry, sticky = "w")
tkgrid.configure(lnEntry, sticky = "w")
tkgrid.configure(fiEntry, sticky = "w")
tkgrid.configure(pcEntry, sticky = "w")
tkgrid.configure(eEntry, sticky = "w")
dialogSuffix(rows = 8, columns = 2, focus = tfEntry)
}
################################################
#meta.cier <-function(tf,cl,ln,fi,i,e)
#meta.er <-function(tf,cl,ln,fi,pc,e)
resEffcol <-function ()
{
require(EcoVirtual)
initializeDialog(title = gettextRcmdr("Rescue and Internal Colonization"))
####
dsname <- tclVar("Do_Not_Save")
entryDsname <- tkentry(top, width="20", textvariable=dsname)
###
tfVar <- tclVar("100")
tfEntry <- tkentry(top, width = "4", textvariable = tfVar)
clVar <- tclVar("20")
lnVar <- tclVar("20")
clEntry <- tkentry(top, width = "4", textvariable = clVar)
lnEntry <- tkentry(top, width = "4", textvariable = lnVar)
fiVar <- tclVar(0.25) ## nclassVar ->fiVar
fiEntry <- tkscale(top, from=0, to=1, showvalue=TRUE, variable=fiVar, resolution=0.05, orient="horizontal")
iVar <- tclVar("0.1") ## nclassVar ->fiVar
iEntry <- tkentry(top, width = "6", textvariable = iVar)
eVar <- tclVar("0.05") ## nclassVar ->fiVar
eEntry <- tkentry(top, width = "6", textvariable = eVar)
onOK <- function()
{
closeDialog()
tf <- round(as.numeric(tclvalue(tfVar)))
if (is.na(tf) || tf <= 0)
{
errorCondition(message = "Number of simulations must be a positive integer")
return()
}
cl <- round(as.numeric(tclvalue(clVar)))
if (is.na(cl) || cl <= 0)
{
errorCondition(message = "Number of coluns on the simulated arena must be a positive integer.")
return()
}
ln <- round(as.numeric(tclvalue(lnVar)))
if (is.na(ln) || ln <= 0)
{
errorCondition("Number of lines on the simulated arena must be a positive integer.")
return()
}
e <- as.numeric(tclvalue(eVar))
if (e<0 || e > 100)
{
errorCondition(message = "Extintion constant must be positive ")
return()
}
i <- as.numeric(tclvalue(iVar))
if (i<0 || i > 1000)
{
errorCondition(message = "Extintion constant must be positive")
return()
}
fi <- as.numeric(tclvalue(fiVar))
############ Data name
dsnameValue <- trim.blanks(tclvalue(dsname))
if (dsnameValue == "Do_Not_Save" | dsnameValue=="")
{
command <- paste("meta.cier(tf = ",tf, ", cl = ", cl,", fi = ", fi,", ln =", ln,", i = ", i,", e = ", e, ")", sep = "")
}
else
{
command <- paste(dsnameValue,"<-meta.cier(tf = ",tf, ", cl = ", cl,", fi = ", fi,", ln =", ln,", i = ", i,", e = ", e, ")", sep = "")
}
########
# command <- paste("meta.er(tf = ",tf, ", cl = ", cl,", fi = ", fi,", ln =", ln,", pc = ", pc,", e = ", e, ")", sep = "")
doItAndPrint(command)
tkfocus(CommanderWindow())
}
OKCancelHelp(helpSubject = "metapop")
tkgrid(tklabel(top, text="Enter data set name:"), entryDsname, sticky="e")
tkgrid(tklabel(top, text="Simulation Arena Conditions :", fg="blue"), sticky="w")
tkgrid(tklabel(top, text = "Maximum time "), tfEntry, sticky = "e")
tkgrid(tklabel(top, text = "Coluns "), clEntry, sticky = "e")
tkgrid(tklabel(top, text = "Rows "), lnEntry, sticky = "e")
tkgrid(tklabel(top, text="Species parameters :", fg="blue"), sticky="w")
tkgrid(tklabel(top, text = "Initial occupance "), fiEntry, sticky = "e")
tkgrid(tklabel(top, text = "Colonization coeficient "), iEntry, sticky = "e")
tkgrid(tklabel(top, text = "Extintion coeficient "), eEntry, sticky = "e")
tkgrid(buttonsFrame, sticky = "w", columnspan = 2)
tkgrid.configure(entryDsname, sticky = "w")
tkgrid.configure(tfEntry, sticky = "w")
tkgrid.configure(clEntry, sticky = "w")
tkgrid.configure(lnEntry, sticky = "w")
tkgrid.configure(fiEntry, sticky = "w")
tkgrid.configure(iEntry, sticky = "w")
tkgrid.configure(eEntry, sticky = "w")
dialogSuffix(rows = 8, columns = 2, focus = tfEntry)
}
################ Spatial Dependence Model ######################################
spDep <-function ()
{
require(EcoVirtual)
initializeDialog(title = gettextRcmdr("Spatial Colonization"))
####
dsname <- tclVar("Do_Not_Save")
entryDsname <- tkentry(top, width="20", textvariable=dsname)
###
tfVar <- tclVar("100")
tfEntry <- tkentry(top, width = "4", textvariable = tfVar)
clVar <- tclVar("20")
lnVar <- tclVar("20")
clEntry <- tkentry(top, width = "4", textvariable = clVar)
lnEntry <- tkentry(top, width = "4", textvariable = lnVar)
fiVar <- tclVar(0.25) ## nclassVar ->fiVar
fiEntry <- tkscale(top, from=0, to=1, showvalue=TRUE, variable=fiVar, resolution=0.05, orient="horizontal")
pcVar <- tclVar("0.1") ## nclassVar ->fiVar
pcEntry <- tkscale(top, from=0, to=1, showvalue=TRUE, variable=pcVar, resolution=0.05, orient="horizontal")
peVar <- tclVar("0.05") ## nclassVar ->fiVar
peEntry <- tkscale(top, from=0, to=1, showvalue=TRUE, variable=peVar, resolution=0.05, orient="horizontal")
cantoVar <- tclVar("1")
cantoBox <- tkcheckbutton(top, variable = cantoVar)
onOK <- function()
{
closeDialog()
tf <- round(as.numeric(tclvalue(tfVar)))
if (is.na(tf) || tf <= 0)
{
errorCondition(message = "Number of simulations must be a positive integer")
return()
}
cl <- round(as.numeric(tclvalue(clVar)))
if (is.na(cl) || cl <= 0)
{
errorCondition(message = "Number of coluns on the simulated arena must be a positive integer.")
return()
}
ln <- round(as.numeric(tclvalue(lnVar)))
if (is.na(ln) || ln <= 0)
{
errorCondition("Number of lines on the simulated arena must be a positive integer.")
return()
}
fi <- as.numeric(tclvalue(fiVar))
# if (fi<=0 || fi > 1)
# {
# errorCondition(message = "Proportion of patchs occuped must be between 0 and 1 ")
# return()
# }
pc <- as.numeric(tclvalue(pcVar))
# if (pc<0 || pc > 10)
# {
# errorCondition(message = "Colonization constant must be between 0 and 10")
# return()
# }
pe <- as.numeric(tclvalue(peVar))
# if (pe<0 || pe > 1)
# {
# errorCondition(message = "Probability of extintion must be between 0 and 1")
# return()
# }
cantoVF <- as.logical(as.numeric(tclvalue(cantoVar)))
############ Data name
dsnameValue <- trim.blanks(tclvalue(dsname))
if (dsnameValue == "Do_Not_Save" | dsnameValue=="")
{
command <- paste("meta.spac(tf = ",tf, ", cl = ", cl,", fi = ", fi,", ln =", ln,", pc = ", pc,", pe = ", pe, ", canto = ", cantoVF,")", sep = "")
}
else
{
command <- paste(dsnameValue,"<-meta.spac(tf = ",tf, ", cl = ", cl,", fi = ", fi,", ln =", ln,", pc = ", pc,", pe = ", pe, ", canto = ", cantoVF,")", sep = "")
}
########
doItAndPrint(command)
tkfocus(CommanderWindow())
}
OKCancelHelp(helpSubject = "metapop")
tkgrid(tklabel(top, text="Enter name for data set:"), entryDsname, sticky="e")
tkgrid(tklabel(top, text="Simulation Arena Conditions :", fg="blue"), sticky="w")
tkgrid(tklabel(top, text = "Maximum time "), tfEntry, sticky = "e")
tkgrid(tklabel(top, text = "Coluns "), clEntry, sticky = "e")
tkgrid(tklabel(top, text = "Rows "), lnEntry, sticky = "e")
tkgrid(tklabel(top, text="Initial Simulation Conditions :", fg="blue"), sticky="w")
tkgrid(tklabel(top, text = "Initial occupance"), fiEntry, sticky = "se")
tkgrid(tklabel(top, text = "Colonization probability"), pcEntry, sticky = "se")
tkgrid(tklabel(top, text = "Extintion probability"), peEntry, sticky = "se")
tkgrid(tklabel(top, text = "Corner start"), cantoBox, sticky = "e")
tkgrid(buttonsFrame, sticky = "w", columnspan = 2)
tkgrid.configure(entryDsname, sticky = "w")
tkgrid.configure(tfEntry, sticky = "w")
tkgrid.configure(clEntry, sticky = "w")
tkgrid.configure(lnEntry, sticky = "w")
tkgrid.configure(fiEntry, sticky = "w")
tkgrid.configure(pcEntry, sticky = "w")
tkgrid.configure(peEntry, sticky = "w")
tkgrid.configure(cantoBox, sticky = "w")
dialogSuffix(rows = 9, columns = 2, focus = entryDsname)
}
####################################
########################################################
#metaComp(tmax=100,cl=100,ln=100,fi1=0.1,fi2=0.4,i1=0.4,i2=0.5,pe=0.25)
metacompDb <-function ()
{
require(EcoVirtual)
initializeDialog(title = gettextRcmdr("Meta Competition"))
#### Salva dados
dsname <- tclVar("Do_Not_Save")
entryDsname <- tkentry(top, width="20", textvariable=dsname)
####
tmaxVar <- tclVar("100")
tmaxEntry <- tkentry(top, width = "4", textvariable = tmaxVar)
clVar <- tclVar("20")
lnVar <- tclVar("20")
clEntry <- tkentry(top, width = "4", textvariable = clVar)
lnEntry <- tkentry(top, width = "4", textvariable = lnVar)
### controle de barra
fi1Var <- tclVar(0.4)
fi1VarSlider <- tkscale(top, from=0, to=1, showvalue=TRUE, variable=fi1Var, resolution=0.05, orient="horizontal")
fi2Var <- tclVar(0.4)
fi2VarSlider <- tkscale(top, from=0, to=1, showvalue=TRUE, variable=fi2Var, resolution=0.05, orient="horizontal")
#####
i1Var <- tclVar("0.1") ## nclassVar ->iVar
i1Entry <- tkentry(top, width = "6", textvariable = i1Var)
i2Var <- tclVar("0.1") ## nclassVar ->iVar
i2Entry <- tkentry(top, width = "6", textvariable = i2Var)
peVar <- tclVar(0.05)
peEntry <- tkscale(top, from=0, to=1, showvalue=TRUE, variable=peVar, resolution=0.05, orient="horizontal")
onOK <- function()
{
closeDialog()
tmax <- round(as.numeric(tclvalue(tmaxVar)))
if (is.na(tmax) || tmax <= 0)
{
errorCondition(message = "Number of simulations must be a positive integer")
return()
}
cl <- round(as.numeric(tclvalue(clVar)))
if (is.na(cl) || cl <= 0)
{
errorCondition(message = "Number of coluns on the simulated arena must be a positive integer.")
return()
}
ln <- round(as.numeric(tclvalue(lnVar)))
if (is.na(ln) || ln <= 0)
{
errorCondition("Number of lines on the simulated arena must be a positive integer.")
return()
}
i1 <- as.numeric(tclvalue(i1Var))
if (i1<0 || i1 > 100)
{
errorCondition(message = "Colonization constant must be between 0 and 10")
return()
}
i2 <- as.numeric(tclvalue(i2Var))
if (i2<0 || i2 > 100)
{
errorCondition(message = "Colonization constant must be between 0 and 10")
return()
}
fi1 <- as.numeric(tclvalue(fi1Var))
fi2 <- as.numeric(tclvalue(fi2Var))
pe <- as.numeric(tclvalue(peVar))
############ Data name
dsnameValue <- trim.blanks(tclvalue(dsname))
if (dsnameValue == "Do_Not_Save" | dsnameValue=="")
{
command <- paste("metaComp(tmax = ",tmax, ", cl = ", cl,", fi1 = ", fi1,", fi2 = ", fi2,", ln =", ln,", i1 = ", i1,", i2 = ", i2,", pe = ", pe, ")", sep = "")
}
else
{
command <- paste(dsnameValue,"<- metaComp(tmax = ",tmax, ", cl = ", cl,", fi1 = ", fi1,", fi2 = ", fi2,", ln =", ln,", i1 = ", i1,", i2 = ", i2,", pe = ", pe, ")", sep = "")
}
########
#metaComp(tmax=100,cl=100,ln=100,fi1=0.1,fi2=0.4,i1=0.4,i2=0.5,pe=0.25)
doItAndPrint(command)
tkfocus(CommanderWindow())
}
OKCancelHelp(helpSubject = "metapop")
# data name
tkgrid(tklabel(top, text="Enter name for data set:"), entryDsname, sticky="e")
##
tkgrid(tklabel(top, text="Simulation Arena Conditions :", fg="blue"), sticky="w")
tkgrid(tklabel(top, text = "Maximum time"), tmaxEntry, sticky = "e")
tkgrid(tklabel(top, text = "Coluns"), clEntry, sticky = "e")
tkgrid(tklabel(top, text = "Rows"), lnEntry, sticky = "e")
#
tkgrid(tklabel(top, text="Best Competitor Specie :", fg="blue"), sticky="w")
tkgrid(tklabel(top, text="Initial occupance "), fi1VarSlider, sticky="se")
tkgrid(tklabel(top, text = "Colonization coeficient "), i1Entry, sticky = "e")
tkgrid(tklabel(top, text="Worse Competitor Specie :", fg="blue"), sticky="w")
tkgrid(tklabel(top, text="Initial occupance "), fi2VarSlider, sticky="se")
tkgrid(tklabel(top, text = "Colonization coeficient "), i2Entry, sticky = "e")
tkgrid(tklabel(top, text="Both Species :", fg="blue"), sticky="w")
tkgrid(tklabel(top, text = "Prob. Extintion "), peEntry, sticky = "se")
tkgrid(buttonsFrame, sticky = "w", columnspan = 2)
tkgrid.configure(entryDsname, sticky = "w")
tkgrid.configure(tmaxEntry, sticky = "w")
tkgrid.configure(clEntry, sticky = "w")
tkgrid.configure(lnEntry, sticky = "w")
tkgrid.configure(fi1VarSlider, sticky = "w")
tkgrid.configure(i1Entry, sticky = "w")
tkgrid.configure(fi2VarSlider, sticky = "w")
tkgrid.configure(i2Entry, sticky = "w")
tkgrid.configure(peEntry, sticky = "w")
dialogSuffix(rows = 10, columns = 2, focus = entryDsname)
}
############################################################
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.