Refactoring

This commit is contained in:
Waldir Leoncio 2021-06-29 10:37:42 +02:00
parent c975a7c820
commit 67170d1c7b
3 changed files with 5 additions and 4 deletions

View file

@ -14,6 +14,7 @@ computePopulationLogml <- function(pops, adjprior, priorTerm) {
# Computation # # Computation #
# ======================================================== # # ======================================================== #
isarray <- length(dim(repmat(adjprior, c(1, 1, length(pops))))) > 2 isarray <- length(dim(repmat(adjprior, c(1, 1, length(pops))))) > 2
# FIXME: 3rd dimension of COUNTS getting dropped
term1 <- squeeze( term1 <- squeeze(
sum( sum(
sum( sum(

View file

@ -4,14 +4,14 @@
\alias{inputdlg} \alias{inputdlg}
\title{Gather user input} \title{Gather user input}
\usage{ \usage{
inputdlg(prompt, definput = NULL, dims = 1) inputdlg(prompt, dims = 1, definput = NULL)
} }
\arguments{ \arguments{
\item{prompt}{Text field with user instructions} \item{prompt}{Text field with user instructions}
\item{definput}{default value of the input}
\item{dims}{number of dimensions in the answwers} \item{dims}{number of dimensions in the answwers}
\item{definput}{default value of the input}
} }
\description{ \description{
Replicates the functionality of the homonymous function in Matlab (sans dialog box) Replicates the functionality of the homonymous function in Matlab (sans dialog box)