# Sweep in standardization

When running `glmsmurf`

with a continuous predictor that has a Lasso or Group Lasso penalty, there is an error in the standardization. The default behavior of R is to reduce a matrix with one column to a vector which causes the error in the `sweep`

function which is used in the standardization. This can only happen when there is a single column corresponding to a feature that needs to be standardized, i.e. it has a Lasso or Group Lasso penalty.

Example:

```
require(smurf)
data("rent", package = "catdata")
rent$kitchen <- factor(rent$kitchen, labels = c("no", "yes"))
formu <- rentm ~ p(rent, pen ="lasso") + p(kitchen, pen ="lasso")
munich.fit <- glmsmurf(formula = formu, family = gaussian(), data = rent, lambda = 0.008914)
```

which gives the error

`Error in array(STATS, dims[perm]) : 'dims' must be of length 0".`