max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Improved printing

Browse source
This commit is contained in:
Waldir Leoncio 2021-02-01 10:01:14 +01:00
parent aa8a066530
commit 58bf940ae3
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
R/indMix.R
View file

@ -79,10 +79,11 @@ indMix <- function(c, npops, dispText) {
npops <- npopsTaulu[[run]] npops <- npopsTaulu[[run]]
if (dispText) { if (dispText) {
dispLine() dispLine()
print( cat(
paste0( paste0(
'Run ', as.character(run), '/', as.character(nruns), 'Run ', as.character(run), '/', as.character(nruns),
', maximum number of populations ', as.character(npops), '.' ', maximum number of populations ', as.character(npops),
'.\n'
) )
) )
} }
@ -115,12 +116,11 @@ indMix <- function(c, npops, dispText) {
vaihe <- 1 vaihe <- 1
if (dispText) { if (dispText) {
print(' ') cat(
print(
paste0( paste0(
'Mixture analysis started with initial', '\nMixture analysis started with initial ',
as.character(npops), as.character(npops),
'populations.' ' populations.'
) )
) )
} }
@ -129,7 +129,7 @@ indMix <- function(c, npops, dispText) {
muutoksia <- 0 muutoksia <- 0
if (dispText) { if (dispText) {
print(paste('Performing steps:', as.character(roundTypes))) cat(paste('\nPerforming steps:', as.character(roundTypes)))
} }
for (n in 1:length(roundTypes)) { for (n in 1:length(roundTypes)) {