Generando resultados de R en “.txt”

# Creando resultados en ".txt"
# directorio a guardar archivo
sink("C:/Users/Administrator/Desktop/RVida.txt")

# cargando datos
expV = read.csv("C:/Users/Administrator/Desktop/vida.csv", header = T)

# estadí­stica descriptiva
require(psych)

Loading required package: psych

describe(expV [,2-3])

        var   n  mean    sd median trimmed  mad   min  max range  skew
hombres   1 193 67.76  9.28  70.48   68.59 8.66 46.62 80.7 34.08 -0.70
mujeres   2 193 72.28 10.54  75.71   73.41 9.05 47.20 86.7 39.50 -0.86
        kurtosis   se
hombres    -0.53 0.67
mujeres    -0.43 0.76