* using log directory ‘/data/blackswan/ripley/R/packages/tests-devel/geecure.Rcheck’
* using R Under development (unstable) (2025-11-17 r89032)
* using platform: x86_64-pc-linux-gnu
* R was compiled by
    gcc (GCC) 14.2.1 20240912 (Red Hat 14.2.1-3)
    GNU Fortran (GCC) 14.2.1 20240912 (Red Hat 14.2.1-3)
* running under: Fedora Linux 40 (Workstation Edition)
* using session charset: UTF-8
* checking for file ‘geecure/DESCRIPTION’ ... OK
* checking extension type ... Package
* this is package ‘geecure’ version ‘1.0-6’
* checking package namespace information ... OK
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for executable files ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking for sufficient/correct file permissions ... OK
* checking whether package ‘geecure’ can be installed ... [15s/15s] OK
* checking package directory ... OK
* checking DESCRIPTION meta-information ... OK
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking code files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* checking whether the package can be loaded ... OK
* checking whether the package can be loaded with stated dependencies ... OK
* checking whether the package can be unloaded cleanly ... OK
* checking whether the namespace can be loaded with stated dependencies ... OK
* checking whether the namespace can be unloaded cleanly ... OK
* checking loading without being on the library search path ... OK
* checking dependencies in R code ... OK
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... [29s/30s] OK
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd line widths ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking contents of ‘data’ directory ... OK
* checking data for non-ASCII characters ... OK
* checking LazyData ... OK
* checking data for ASCII and uncompressed saves ... OK
* checking examples ... OK
* checking examples with --run-donttest ... [30m/30m] ERROR
Running examples in ‘geecure-Ex.R’ failed
The error most likely occurred in:

> ### Name: geecure
> ### Title: Marginal proportional hazards mixture cure model with
> ###   generalzied estimating equations
> ### Aliases: geecure
> 
> ### ** Examples
> 
> ## Don't show: 
> # for checks
>            data(bmt)
>            testdata <- bmt[(1:dim(bmt)[1])[bmt$Z9 == 2 | bmt$Z9 == 3], ] 
>            geecuretest <- geecure(Surv(T2, d3) ~ Z8, cureform = ~ Z8, 
+            data = testdata, model =  "semi", id = testdata$Z9, corstr= "independence")
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
> ## End(Don't show)
> ## No test: 
> # Be patient, the following examples may take several minites on a faster computer.
> # Example 1. Fit the marginal parametric PHMC model for the smoking cessation data.
> data(smoking)
> smoking$Time <- ifelse(smoking$Relapse == 0, smoking$Timept1, 
+                        (smoking$Timept1 + smoking$Timept2)/2)
> 
> # plot the KM survival curve of smoking cessation data
> plot(survfit(Surv(Time, Relapse) ~ SexF + (SI.UC), data = smoking), 
+       ylab = "Survival function", xlab = "Years", ylim = c(0.5, 1), 
+       xlim = c(0, 6), lty = 1:4, col = 1:4)
> legend(0.5, 0.63, c("SI/Male", "SI/Female", "UC/Female", "UC/Male"), cex = 1, 
+         col = c(2, 4, 3, 1), lty = c(2, 4, 3, 1))
> 
> geesmokingind <- geecure(Surv(Time, Relapse) ~ SexF + Duration + SI.UC + F10Cigs + 
+       SexF * SI.UC, cureform = ~ SexF + Duration + SI.UC + F10Cigs + SexF * SI.UC, 
+       data = smoking,  model = "para", id = smoking$Zip, corstr = "independence")
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
> 
> geesmokingexch <- geecure(Surv(Time, Relapse) ~ SexF + Duration + SI.UC + F10Cigs + 
+       SexF * SI.UC, cureform = ~ SexF + Duration + SI.UC + F10Cigs + SexF * SI.UC, 
+       data = smoking,  model = "para", id = smoking$Zip, corstr = "exchangeable")
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in gSS2[i] <- (gSS1[kk1 - 1])^(exp(as.matrix(X[i, ]) %*% pmt1s)) :
  number of items to replace is not a multiple of replacement length
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
Warning in eval(family$initialize) :
  non-integer #successes in a binomial glm!
* checking PDF version of manual ... OK
* checking for non-standard things in the check directory ... OK
* checking for detritus in the temp directory ... OK
* checking for new files in some other directories ... OK
* DONE

Status: 1 ERROR
See
  ‘/data/blackswan/ripley/R/packages/tests-devel/geecure.Rcheck/00check.log’
for details.

Command exited with non-zero status 1
Time 32:38.89, 1900.45 + 25.46